采集网页时用like运算符比较字符串时为何会内存溢出？

chen8497046

偶然出现的问题，把采集到的数据放进剪贴板以后再查找不会出问题，不知道有没有哪位老师能帮忙解答一下是什么原因，示例代码如下，因为没有原始数据，就不放附件了。
[code=vb]Option Explicit
Option Compare Text
Option Base 1
Sub pageget()
    Dim tt As String, url As String, winhttp As Object
    On Error Resume Next
    Set winhttp = CreateObject("Microsoft.XMLhttp")
    url = "http://changhaiyayuan.soufun.com/"
    With winhttp
        .Open "GET", url, False
        .send
        tt = StrConv(.responsebody, vbUnicode)
    End With
    If tt Like "*更多详细信息*" Then
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
End Sub[/code]

chen8497046

Zamyi 发表于 2013-7-11 18:26
日本鬼子搞的鬼：
Debug.Print "ピセズ⊙" Like "*A*"

刚刚我也查到了，而且貌似正则面对日文也会有BUG，不知道要怎么处理比较好？

Zamyi

日本鬼子搞的鬼：
Debug.Print "ピセズ⊙" Like "*A*"

Zamyi

chen8497046 发表于 2013-7-11 18:32
刚刚我也查到了，而且貌似正则面对日文也会有BUG，不知道要怎么处理比较好？

正则没有问题：

1. With CreateObject("VBSCRIPT.REGEXP")
   
2.   .Global = True
   
3.   .Pattern = "セ"
   
4.   MsgBox .Replace("ピセズ⊙", "")
   
5. End With

复制代码

chen8497046

Zamyi 发表于 2013-7-11 18:46
正则没有问题：

呃，好吧多谢了，看来还是没办法，我老老实实把代码里20多个like全部用正则改写一次.....
苦死我也T_T