VB6编程中文件字符编码的简单转换,UTT-8和ANSI以及其它字符集互转

最新推荐文章于 2025-05-18 15:45:58 发布

原创最新推荐文章于 2025-05-18 15:45:58 发布 · 8k 阅读

9 ·

CC 4.0 BY-SA版权

文章标签：

#vb6.0 #编程 #编码 #utf-8

本文介绍了一种使用Adodb.Stream在VB6中实现不同字符集（如ANSI与UTF-8）间转换的方法。该方法简洁高效，适用于需要进行文本编码转换的小型应用程序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近用VB6给公司写个小程序，碰到ANSI与UTF-8互相转换的问题，到网上搜的都是比较复杂的算法。

偶然看到有人使用Adodb.Stream来解决问题，研究了一下确实可行，而且代码简单。分享一下。

'字符集编码转换函数，调用是带三个参数，filename文件路径，charsetIn源文件字符编码，charsetOut想要转换的字符编码
Public Sub CharConvert(ByVal fileName As String, ByVal charsetIn As String, ByVal charsetOut As String)
    Dim stIn As Stream
    Dim stOut As Stream
    Dim s As String
    Set stIn = New ADODB.Stream
    Set stOut = New ADODB.Stream
    stIn.Open
    stOut.Open
    
    '设定源文件的字符编码
    stIn.Charset = charsetIn
    '设定输出文件的字符编码
    stOut.Charset = charsetOut
    
    '读取源文件
    stIn.LoadFromFile (fileName)
    s = stIn.ReadText
    
    '将源文件流复制给输出文件流
    stIn.CopyTo stOut
    
    '输出文件并覆盖
    stOut.WriteText s
    stOut.SaveToFile fileName, adSaveCreateOverWrite
    
    stIn.Close
    stOut.Close
    Set stIn = Nothing
    Set stOut = Nothing
End Sub