HTML выделите текст в тегах в VB6

Question

Мне нужно выделить текст внутри тегов HTML, но опробованные мной параметры дают ошибку. При запуске кода во время выполнения возникает ошибка 13

Это пример HTML для фильтрации: dotnetfiddle.net / mk7l1x

Вот код:

Dim start As Long
Dim end As Long
Dim meutext As Long

Txt_nosite.Text = Replace (Txt_nosite.Text, "" "", "Chr (34)")

start = InStr (Txt_nosite.Text, "<p class = Chr (34) p-author timeChr 
(34)> 06/22/2019 08:16 </ p>")
end = InStr (Txt_nosite.Text, "<p class = Chr (34) thumb-description Chr 
(34)>"
meutext = Mid (Txt_nosite.Text, start, end - start)
Txt_nosite.Text = meutext

Answer 1

Непосредственным источником ошибки 13 (несоответствие типов) будет то, что вы присваиваете результаты вызова Mid длинной переменной meutext. Функция Mid возвращает строку, и в этом примере эта строка не может быть преобразована в числовое количество.

Изменение meutext на строку, вероятно, решит эту проблему:

Dim start As Long
Dim end As Long
Dim meutext As String

Txt_nosite.Text = Replace (Txt_nosite.Text, "" "", "Chr (34)")

start = InStr (Txt_nosite.Text, "<p class = Chr (34) p-author timeChr (34)> 06/22/2019 08:16 </ p>")
end = InStr (Txt_nosite.Text, "<p class = Chr (34) thumb-description Chr (34)>"
meutext = Mid (Txt_nosite.Text, start, end - start)
Txt_nosite.Text = meutext

Но как только вы исправите эту ошибку, этот код, вероятно, не даст желаемых результатов. Как подразумевает DaveInCaz, наличие явного вызова функции Chr внутри строковых констант не приведет к вставке кавычки в строку (Chr(34) - это ").