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

xjoger · 发表于 2024-5-20 21:04

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

morpheus126 · 发表于 2024-5-20 21:24

帮顶，同关注，谢谢！

xjoger · 发表于 2024-5-21 10:49

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

wanghan519 · 发表于 2024-5-21 10:57

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

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

perfect131 · 发表于 2024-5-21 11:35

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

这样

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

xjoger · 发表于 2024-5-21 12:48

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

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

xjoger · 发表于 2024-5-21 12:53

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

我试试，谢谢！

xjoger · 发表于 2024-5-21 15:28

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 · 发表于 2024-5-21 16:52

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

xjoger · 发表于 2024-5-21 16:54

根据这个现象，我审视上周的代码，发现只要输出的文件名与原先不一样，不要覆盖也是可以的。
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

		自动登录	找回密码
密码			免费注册

[求助] GB2312编码的文件转为不带Bom的utf-8文件