BDFD - FindAlpha

$var[findAlpha;INPUT A STRING TO SEARCH]
$var[q;$cropText[$var[findAlpha];2500;]]
$var[w;$cropText[$replaceText[$var[alpha];$var[q];];2500;]]
$var[a;]$var[b;]
$textSplit[$var[q];]
$eval[%{DOL}%var[a\;%{DOL}%url[decode\;$joinSplitText[\]\]%{DOL}%if[%{DOL}%checkContains[%{DOL}%toLowercase[%{DOL}%var[a\]\]\;a\;b\;c\;d\;e\;f\;g\;h\;i\;j\;k\;l\;m\;n\;o\;p\;q\;r\;s\;t\;u\;v\;w\;x\;y\;z\]\]%{DOL}%var[b\;%{DOL}%var[a\]%{DOL}%var[b\]\]%{DOL}%endif %{DOL}%var[a\;%{DOL}%url[decode\;]\]\]%{DOL}%if[%{DOL}%checkContains[%{DOL}%toLowercase[%{DOL}%var[a\]\]\;a\;b\;c\;d\;e\;f\;g\;h\;i\;j\;k\;l\;m\;n\;o\;p\;q\;r\;s\;t\;u\;v\;w\;x\;y\;z\]\]%{DOL}%var[b\;%{DOL}%var[a\]%{DOL}%var[b\]\]%{DOL}%endif]$var[q;$var[b]]$var[a;]$var[b;]$textSplit[$var[w];]$eval[%{DOL}%var[a\;%{DOL}%url[decode\;$joinSplitText[\]\]%{DOL}%if[%{DOL}%checkContains[%{DOL}%toLowercase[%{DOL}%var[a\]\]\;a\;b\;c\;d\;e\;f\;g\;h\;i\;j\;k\;l\;m\;n\;o\;p\;q\;r\;s\;t\;u\;v\;w\;x\;y\;z\]\]%{DOL}%var[b\;%{DOL}%var[a\]%{DOL}%var[b\]\]%{DOL}%endif %{DOL}%var[a\;%{DOL}%url[decode\;]\]\]%{DOL}%if[%{DOL}%checkContains[%{DOL}%toLowercase[%{DOL}%var[a\]\]\;a\;b\;c\;d\;e\;f\;g\;h\;i\;j\;k\;l\;m\;n\;o\;p\;q\;r\;s\;t\;u\;v\;w\;x\;y\;z\]\]%{DOL}%var[b\;%{DOL}%var[a\]%{DOL}%var[b\]\]%{DOL}%endif]
$var[findAlpha;$var[q]$var[b]]
$var[findAlpha]