Dim str,num
str="1234abcd796don"
num=""
strlen=len(str)
For i=1 to strlen
char=mid(str,i,1)
If isnumeric(char) Then
num=num+char
End If
Next
msgbox num
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to MercuryQTP@googlegroups.com
To unsubscribe from this group, send email to
mercuryqtp+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
