BDFD - FindNumber

$var[findNumber;INPUT A STRING TO SEARCH]
$var[q;$cropText[$var[findNumber];2500;]]
$var[w;$cropText[$replaceText[$var[findNumber];$var[q];];2500;]]
$var[a;]$var[b;]$textSplit[$var[q];]$eval[%{DOL}%var[a\;%{DOL}%url[decode\;$joinSplitText[\]\]%{DOL}%if[%{DOL}%isNumber[%{DOL}%var[a\]\]\]%{DOL}%var[b\;%{DOL}%var[b\]%{DOL}%var[a\]\]%{DOL}%endif %{DOL}%var[a\;%{DOL}%url[decode\;]\]\]%{DOL}%if[%{DOL}%isNumber[%{DOL}%var[a\]\]\]%{DOL}%var[b\;%{DOL}%var[b\]%{DOL}%var[a\]\]%{DOL}%endif]$var[q;$var[b]]
$var[a;]$var[b;]$textSplit[$var[w];]$eval[%{DOL}%var[a\;%{DOL}%url[decode\;$joinSplitText[\]\]%{DOL}%if[%{DOL}%isNumber[%{DOL}%var[a\]\]\]%{DOL}%var[b\;%{DOL}%var[b\]%{DOL}%var[a\]\]%{DOL}%endif %{DOL}%var[a\;%{DOL}%url[decode\;]\]\]%{DOL}%if[%{DOL}%isNumber[%{DOL}%var[a\]\]\]%{DOL}%var[b\;%{DOL}%var[b\]%{DOL}%var[a\]\]%{DOL}%endif]
$var[findNumber;$var[q]$var[b]]
$var[findNumber] $c[<=== Result]