VB 建UTF-8的文本文件

Question

在VB中怎么建一个UTF-8格式的TXT文件？
保存的内容可以记录。比如:我保存了一条记录后再写另一条记录时也同样能保存进去，而且之前的记录不清除。
如：第一条：aaaaaaaaa 第二条：bbbbbbbbbb 第三条：ccccccccccc 每条记录都跳行。
最好供应代码。谢谢

Answer 1

VB编程下用UTF-8编码编写的文本文件，都会产生一个BOM，这使得转换出来的文件，在系统编译中编译不过去，必须要把BOM去掉，通过代码实现如下：

Dim app As Excel.Application
Dim eworkbook As Workbook
Dim eworksheet As Worksheet
Dim eworksheet_count As Integer
Dim sheetName As String
Dim obj As Object
Dim FileNum
Dim file_path as String
Dim j as Integer
Dim filepath_save as String

    filepath_save = "D:/" 
    Set app = New Excel.Application          //连接EXCEL
    Set eworkbook = app.Workbooks.Open(file_path)
    eworkbook_count = eworkbook.Worksheets.count

    For j = 1 To eworkbook_count
      filepath_path = filepath_save & j & ".txt"
      Set eworksheet = eworkbook.Sheets(j)
      sheetName = eworksheet.Name
      Set obj = New ADODB.Stream     //设置ADODB流
                                      
      With obj
        .Open
        .Charset = "UTF-8"
        .Position = .Size
        .WriteText "helloworld", 1
        .SaveToFile filepath_save
        .Close
      End With

      Set obj = Nothing

      Open filepath_save For Input As #1    //消除UTF-8的BOM
      Line Input #1, str
           mm = Replace(str, str, "msgid """"")
      Close #1
      Open filepath_save For Binary As #FileNum
           Put #FileNum, , mm
      Close #FileNum
    Next j

    Set eworksheet = Nothing
    eworkbook.Close
    Set eworkbook = Nothing
    app.Quit
    Set app = Nothing