How to get alphabets and numbers from alphanumeric string?



Str ="a0%n1@a2&n3)d4*h"
For intval=1 to Len(Str)
  StrVal = Mid(Str,intval,1)
  If isNumeric (StrVal) = True Then
     StrNum = StrNum&StrVal
  Else
     StrChar = StrChar&StrVal
  End If
Next

msgbox StrNum
msgbox StrChar

Comments

Popular posts from this blog

Is QA a easy job?

Latest Version of TestComplete

Successful tester