Direct function or method

[raaj123]

hi all,

a string in edit box how to conform whether the string is alphabets or numeric or special characters..

regards,
raaj.

[venugqtp]

you can try with IsNumeric to check numbers, If you want to check some combination of 'string, numbers and special chars' go for Regular Expression.

[raaj123]

hi,

thank you
can u pls give me the detailed script for all possible combinations.

regards,
raaj.

[venugqtp]

Code:

'vStr = "test"
'vStr = "@#$"
vStr = "12345"
Set oReg = New RegExp
oReg.Pattern = ".*\W.*"
Set Matches = oReg.Execute(vStr)

If Matches.count > 0 Then
    print "Input has Special character"
Else
    print "Input has no Special character"
End If

If IsNumeric(vstr) Then
    print "Input has Numeric character"
Else
    print "Input has no Numeric character"
End If

Please refer QTP Help file for Regular Expression Patterns

[idtestingking]

Code:

Function ValidateCharacterAcceptance(oEditObject,oTypeofEditBox)  
  
'Variable Declaration  
Dim wsh  
Dim oTypingText  
Dim oVisibleText  
  
'Assign a text value to the variable which is having all value types  
oTypingText="tester1234@!#$"  
  
'clear the values of edit box and focus on it by clicking  
oEditObject.Set ""  
oEditObject.Click  
'Wait is to clear some disturbance  
wait(1)  
  
'Create wscript object  
set wsh=CreateObject("wscript.shell")  
  
'Send text using sendkeys method  
wsh.SendKeys oTypingText  
  
'Wait is to clear some disturbance  
wait(1)  
  
'Get the visible text of the edit box  
oVisibleText=oEditObject.GetROProperty("value")  
  
'User can enter any type of text. But editbox accepts only the text which it is meant for.  
'The below condition check the visible text based on the text type.  
'If the type of visible text doesnot match the type of the edit box then the condition fails  
  
Select Case lcase(oTypeofEditBox)  
  
Case "alphabetic"  
  
If oVisibleText="tester" then  
Reporter.ReportEvent micPass,"Check Alphabetic Character Acceptance", "Typed Text: "& oTypingText &vbnewline& "Visible Text: "& oVisibleText  
Else  
Reporter.ReportEvent micFail,"Check Alphabetic Character Acceptance", "Typed Text: "& oTypingText &vbnewline& "Visible Text: "& oVisibleText  
End If  
  
Case "numeric"  
  
If oVisibleText="1234" then  
Reporter.ReportEvent micPass,"Check Numeric Character Acceptance", "Typed Text: "& oTypingText &vbnewline& "Visible Text: "& oVisibleText  
Else  
Reporter.ReportEvent micFail,"Check Numeric Character Acceptance", "Typed Text: "& oTypingText &vbnewline& "Visible Text: "& oVisibleText  
End If  
Case "alphanumeric"  
  
If oVisibleText="tester1234" then  
Reporter.ReportEvent micPass,"Check AlphaNumeric Character Acceptance", "Typed Text: "& oTypingText &vbnewline& "Visible Text: "& oVisibleText  
Else  
Reporter.ReportEvent micFail,"Check AlphaNumeric Character Acceptance", "Typed Text: "& oTypingText &vbnewline& "Visible Text: "& oVisibleText  
End If  
  
Case "alphanumericspecial"  
  
If oVisibleText=oTypingText then  
Reporter.ReportEvent micPass,"Check AlphaNumericSpecial Character Acceptance", "Typed Text: "& oTypingText &vbnewline& "Visible Text: "& oVisibleText  
Else  
Reporter.ReportEvent micFail,"Check AlphaNumericSpecial Character Acceptance", "Typed Text: "& oTypingText &vbnewline& "Visible Text: "& oVisibleText  
End If  
End Select  
  
Set wsh= nothing  
End Function  
SystemUtil.Run "iexplore.exe","http://192.168.1.210:8081"
Browser("name:=FMS - Login").Page("title:=FMS - Login").WebEdit("name:=UserName").Set "admin1"
Browser("name:=FMS - Login").Page("title:=FMS - Login").WebEdit("name:= Password").Set "admin1"
Browser("name:=FMS - Login").Page("title:=FMS - Login").webbutton("class:=loginbtn").Click
Browser("name:=FMS - Home Page").Navigate "http://test.com/Home/Index#url=%2FPerson%2FCreate"
Set oEditObject=Browser("name:=FMS - User Create").Page("title:=FMS - User Create").WebEdit("name:=Person.Phone")
ValidateCharacterAcceptance oEditObject,"alphanumericspecial"

[jacosta]

Hi,
I use Array.

Code:

MyArray(2)
MyArray(0)="lkjdñlaskdjas"
MyArray(1)="123456"
MyArray(2)="$%&$"

for i=0 to ubound(MyArray)
  
Windows("some").Dialog("some").WinEdit("some").Type MyArray(i)
  'valid message o invalid message
  reporter.reportevent micPass .... or reporter.reportevent micFail...
next

You need know the valid value for the object control.

Regards.