vb adodb.stream write写入网页代码为utf8编码的问题

2009-10-08 03:52:30 1.5k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Unicode与UTF-8编码详解：从乱码根源到多语言开发实战字符编码是计算机处理文本信息的基础，它定义了字符与二进制数字之间的映射关系。其核心原理在于为每个字符分配唯一的数字标识，以实现跨平台、跨语言的数据交换与显示一致性。这一技术的核心价值在于彻底解决了早期因编码标准不统一导致的乱码问题，为全球化的软件开发和互联网应用奠定了基石。在实际应用场景中，尤其在Web开发、多语言软件和数据处理领域，统一的字符编码标准至关重要。本文聚焦于Unicode这一全球通用的字符集标准及其主流编码方案UTF-8，深入剖析码点、平面等核心概念，并针对网页乱码、PHP/C++/VB等语言阅读详情

从网页通过inet控件的Inet1.GetChunk读取其代码，然后想转换为汉字，转换代码如下
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim strRecText As String
Dim strBuffer As String
Select Case State
Case 1
StatusBar1.Panels(2) = "正在查询主机的IP"
Case 2
StatusBar1.Panels(2) = "成功找到主机的IP"
Case 3
StatusBar1.Panels(2) = "正在于主机链接"
Case 4
StatusBar1.Panels(2) = "与主机链接成功"
Case 5
StatusBar1.Panels(2) = "正在向主机传送命令"
Case 6
StatusBar1.Panels(2) = "成功向主机传送命令"
Case 7
StatusBar1.Panels(2) = "正在接收主机的响应"
Case 8
StatusBar1.Panels(2) = "成功接收主机的响应"
Case 11
StatusBar1.Panels(2) = "超时"
Case 12
Do
strBuffer = Inet1.GetChunk(10240)
strRecText = strRecText & strBuffer
Loop Until Len(strBuffer) = 0
'Print #3, strRecText
'此次开始调用转换函数（utf8编码转为汉字）
str = BytesToBstr(StrRecData, "utf-8")
’处理转换后的代码
Call WrRecToHFLex(str)
Case Else
StatusBar1.Panels(2) = "其他情况！！"
End Select
End Sub

’转换函数

Function BytesToBstr(strBody, CodeBase)
Dim objStream
Set objStream = CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode = 3
objStream.Open
'objStream.LoadFromFile strBody
If Len(strBody) <> 0 Then objStream.Write (strBody)
objStream.Position = 0
objStream.Type = 2
objStream.Charset = CodeBase
BytesToBstr = objStream.ReadText
objStream.Close
Set objStream = Nothing
End Function

运行后出现实时错误：“实时错误'3001': 参数类型不正确，或不在可接受范围之内，或与其他参数冲突。”，按调试，就是红色字哪里出错（If Len(strBody) <> 0 Then objStream.Write (strBody)）这里出错，请各位高手指点一下，错在哪里，我查了网上很多资料，很多都出现了这个错误，但没有被根本解决；我也尝试把这段代码改为：If Len(strBody) <> 0 Then objStream.WriteText (strBody)但出现错误为“实时错误'3219':在此环境中不允许操作；小弟刚入行，不懂这些这么高深的用法，请路过大侠帮帮我啊，在此谢过，并在线等

...全文

告别TI官网迷路！手把手教你用C2000Ware为TMS320F28027搭建Proteus仿真工程模板本文详细指导如何使用C2000Ware为TMS320F28027搭建Proteus仿真工程模板，帮助DSP开发者快速上手。从资源获取、工程目录设计到关键文件配置，再到CCS与Proteus的联调技巧，全面解析仿真工程搭建的每个步骤，特别适合初学者和工程师参考。阅读详情

glowing_yu

网络编程 1,502 成员 18,427 内容

+ 关注 + 加入社区

切换为时间正序

glowing_yu 2009-10-13

打赏
举报

CityBird 请问没有更好的办法吗？

glowing_yu 2009-10-12

打赏
举报

如果要一个个的来判断，然后是这样的编码时用chrw（）的话，速度也很慢，同时也要判断是否是中文

glowing_yu 2009-10-12

打赏
举报

[Quote=引用 21 楼 citybird 的回复:]
引用 20 楼 glowing_yu 的回复:
CityBird在吗？今天测试了后又出现乱码了？请问什么问题啊？乱码：迈阿密热火帖子已经结了，麻烦您帮我在解决一下，谢谢

这个不是乱码，CHRW(36808)就得出对应的汉字了。
[/Quote]
这个是在取下来的网页里面哦，这样是不是还要每一个都拿出来，然后通过CHRW(36808)来转换，如果这样会很慢的，有没有更快的方法啊，因为一个网页读下来后的代码，不一定就只有这几个

三楼の郎 2009-10-12

打赏
举报

[Quote=引用 19 楼 glowing_yu 的回复:]
补充：也就是说我想得到我获取到的网页内容的大小，像我们看到的文件大小那样多少K？谢谢
[/Quote]
你可以尝试用Inet.GetHeader("Content_Length")取得网页的大小，但是这个不一定都能取到！

三楼の郎 2009-10-12

打赏
举报

[Quote=引用 20 楼 glowing_yu 的回复:]
CityBird在吗？今天测试了后又出现乱码了？请问什么问题啊？乱码：迈阿密热火帖子已经结了，麻烦您帮我在解决一下，谢谢
[/Quote]
这个不是乱码，CHRW(36808)就得出对应的汉字了。

三楼の郎 2009-10-12

打赏
举报

[Quote=引用 24 楼 glowing_yu 的回复:]
如果要一个个的来判断，然后是这样的编码时用chrw（）的话，速度也很慢，同时也要判断是否是中文
[/Quote]
这玩意不用转，IE里输出的就是中文。

glowing_yu 2009-10-12

打赏
举报

[Quote=引用 25 楼 citybird 的回复:]
引用 24 楼 glowing_yu 的回复:
如果要一个个的来判断，然后是这样的编码时用chrw（）的话，速度也很慢，同时也要判断是否是中文

这玩意不用转，IE里输出的就是中文。
[/Quote]
我不是要输出在ie哦，我要把读到的数据写入数据库啊，所以还得转为中文，麻烦帮我想想办法，还有就是我想问，怎么会突然出现这个现象呢？大多数都正常转换问汉字？谢谢

glowing_yu 2009-10-11

打赏
举报

CityBird在吗？今天测试了后又出现乱码了？请问什么问题啊？乱码：迈阿密热火帖子已经结了，麻烦您帮我在解决一下，谢谢

glowing_yu 2009-10-11

打赏
举报

补充：也就是说我想得到我获取到的网页内容的大小，像我们看到的文件大小那样多少K？谢谢

glowing_yu 2009-10-11

打赏
举报

谢谢您 CityBird ：你一说就提醒了我，之前我只是记录了总时长，你一说后我把各处理过程的时长都记录了，我下载一个网页大小为7k左右，数组处理用了1～2秒，UTF-8编码转换用了0～1秒，正则表达式处理时长最长用了6秒，服务器延时：1秒；我觉得应该要优化一下正则表达式处理的代码，不知道您有没有更好的方法来优化呢？还有就是请问如果想得到下载网页的长度，用什么较好的方法来获取呢？这个是额外加的，希望您别介意，我先把贴给结了。谢谢您的指点

三楼の郎 2009-10-10

打赏
举报

处理什么速度更快的方法，下载网页、UTF-8编码转换还是数组处理？10秒钟主要花在什么地方了，什么地方是瓶颈？

glowing_yu 2009-10-10

打赏
举报

请问还有没有比这个处理起来速度更快的啊方法啊？谢谢这个读取数据30k左右平均需要10秒左右，想缩短时间

glowing_yu 2009-10-10

打赏
举报

能跟我说说吗？如果您不介意的话，让我明白透点

三楼の郎 2009-10-10

打赏
举报

小技巧而以，很多人都知道

glowing_yu 2009-10-10

打赏
举报

CityBird 您好，不好意思，这两天出差了，今天回来按照您提供的代码和思路已经把问题解决了，非常谢谢您，我结贴时会另给您加50分，我是个菜鸟，希望高手您日后多多指点哦。在结贴前有问题想请教一下您：您是怎么想到要用Api CopyMemory来写数组啊？能把您的思路告知我吗？因为如果是我的话，根本就不会想到这里，谢谢您！

三楼の郎 2009-10-09

打赏
举报

Option Explicit



Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)



Private Sub Command1_Click()

    Inet1.Execute "http://ask.koubei.com/question/1306083100901.html"

End Sub



Function BytesToBstr(ByRef arrBody() As Byte, ByVal CodeBase As String) As String

    '无数据

    If UBound(arrBody) = 0 Then

        BytesToBstr = ""

        Exit Function

    End If

    

    Dim objStream As New ADODB.Stream



    objStream.Type = adTypeBinary

    objStream.Mode = adModeReadWrite

    objStream.Open

    

    objStream.Write arrBody



    objStream.Position = 0

    objStream.Type = adTypeText

    objStream.Charset = CodeBase

    

    BytesToBstr = objStream.ReadText

    objStream.Close

    Set objStream = Nothing

End Function



Private Sub Inet1_StateChanged(ByVal State As Integer)

    Select Case State

    Case 12

        Dim arrBuffer() As Byte         '累计接收的数据

        Dim tmpBuffer() As Byte         '单次GetChunk获得的数据

        Dim recCount As Long            '累计接收的字节数

        Dim strRecText As String

        

        tmpBuffer = Inet1.GetChunk(1024, icByteArray)

        recCount = UBound(tmpBuffer)

        

        Do

            ReDim Preserve arrBuffer(recCount + UBound(tmpBuffer))

            CopyMemory arrBuffer(recCount), tmpBuffer(0), UBound(tmpBuffer)

            recCount = recCount + UBound(tmpBuffer)

            

            tmpBuffer = Inet1.GetChunk(1024, icByteArray)

        Loop Until UBound(tmpBuffer) < 0

        

        strRecText = BytesToBstr(arrBuffer, "utf-8")

    End Select

End Sub

参考这个改改吧，希望Yahoo的同志不要找我麻烦，我拿它们的网站做测试

三楼の郎 2009-10-09

打赏
举报

上面那个有点问题，前面有1024个ASCII码为0的字符，用下面这个

Option Explicit



Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)



Private Sub Command1_Click()

    Inet1.Execute "http://ask.koubei.com/question/1306083100901.html"

End Sub



Function BytesToBstr(ByRef arrBody() As Byte, ByVal CodeBase As String) As String

    '无数据

    If UBound(arrBody) = 0 Then

        BytesToBstr = ""

        Exit Function

    End If

    

    Dim objStream As New ADODB.Stream



    objStream.Type = adTypeBinary

    objStream.Mode = adModeReadWrite

    objStream.Open

    

    objStream.Write arrBody



    objStream.Position = 0

    objStream.Type = adTypeText

    objStream.Charset = CodeBase

    

    BytesToBstr = objStream.ReadText

    objStream.Close

    Set objStream = Nothing

End Function



Private Sub Inet1_StateChanged(ByVal State As Integer)

    Select Case State

    Case 12

        Dim arrBuffer() As Byte         '累计接收的数据

        Dim tmpBuffer() As Byte         '单次GetChunk获得的数据

        Dim recCount As Long            '累计接收的字节数

        Dim strRecText As String

        

        recCount = 0

        tmpBuffer = Inet1.GetChunk(1024, icByteArray)

        

        Do

            ReDim Preserve arrBuffer(recCount + UBound(tmpBuffer))

            CopyMemory arrBuffer(recCount), tmpBuffer(0), UBound(tmpBuffer)

            recCount = recCount + UBound(tmpBuffer)

            

            tmpBuffer = Inet1.GetChunk(1024, icByteArray)

        Loop Until UBound(tmpBuffer) < 0

        

        strRecText = BytesToBstr(arrBuffer, "utf-8")

    End Select

End Sub

三楼の郎 2009-10-08

打赏
举报

通讯的问题，以字符流方式通讯的时候每个字节的取值范围为0-127，不是0-255,所以采用这种方式通讯的时候如果出现超过127的字节数据，接收方实际收到的数据就有问题，你现在碰到的就是这种问题。
Function GetChunk(Size As Long, [DataType])
这个是Inet的GetChunk方法的定义，第二个[DataType]参数有两个值icByteArray和icString，默认是icString，要解决这个问题把第二个参数改成icByteArray就可以了。

glowing_yu 2009-10-08

打赏
举报

To 7楼的高手CityBird 您好，按照您所说的我更改了，没有报错了能转换成功，但转换后有一部分没有转换，显示像“？”问号这样的乱码？而大部分都被正确转换了，请问是什么原因啊？谢谢

Flyingdragon168 2009-10-08

打赏
举报

沒整個這樣的問題，幫你頂一下吧。

加载更多回复（7）

vb adodb.stream write写入网页代码为utf8编码的问题

相关推荐