小白也抓网——分享网抓作品

VBA万岁

VBA万岁 发表于 2014-11-19 11:21
160楼链接网页中的表格（一）共有144个待转换的字符，我只在常变量中用了其中常见的字符，其他的全用数 ...

补充一点，若待转换的网址字符串中含有数字，则需将常数变量str中的前29个数字全部用空格字符（或者160楼链接网页中的表格内前面29个待转字符）占位。

VBA万岁

renahu 发表于 2014-11-19 10:39
能不能再做个把网址所有字符都转成%24%30%40%。。。。，？网上的工具只能转汉字之类的，字母，数字都不转

这个问题现已经得到解决，详见吴姐的帖子第20楼及513楼）：
不懂html也来学网抓（xmlhttp/winhttp+fiddler）

VBA万岁

VBA万岁 发表于 2014-11-20 11:35
这个问题现已经得到解决，详见吴姐的帖子第20楼及513楼）：
不懂html也来学网抓（xmlhttp/winhttp+fiddl ...

以下test2代码可能有误——因为我没见过汉字的unicode码（即“\u”形式的编码），你能传一些汉字的unicode码上来测试吗？

Function GBKEnCode(strText)
    Dim i, s
    For i = 1 To Len(strText)
        s = Hex(Asc(Mid(strText, i, 1)))
        If Len(s) = 4 Then s = Left(s, 2) & "%" & Right(s, 2)
        GBKEnCode = GBKEnCode & "%" & s
    Next
End Function

Sub test2()
    MsgBox Replace(GBKEnCode("HTTP://www.apabi.com/ValidateCode.aspx的"), "%", "\u00")
End Sub

VBA万岁

renahu 发表于 2014-11-20 23:33
那就是：

我觉得第5句应改为：
s =IIf(Len(s) = 4, "", "00") & s

——汉字的unicode码应该不以"\u00"开头的，是吗？

VBA万岁

renahu 发表于 2014-11-21 12:20
我觉得第5句应改为：
\u6211\u89C9\u5F97\u7B2C5\u53E5\u5E94\u6539\u4E3A\uFF1A

关于字符串与其unicode码之间的互换，请参见如下代码：

1. Private Function Encode(strEncode As String) As String
   
2.     Dim i As Long
   
3.     Dim chrTmp As String
   
4.     Dim ByteLower As String
   
5.     Dim ByteUpper As String
   
6.     Dim strReturn As String
   
7.     For i = 1 To Len(strEncode)
   
8.         chrTmp$ = Mid(strEncode, i, 1)
   
9.         ByteLower$ = Hex$(AscB(MidB$(chrTmp$, 1, 1)))
   
10.         If Len(ByteLower$) = 1 Then ByteLower$ = "0" & ByteLower$
    
11.         ByteUpper$ = Hex$(AscB(MidB$(chrTmp$, 2, 1)))
    
12.         If Len(ByteUpper$) = 1 Then ByteUpper$ = "0" & ByteUpper$
    
13.         strReturn$ = strReturn$ & "\u" & ByteUpper$ & ByteLower$
    
14.     Next
    
15.     Encode = strReturn$
    
16. End Function
    
17. 
    
18. Sub 获取字符串unicode码()
    
19.     ActiveCell = "HTTP://www.apabi.com/ValidateCode.aspx我觉得第5句应改为："
    
20.     MsgBox Encode(ActiveCell)
    
21.     ActiveCell.Offset(1) = Encode(ActiveCell)
    
22.     ActiveCell.Offset(1).Select
    
23. End Sub
    
24. 
    
25. Function unescape(strTobecoded As String) As String
    
26.     With CreateObject("msscriptcontrol.scriptcontrol")
    
27.         .Language = "JavaScript"
    
28.         unescape = .Eval("unescape('" & strTobecoded & "');")
    
29.     End With
    
30. End Function
    
31. 
    
32. Sub 根据unicode码返回字符串()
    
33.     MsgBox unescape(ActiveCell)
    
34.     ActiveCell.Offset(-1).Select
    
35. End Sub
    

复制代码

VBA万岁

VBA万岁 发表于 2014-11-21 16:43
关于字符串与码之间的互换，请参见如下代码：

其中，Encode函数的出处见于如下帖子1楼的第2段代码：
http://club.excelhome.net/forum.php?mod=viewthread&tid=1146746

VBA万岁

VBA万岁 发表于 2014-11-18 10:51
在ThisWorkbook中增加如下代码（红色字体部分），以在打开工作薄时获取图书分类数据。

Private Sub Wo ...

第3版的在打开工作簿时，为了方便看到工作表中的验证码，可在ThisWorkbook中加上如下代码以使窗体最大化：
Application.WindowState = xlMaximized