str="ramanareddy12345@gmail.com"to count alphabets,numarics and special charcters pls any one knows send to answer
Answers were Sorted based on User's Feedback
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 |
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 |
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 |
How will u integrate oracel with QTP?
I have a tool for automation testing (eg:qtp).I have two functionality(A & B) to test.A is tested once in a year. B is tested everyday. At present i have the money and resource availability to automate only one functionality.Which one will u suggest and why?
How to run an integrated test scenario using Multiple Actions? How to use the QTP Step Generator?
When to use Descriptive programing?
What is the regular expression for Yahoo mail Inbox?
How to see the screens after running test in QTP?
How may types of defects identify application or your currently working application?pls give me answer..
what is error and fault in terms of software quality?
Explain the N-tire structure(process) for Funds Transfer ( means give N ways to funds Transfer in an Application)
Is there is any method how to connect remote desk throw QTP if yes please answer with a example?
Hello Everyone, Please provide me the practical example of business component concept of QTP.Like how to create business component,how to connect the quality center etc.... Thanks in advance, Gaytri
The interviewer asked me when u recorded one application.object repository properties are saved with .tsr extention. in qtp expert view wherever mouse is there that snapshot displayed in active screen but some recored script lines are not displyed in actives screen y?