在VBScript中解析Html字符串（而非文件）

Question

我有一个html字符串（没有任何文件，也不想先将字符串保存为html文件再加载它），我想获取某些标记之间的链接和文本。我试着搜索但没有找到任何帮助。请问有人能帮我解决这个问题吗？

提前感谢。

- Jyotish Singh

Answer 1

好的，我不太熟悉这些工具，所以让我们手动操作；首先，让我们去除不需要的换行符：

myChain = Replace(myChain, Chr(13), "")
myChain = Replace(myChain, Chr(10), "")

现在，让我们找到第一个出现的标签：

beginLink = Instr(1, myChain, "<mytag>") + Len("<mytag>")
endLink = Instr(1, myChain, "</mytag>")
lenLink = endLink - beginLink
myLink = Mid(myChain, beginLink, lenLink)

如果您需要查找相同标签的下一个出现，则将1替换为前一个标签的结尾。

newPosition = endLink + Len("<mytag>")
beginLink = Instr(newPosition , myChain, "<mytag>") + Len("<mytag>")
endLink = Instr(newPosition , myChain, "</mytag>")

等待你编写正确的循环代码。

- gazzz0x2z

---

谢谢您的解决方案，但是否有可用的解析器可以像我们处理XML一样解析HTML？ - Jyotish Singh

我写了那段代码是因为我不知道那个工具的答案。如果要编写一个带有一些功能的完整工具，我想可能需要几个小时的时间，基于我在这里所写的内容。 - gazzz0x2z