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

ETC...

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