Hi Vijay,
This function would be help you.
'Username feild validation function which are acceptable 8-32 alphanumeric
char."Akhalesh yadav"
Function AlphNum(textInput)
dim i,b,m,h
dim arrAlNum()
b=len(textInput)
If b>=1 and b<=50 Then
'msgbox"length of string is-->"&b
redim arrAlNum((len(textInput)-1))
'Assign each character of input to an array element
For i = 0 To UBound(arrAlNum)
arrAlNum(i) = Mid(textInput, i + 1, 1)
Next
'Work through each element to check for presence of invalid character
'(any non-alpha char)
For i = 0 To UBound(arrAlNum)
If Not ((arrAlNum(i) > Chr(47) And arrAlNum(i) < Chr(58)) _
Or (arrAlNum(i) > Chr(64) And arrAlNum(i) < Chr(91)) _
Or (arrAlNum(i) > Chr(96) And arrAlNum(i) < Chr(123))_
Or (arrAlNum(i)=Chr(32))_
or (arrAlNum(i)=Chr(44)) ) _
Then
'msgbox"string is non alphanumeric, chars are not aceptable -->"&arrAlNum(i)
'arrAlNum=arrAlNum(i)
m=len(arrAlNum(i))
'msgbox m
'exit function
else
End If
Next
If m=0 Then
AlphNum=false
else
AlphNum=true
End If
'Return True if no string is only alphanumeric
else print "Length exceeded with specified length 8-32,...length is"&b
end if
end function
Thanks...
Akhalesh Yadav
On Wed, May 22, 2013 at 8:56 PM, Vijaychowthri N <[email protected]>wrote:
> Hi All,
>
> Does any one have a QTP Vb function's kind of data driven frame work
> to validating (validate the boundary of the text box (alpha numeric
> validation as well), check box , radio button, calender Box , URL ,etc )
> the all types of IE objects in the screen.
>
> Tahnks in Advance , Appricate if any one post those set of functions.
>
> Thanks Much
> Vijay C N
>
>
>
>
>
>
> --
> --
> 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 [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
> ---
> You received this message because you are subscribed to the Google Groups
> "QTP - HP Quick Test Professional - Automated Software Testing" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to [email protected].
> For more options, visit https://groups.google.com/groups/opt_out.
>
>
>
--
Akhalesh yadav
+919555717928
+919310680659
--
--
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 [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
