同一网址，数组取到的值和字典取到的值不同是为什么？

cunfu2010

Sub test()
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", "http://www.ting299.com/yousheng/119.html", False
        .send
        strtext = .responsetext
        With CreateObject("htmlFile")
            .body.innerHTML = strtext
            Set dic = CreateObject("scripting.dictionary")
            k = .getElementById("playlist").getElementsByTagName("a").Length
            ReDim arr(1 To k)
            For Each tr In .getElementById("playlist").getElementsByTagName("a")
                i = i + 1
                arr(i) = tr.innerText  '取到了612个值
                If Not dic.Exists(tr.innerText) Then dic(tr.innerText) = i  '取到了256个值  dic.count是612
            Next
        End With
    End With
End Sub

taller

cunfu2010

taller 发表于 2022-1-30 06:46

谢谢！
请问：这是什么原因？数组就没事

perfect131

可能字典只会显示部分item而已，并不只有256 key

1. Sub test()
   
2.     With CreateObject("WinHttp.WinHttpRequest.5.1")
   
3.         .Open "GET", "http://www.ting299.com/yousheng/119.html", False
   
4.         .send
   
5.         strtext = .responsetext
   
6.         With CreateObject("htmlFile")
   
7.             .body.innerHTML = strtext
   
8.             Set dic = CreateObject("scripting.dictionary")
   
9.             k = .getElementById("playlist").getElementsByTagName("a").Length
   
10.             ReDim arr(1 To k)
    
11.             For Each tr In .getElementById("playlist").getElementsByTagName("a")
    
12.                 i = i + 1
    
13.                 arr(i) = tr.innerText  '取到了612个值
    
14.                 If Not dic.Exists(tr.innerText) Then dic(tr.innerText) = i  '取到了256个值  dic.count是612
    
15.             Next
    
16.         End With
    
17.     End With
    
18.     Key = dic.keys
    
19. End Sub

复制代码

key数组就是字典全部key

taller

cunfu2010 发表于 2022-1-30 09:36
谢谢！
请问：这是什么原因？数组就没事

字典没有问题