在VBScript中解析Html字符串（Not File）

Question

我有一个HTML字符串（不要有任何类型的文件，并且不想先将我的字符串保存为html文件，然后加载它）我希望得到一些链接和文本某些标签。我试图搜索，但没有找到任何运气。有人可以帮我解决这个问题。 提前谢谢。

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>")

等...

我让你在那里做一个适当的循环。