GB2312编码的文件转为不带Bom的utf-8文件

xjoger

各位大神，我需要把GB2312编码的文件转为不带Bom的utf-8编码文件，不知VBA能否实现？

morpheus126

帮顶，同关注，谢谢！

xjoger

补充一下，附件aaa.NC是一个GB2312编码的文本文件，如何通过VBA转为不带BOM的UTF-8编码的文件

wanghan519

xjoger 发表于 2024-5-21 10:49
补充一下，附件aaa.NC是一个GB2312编码的文本文件，如何通过VBA转为不带BOM的UTF-8编码的文件

要不试试批处理
bat里那两句，放到国产linux或手机上不用改一样用

perfect131

xjoger 发表于 2024-5-21 10:49
补充一下，附件aaa.NC是一个GB2312编码的文本文件，如何通过VBA转为不带BOM的UTF-8编码的文件

这样  9楼
https://club.excelhome.net/forum ... 79&pid=11502091

xjoger

wanghan519 发表于 2024-5-21 10:57
要不试试批处理
bat里那两句，放到国产linux或手机上不用改一样用

谢谢！批处理我之前已经搞过，但我们实际使用的电脑上有权限设置，批处理执行起来很麻烦，因而想用VBA直接处理生成

xjoger

perfect131 发表于 2024-5-21 11:35
这样  9楼
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1657979&pid=115 ...

我试试，谢谢！

xjoger

perfect131 发表于 2024-5-21 11:35
这样  9楼
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1657979&pid=115 ...

perfect131：高手，搞定了！这个困扰我1个多星期，试了很长时间，基本只能输出带BOM的UTF-8文件，不带BOM的都不行。
       你的代码完美解决，感谢！

xjoger

perfect131：你的代码单独运行确实可以的，但我用别的VBA代码来调用，发现不行，研究了一下，发现是因为覆盖原文件aaa.NC导致的，把代码改为另存为bbb.NC就好了。

xjoger

根据这个现象，我审视上周的代码，发现只要输出的文件名与原先不一样，不要覆盖也是可以的。
Sub WriteANSItoUF8WithoutBOM(strFile1 As String, strFile2 As String) 'GBK转不带BOM的utf-8码，要另存为不同的文件，否则不行
        Set UTFStream = CreateObject("ADODB.Stream")
        Set ANSIStream = CreateObject("ADODB.Stream")
        Set BinaryStream = CreateObject("ADODB.Stream")
        
        ANSIStream.Type = 2 'adTypeText
        ANSIStream.Mode = 3 'adModeReadWrite
        ANSIStream.Charset = "GB2312"
        ANSIStream.Open
        ANSIStream.LoadFromFile strFile1  'ANSI File
        
        UTFStream.Type = 2  'adTypeText
        UTFStream.Mode = 3  'adModeReadWrite
        UTFStream.Charset = "UTF-8"
        UTFStream.Open
        ANSIStream.CopyTo UTFStream
        
        
        UTFStream.Position = 3  'skip BOM
        BinaryStream.Type = 1   'adTypeBinary
        BinaryStream.Mode = 3   'adModeReadWrite
        BinaryStream.Open
        
        'Strips BOM (first 3 bytes)
        UTFStream.CopyTo BinaryStream
        
        BinaryStream.SaveToFile strFile2, 2 '要另存为不同的文件，否则不行
        BinaryStream.Flush
        BinaryStream.Close
End Sub