- Код: Выделить всё
BgStr = "topictitle""" & ">" 'Эта строка предшествует заголовку
EndStr = "<" 'А после заголовка всегда идет "<"
For i = 1 To Len(AllText) 'В переменной AllText - весь HTML код страницы
If Mid(AllText, i, Len(BgStr)) = BgStr Then 'Нашел заголовок
s = Mid(AllText, i + Len(BgStr)) 'Сохранил в переменную с заголовка до конца документа
l = InStr(s, EndStr) - 1 'Ищу позицию конца заголовка "<"
If l > 0 Then Text1.Text = Text1.Text & Mid(AllText, i + Len(BgStr), l) & vbCrLf
End If
Next i
Работает, но хотелось бы узнать, можно ли сразу узнать длину строки находящейся между признаками ее начала и конца, которую я оределяю
- Код: Выделить всё
l = InStr(s, EndStr) - 1
Спасибо.
