<<< 返回 access911.net 编程静态资料库索引页

用VB6 VBA代码解释UTF-8编码原理及转换为ANSI编码

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2008-10-2  浏览人次:3049


专题地址:http://access911.net/fixhtm/72FABF1E13DCE9F3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


以下文章不是最优方案,只是为了解答网友提问,写的UTF-8解码过程。

本文最后有示例代码下载中,将本文的编码原理具体应用,封装为了一个类(v1.0),并且用自定义事件的技巧实现向用户显示进度条的功能。在v1.1中再增加了一个事件,让用户可以在后期随意选择符合某个条件的文件是否要进行处理。
图片如下:
按此在新窗口浏览图片

'引用 ADO 2.5 以上版本
'引用 DAO 3.6
'   ReadText_TextStream 函数只允许在 Access 环境下使用,
'   需要另外建立表2,3个字段。表2:(id(自动编号),xml(备注),path(文本))


'用VBA的Open来读取文本中的二进制流到数组
Function ReadText_Open()
    Dim strXml As String
    Dim strPath As String
    Dim tb() As Byte
    Dim i As Long
    Dim lngFileNumber As Long
    Dim lngFileLen As Long
    
    
    'strPath = "J:\M.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FABF1E13DCE9F3.htm

 


上一篇:MDB链接SQLSERVER导致写入冲突

下一篇:通用界面,用控件实现(二)

2017年2月22日生成静态资料