- Код: Выделить всё
Public Function LikeText(Expression As String, Pattern As String) As Boolean
Pattern = "*" & Pattern & "*"
LikeText = Expression Like Pattern
End Function
Он прекрасно находит слово на страничке yandex, и совсем не видет слово со странице google.
А смысл таков, я последовательно, Inet компонентом, сливаю странички, и в цикле, используя вышеуказанную функцию, пытаюсь найти слово (указаное мной выражение-запрос)
Объясните пожалуйста такое поведения Like
Вот код цикла:
- Код: Выделить всё
Do
If cmdCansel.Value = True Then Exit Sub
Que.Caption = txtSrcQuery(0).Text
InText = Inet.OpenURL("http://www.google.com/search?&q=" & txtSrcQuery(0).Text & "&start=" & srcPage)
MsgBox txtSrcQuery(0).Text
MsgBox SITEInSESSION
If LikeText.LikeText(CStr(InText), CStr(SITEInSESSION)) = True Then
lstSrcItems.AddItem TbFr("Google", CStr(srcPage))
Exit Do
End If
srcPage = srcPage + 1
DoEvents
If ExitFlag Then
MsgBox "Searching is complete", vbInformation, App.EXEName
ExitFlag = False
Exit Do
End If
Loop
Посмотрите пожалуйста может кто ошибку заметит, а то у меня уже голова пухнет
. Или все же с Like разобраться?