vb 用最简短的代码获取这几个字符 (满足要求的话追加分数)

来源：百度知道 编辑：UC知道 时间：2024/07/04 10:31:11
<table style="table-layout:fixed;width:100%"><tr><td><div id="blog_text" class="cnt" >version:V1.30
URL:Loading</div></td></tr></table>

我想分别获取 V1.30 和 Loading (这两个字符串的长度不定,只要能分别获取到version: 和 URL: 后面的字符串即可)
还是不能获取URL后面的

1
t = "<table style=""""table-layout:fixed;width:100%""""><tr><td><div id=""""blog_text"""" class=""""cnt"""" >version:V1.30"
t = Mid(t, InStr(t, "version:") + 8)

2
URL:后面不仅有Loading还有</div></td></tr></table>
你到底是要取哪个？如果只取loading，那么需要设置mid的第3个参数

t = "URL:Loading</div></td></tr></table>"
t = Mid(t, InStr(t, "URL:") + 4, InStr(t, "</div>") - InStr(t, "URL:") - 4)

Dim s As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
s = "<table style=table-layout:fixed;width:100%><tr><td><div id=blog_text class=cnt >version:V1.30" + vbCrLf + "URL:Loading</div></td></tr></table>"
i = InStr(s,