使用“ADODB.Stream”将ANSI转换为UTF-8，在第一行中错过1-2个字符

Question

我需要转换＆＃34; ANSI＆＃34; csv文件到＆＃34; UTF-8＆＃34; csv文件。 下面的代码可以工作，但第一个字符错过 请参阅随附的屏幕截图， 原始文件：客户 输出文件：﨏ustomer

Function Convert(myFileIn, myFileOut)
  Dim stream ,strTextText
  Set stream = CreateObject("ADODB.Stream")

  stream.Open
  stream.Type = 2 'text
  stream.LoadFromFile myFileIn
  stream.Position = 0
  stream.Charset = "gb2312"
  strText = stream.ReadText
  stream.Close

  stream.Open
  stream.Type = 2
  stream.Position = 0
  stream.Charset = "utf-8"
  stream.WriteText strText
  stream.SaveToFile myFileOut, 2
  stream.Close
  Set stream = Nothing

End Function

Answer 1

你必须设置

stream.Type

和

stream.Charset

在打开流之前

。

默认情况下，stream.Position为0。

问候

阿克塞尔