Hi,

When i put the below function in QTP and save it as a VBS/QFL file, it
throws me an error:

Line 1: Expected ')'
Line 9: Expected End of Statement

Function ExtractNumber (String UnformStr)
 Set RegEx = CreateObject("vbscript.regexp")
 RegEx.Pattern = "\d*\.\d*"
 If RegEx.Test(UnformStr) Then
  ExtractNumber = CDbl(RegEx.Execute(UnformStr) (0))
 Else
  ExtractNumber = vbNullString
 End If
End Function

Can you pls help me on this error..

Regards
Guru

-- 
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

Reply via email to