
用正则匹配即可
Option ExplicitFunction GetSource$(Source$) '//正则匹配<td></td>
Dim reg As Object
Dim matchs As Object, match As Object
Dim s As String, i As Integer
Set reg = CreateObject("vbscriptregExp")
regGlobal = True
regIgnoreCase = True
regMultiLine = True
regPattern = "<label>()<\/label>"
Set matchs = regExecute(Source)
For Each match In matchs
i = i + 1
s = s & matchSubMatches(0) + vbCrLf
Next
GetSource = s
End Function
Function div$(Source$) '//正则匹配 <div></div>
Dim reg As Object
Dim matchs As Object, match As Object
Dim s As String, i As Integer
Set reg = CreateObject("vbscriptregExp")
regGlobal = True
regIgnoreCase = True
regMultiLine = True
regPattern = "<div>()<\/div>"
Set matchs = regExecute(Source)
For Each match In matchs
i = i + 1
s = s & matchSubMatches(0) + vbCrLf
Next
div = s
End Function
Private Sub Command1_Click()
MsgBox "div标签获取" + vbCrLf + GetSource$(Text1)
MsgBox "label标签获取" + vbCrLf + GetSource$(Text1)
End Sub
在a标签上写个class,用jq写的
$("a标签的class")click(function(){
var text = $(this)parent("td")siblings("td")text();
alert(text)
})
自己加就可以了
如一个表格:
<table><tr><td></td></tr><table>
自己加个tbody 如:
<table><tbody><tr><td></td></tr></tbody><table>
<script type="text/javascript">
function js() {
var item = documentgetElementById("tb"); //获取id为tb的元素(table)
var tbody = itemgetElementsByTagName("tbody")[0]; //获取表格的第一个tbody元素
var trs = tbodygetElementsByTagName("tr"); //获取tbody元素下的所有tr元素
for (var i = 0; i < trslength; i++) { //循环tr元素
if (i % 2 == 0) { //取模
trs[i]stylebackgroundColor = "#888"; //改变符合条件的tr元素的背景色
}
} //没有实现
}
</script>
错了一点
以上就是关于求大神解答如何用VB获取某个网页的<label></label>和<td></td>标签中的值,放在文本框中全部的内容,包括:求大神解答如何用VB获取某个网页的<label></label>和<td></td>标签中的值,放在文本框中、js获取table当前tr行第二列td的值、table 下面的tbody是怎么弄出来的等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)