Very interesting issue with regular expression Please Help Me :)

[dzordz]

Hello,

I have big (for me) problem with QTP and VBS. I've tried to find problem solution but Google didn't help.

My problem is:
From string: "37596 AndrzejCzwarty ldskajf@porirker\.plUnlocked2012-11-30 37568 AndrzejDrugi ksjhgjhsdgfui@woeijf\.plLocked2012-11-30 37554 AndrzejPierwszy kdjsfhsjd@sdklj\.plLocked2012-11-30 37582 AndrzejTrzeci lsdhflkadjhf@lsdkf\.plUnlocked2012-11-30 "

I want to take first value like "37554" which is after the word "Locked". Date in string is not always exist (or if exist, is changing), so it means that length is changing. Those numbers are random in every iteration.

So, in above string my variable ought to equals 37554.

Thank You for every help!!

dzordz

[kordirko]

Hi,

try this code:

Code:

Dim strStr strStr = "37596 AndrzejCzwarty ldskajf@porirker\.plUnlocked2012-11-30 37568 AndrzejDrugi ksjhgjhsdgfui@woeijf\.plLocked2012-11-30 37554 AndrzejPierwszy" &_ " kdjsfhsjd@sdklj\.plLocked2012-11-30 37582 AndrzejTrzeci lsdhflkadjhf@lsdkf\.plUnlocked2012-11-30 " & _ "ZdenekSmetana ldskajf@porirker\.p Locked 88888 " & _ "Jan Kowalski ldskajf@porirker\.p Locked " & _ "Jan Nowak ldskajf@porirker\.p Locked 2012-11-30 " Dim oRegx Dim oMatches Set oRegx = new RegExp oRegx.pattern = "Locked(\d{4}-\d{2}-\d{2})*\s\d+\s" oRegx.Global = true Set oMatches = oRegx.Execute(strStr) For Each Match in oMatches ' Iterate Matches collection. strValue = Match.Value strValue1 = Mid( strValue, inStr( strValue, " " ) + 1 ) MsgBox strValue & " =====> " & strValue1 Next

This code assumes that the number that has to be extracted from data is always surrounded by two spaces, that is:
-exactly one space before the number, and exactly one space after the number.

[harishshenoy]

If ur string with date:

Code:

a = "37596 AndrzejCzwarty ldskajf@porirker\.plUnlocked2012-11-30 37568 AndrzejDrugi ksjhgjhsdgfui@woeijf\.plLocked2012-11-30 37554 AndrzejPierwszy kdjsfhsjd@sdklj\.plLocked2012-11-30 37582 AndrzejTrzeci lsdhflkadjhf@lsdkf\.plUnlocked2012-11-30 " b = trim(mid( a , instr( instr(1,a , "Locked") , a , " ") )) c = mid( b , 1 , instr(1 , b , " ") ) msgbox c

Output i got : 37554

If ur string without date:

Code:

a = "37596 AndrzejCzwarty ldskajf@porirker\.plUnlocked2012-11-30 37568 AndrzejDrugi ksjhgjhsdgfui@woeijf\.plLocked 37554 AndrzejPierwszy kdjsfhsjd@sdklj\.plLocked2012-11-30 37582 AndrzejTrzeci lsdhflkadjhf@lsdkf\.plUnlocked2012-11-30 " b = trim(mid( a , instr( instr(1,a , "Locked") , a , " ") )) c = mid( b , 1 , instr(1 , b , " ") ) msgbox c

Output i got : 37554


It worked for me , try ur luck

Thanks,
Harish Shenoy

[RA185112]

Hi,

I have encountered an issue, where in I am working on string.So need help.

String is str1 = "abcrrera 0200******011" , I am trying to use regular exp as the numbers in the string may change.

what is the Patrn that we need to pass?As i have written the code, however i think i am unable to handle "*" spl character in the above string.


Here is the function that i have written. However i am unable to get the pattern? Need help

Code:

Function RegExpTest(patrn ,string) Dim regEx, Match, Matches ''Create variable. Set regEx = New RegExp ' Create regular expression. n = 0 regEx.Pattern =patrn ' Set pattern. regEx.IgnoreCase = True ' Set case insensitivity. regEx.Global = True ' Set global applicability. Set Matches = regEx.Execute(string) ' Execute search. For Each Match in Matches ' Iterate Matches collection. RetStr = RetStr & "Match found at position " MSGBOX RetStr RetStr = RetStr & Match.FirstIndex & ". Match Value is '" MSGBOX RetStr RetStr = RetStr & Match.Value & "'." & vbCRLF MSGBOX RetStr If Match.Value = patrn Then msgbox patrn msgbox Match.Value n = n+1 MSGBOX n End If Next RegExpTest = RetStr MSGBOX RegExpTest If n >1Then Reporter.ReportEvent micPass, "Card Accepted text is Added to ER Area ", "Match Text: is" &patrn & " Repeats " & n & " Times" msgbox patrn & " repeats " & n & "times" Elseif n=1 Then msgbox patrn & " repeats " & n & "times" Reporter.ReportEvent micPass, "test is present", "Match Text: is" &patrn & " Repeats " & n & " Times" msgbox patrn & " repeats " & n & "times" Else Reporter.ReportEvent micFail, "test is not present", "unMatch Text: " & patrn & " Repeats " & n & " Times" msgbox patrn & " repeats " & n & "times" End If End Function

This function is not working. Request you to kindly give a solution to this using reg expression only.
Thanks in advance.

I tried creating a new post, however i am not sure, i dont have permissions , so i am using the relevant tread.

Regards,
Ras