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)是"）。