ratna
Answered On : Jun 29th, 2012
Code
dim a,x
a="ab1c23"
for i=1 to len(a)
if asc(mid(a,i,1))<>32 then
if asc(mid(a,i,1))>=97 and asc(mid(a,i,1))<=122 and asc(mid(a,i,1))>=65 and asc(mid(a,i,1))<=90 then
mystring=mystring&mid(a,i,1)
else
if asc(mid(a,i,1))>=48 and asc(mid(a,i,1))<=57 then
mynumber=mynumber&mid(a,i,1)
end if
end if
end if
next
msgbox (mystring)
msgbox (mynumber)
Login to rate this answer.