Kod:
<!-- PublicKey: 1282854960 -->
Dim rg as New RegEx Dim myMatch as RegExMatch ' 10 rg.SearchPattern="\d\d\d\d\d\d\d\d\d\d" myMatch=rg.search(TextArea1.text) if myMatch <> Nil then MsgBox myMatch.SubExpressionString(0) else MsgBox "Text not found!" End if exception err as RegExException MsgBox err.message
Kommentera