Regex Checker

Termz Wed Feb 17, 2010 4:37 am

Type /Rt (Short for regex test)

Code:: dialog regex { option dbu title "Regex Tester - Version 1.0" size -l -l 100 50 edit "Regex" 1, 5 5 90 10 edit "String" 2, 5 15 90 10 button "Test for match" 3, 5 35 90 10 text "No Match" 4, 5 25 90 10 } alias rt dialog -mo regex regex on *:dialog:Regex:sclick:*: { if ($did == 3) { var %x $regex($did(2).text,$did(1).text) did -ra $dname 4 $iif($regml(1),$v1 - Matched String,%x) } }