第二辑、网页：篡改、保留和屏蔽某些内容

cumulonimbus

蓝天630902 发表于 2012-9-14 20:47
XMLHTTP对象，没有像ｉｅ对象那样的丰富的“标签”元素，所以，操作起来只能死气沉沉地用“Replace , Spl ...

如果我想操纵这几个标签，如何在这几个按钮上显示出这几个的TAG呢？我试了一下，好像没办法办到。请教一下蓝天老师哈
.document.All.tags("i")(i).Value = .document.All.tags("i")(i).ID

蓝天630902

cumulonimbus 发表于 2012-9-17 11:53
如果我想操纵这几个标签，如何在这几个按钮上显示出这几个的TAG呢？我试了一下，好像没办法办到。请教一 ...

Sub 比如说吧()
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "http://baidu.lehecai.com/lottery/qlc/"
        Do Until .readyState = 4
            DoEvents
        Loop
        For i = 0 To .document.All.Length - 1
            If .document.All(i).innerText = "发起合买" Or .document.All(i).innerText = "标准选号" Then .document.All(i).innerText = .document.All(i).tagname
        Next i
    End With
End Sub

cumulonimbus

蓝天630902 发表于 2012-9-17 13:31
Sub 比如说吧()
    With CreateObject("InternetExplorer.Application")
        .Visible = True

你的程序，对像变量或with块变量未设置，程序中途运行中止，不知咋回事？

蓝天630902

cumulonimbus 发表于 2012-9-17 14:45
你的程序，对像变量或with块变量未设置，程序中途运行中止，不知咋回事？

前面加一句：
On Error Resume Next

Sub 比如说吧()
    On Error Resume Next
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "http://baidu.lehecai.com/lottery/qlc/"
        Do Until .readyState = 4
            DoEvents
        Loop
        For i = 0 To .document.All.Length - 1
            If .document.All(i).innerText = "发起合买" Or .document.All(i).innerText = "标准选号" Then .document.All(i).innerText = .document.All(i).tagname
        Next i
    End With
End Sub

cumulonimbus

蓝天630902 发表于 2012-9-17 14:54
前面加一句：
On Error Resume Next

谢谢蓝天老师，我改了一下你的程序代码，想在其标签上显示所有的TAGNAME，可是未获成功，不知是怎么回事？
On Error Resume Next
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://baidu.lehecai.com/lottery/qlc/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        For i = 0 To .document.All.Length - 1
           .document.All.tags("i").Value = .document.All(i).tagname
        Next i
    End With

蓝天630902

cumulonimbus 发表于 2012-9-17 15:07
谢谢蓝天老师，我改了一下你的程序代码，想在其标签上显示所有的TAGNAME，可是未获成功，不知是怎么回事？ ...

对于那些没有子节点的元素是可以的，比如说对“ａ”标签就可以：

Sub 比如说吧()
    On Error Resume Next
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://baidu.lehecai.com/lottery/qlc/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        For i = 0 To .document.All.tags("a").Length - 1
            .document.All.tags("a")(i).innerText = .document.All.tags("a")(i).tagname
        Next i
    End With
End Sub

蓝天630902

但是，对于那些有子节点的标签，还没有更好的办法：

Sub 没有更好的办法()
    On Error Resume Next
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://baidu.lehecai.com/lottery/qlc/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        For i = 0 To .document.All.Length - 1
            If .document.All(i).ChildNodes <> "[object]" And .document.All(i).tagname <> "Title" Then
                .document.All(i).innerText = .document.All(i).tagname
            End If
        Next i
    End With
End Sub

cumulonimbus

蓝天630902 发表于 2012-9-17 18:13
但是，对于那些有子节点的标签，还没有更好的办法：

Sub 没有更好的办法()

程序不太成功，每当程序运行完了，拉一下IE的滚动栏，则会出现这个

蓝天630902

cumulonimbus 发表于 2012-9-17 18:50
程序不太成功，每当程序运行完了，拉一下IE的滚动栏，则会出现这个

拉一下IE的滚动栏，它就重新刷新

cumulonimbus

蓝天630902 发表于 2012-9-17 19:08
拉一下IE的滚动栏，它就重新刷新

哦，那不是下面的转换看不到啦