将中文字符导出为CSV文件会导致将其转换为问号

Question

我们正在将Lotus Notes文档导出为CSV文件。一些领域中有汉字。它们在Lotus Notes中可见（虽然我不理解它们），但是当我们将它们导出到CSV文件时，它们会转换为问号。以下是我用于导出的代码段：

fieldNames = Split("Field1,Field2,Field3,Field4", ",")

Set stream = session.CreateStream

If stream.Open(csvFileName) Then
    Call stream.Truncate()

    Forall f In fieldNames
        Call stream.WriteText("""" + doc.GetItemValue(f)(0) + """,")
    End Forall
    .....
    .....
    .....
End If

如果字段Field1包含中文字符并将其导出，则会将其转换为问号。如何正确输出汉字？

Answer 1

为流设置字符集“UTF-16”：stream.Open(csvFileName, "UTF-16")然后它适用于中文。