UC知道vbs 提取网页内容
来源：百度知道 编辑：UC知道 时间：2024/05/23 12:44:16
例:<td height="25" class="left_content_td">
<div align="center"><span class="cardno">卡号658756490</span></div>
</td>
<td height="25" class="left_content_td">
<div align="center"><span class="cardno">密码9308780539</span></div>
</td>
提取其中内容(卡号和密码).用vbs如何实现.谢谢!
假设整段是一个字符串,用vbs从中提出卡号***和密码****.
a=卡号****
b=密码****
<div align="center"><span class="cardno">卡号658756490</span></div>
</td>
<td height="25" class="left_content_td">
<div align="center"><span class="cardno">密码9308780539</span></div>
</td>
提取其中内容(卡号和密码).用vbs如何实现.谢谢!
假设整段是一个字符串,用vbs从中提出卡号***和密码****.
a=卡号****
b=密码****
m是你的上面一串。
m = "xxxxxxxxxxxxxx"
Dim p1, p2, s, l
l = Len("<span class=""cardno"">")
p1 = InStr(1, m, "<span class=""cardno"">")
p2 = InStr(p1, m, "</span>")
s = Mid(m, p1 + l, p2 - p1 - l)
p1 = InStr(p2, m, "<span class=""cardno"">")
p2 = InStr(p1, m, "</span>")
s = s & vbCrLf & Mid(m, p1 + l, p2 - p1 - l)
MsgBox s