时间戳

首页 > 解决方案 > HTML在VB6中的标签内选择文本

html - HTML在VB6中的标签内选择文本

问题描述

我需要在 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

标签： htmlvb6

解决方案

错误 13（类型不匹配）的直接来源是您将Mid调用结果分配给 long 变量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)is a "）。

推荐阅读