Aqstring.find cannot find the string
So I am using Aqstring.Find to find a substring of a string. My 2 strings are strcomp ="currdaybookvoucherinvoicedateduedateropenamount(tc)openamount(bc)withinterms1monthsoverdue2monthsoverdue3mon...
Forum Discussion
If I create a seperate script and do this and assign the values to strcomp and ss it works fine, but does not seem to work in my main script. Here is a snippet:
'-----------------
Dim arySub
Dim iCounter, iPos
Dim strComp
arySub = Split(strMatch, WILDCARD_STRING)
strComp = strTarget
For iCounter = 0 to UBound(arySub)
'Cater for if the last array is blank it wont return a match
If strComp = "" And UBound(arySub)<> iCounter Then
IsWildMatched = false
Exit function
End IF
iPos = aqstring.find(strComp, arySub(iCounter))
'not found
If arySub(iCounter) = "" Then
'Ignore
strIgnore = True
else If iPos <= 0 Then
IsWildMatched = False
Exit Function
End If
end if
If strIgnore = False Then
strComp = Mid(strComp, iPos + Len(arySub(iCounter)))
End If
strignore = False
Next
'all sub-strings are found
IsWildMatched = True
I have attached a file of the watchlist during run time, maybe it is something small I cannot see but it looks like everything is ok.
Any ideas
'-----------------
Dim arySub
Dim iCounter, iPos
Dim strComp
arySub = Split(strMatch, WILDCARD_STRING)
strComp = strTarget
For iCounter = 0 to UBound(arySub)
'Cater for if the last array is blank it wont return a match
If strComp = "" And UBound(arySub)<> iCounter Then
IsWildMatched = false
Exit function
End IF
iPos = aqstring.find(strComp, arySub(iCounter))
'not found
If arySub(iCounter) = "" Then
'Ignore
strIgnore = True
else If iPos <= 0 Then
IsWildMatched = False
Exit Function
End If
end if
If strIgnore = False Then
strComp = Mid(strComp, iPos + Len(arySub(iCounter)))
End If
strignore = False
Next
'all sub-strings are found
IsWildMatched = True
I have attached a file of the watchlist during run time, maybe it is something small I cannot see but it looks like everything is ok.
Any ideas