str="ramanareddy12345@gmail.com"to count alphabets,numarics and specia

str="ramanareddy12345@gmail.com"to count alphabets,numarics and special charcters pls any one knows send to answer

Question Posted / ramana

3 Answers
5158 Views
Ziynx, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

str="ramanareddy12345@gmail.com"to count alphabets,numarics and special charcters pls any ..

Answer / usha

str="ramanareddy12345@gmail.com"
numbers=0
alphabets=0
specialchar=0

for i = 1 to len(str)

b = mid(str,i,1)

if isnumeric(b) then

numbers=numbers+1

ElseIf (asc(b)>=97)and (asc(b)<=122) or asc(i)>=65 and asc(i)<=90 then

alphabets=alphabets+1

else

specialchar=specialchar+1

End if

next

msgbox numbers
msgbox alphabets
msgbox specialchar

Is This Answer Correct ?

3 Yes

0 No

str="ramanareddy12345@gmail.com"to count alphabets,numarics and special charcters pls any ..

Answer / chaitanyakumar.chivukula

'Special Characters
PatternSpecialChar = "[^a-z,A-Z,0-9]"
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = False
objRegExp.Pattern = PatternSpecialChar
Set Matches = objRegExp.Execute("ramanaReddy@123456")

for each match in Matches
a = match.value
b =b & a
Next
msgbox b
' Only Alphabetics
PatternAlphaChar = "[a-z,A-Z]"

Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = False
objRegExp.Pattern = PatternAlphaChar
Set Matches = objRegExp.Execute("ramanaReddy@123456")

for each match in Matches
a = match.value
b =b & a
Next
msgbox b

' only Numberics
PatternNumberics = "[0-9]"

Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = False
objRegExp.Pattern = PatternNumberics
Set Matches = objRegExp.Execute("ramanaReddy@123456")

for each match in Matches
a = match.value
b =b & a
Next
msgbox b

Is This Answer Correct ?

0 Yes

0 No

str="ramanareddy12345@gmail.com"to count alphabets,numarics and special charcters pls any ..

Answer / nitin sharma

Dim mystring
mystring = "ramanareddy12345@gmail.com"
stext = "12345"
mtext = "@"

X = split(mystring,"@")
Y = split(mystring,".")
'count character "@"
msgbox ubound(X)
'count character "."
msgbox ubound(Y)
ssearch = instr(1,mystring,stext)
msearch = instr(1,mystring,mtext)
Z = mid(mystring,ssearch,len(stext))
'count of numeric '12345'
If isnumeric(Z)=true Then
msgbox Len(Z)
End If

Is This Answer Correct ?

0 Yes

0 No

Post New Answer