1

我们正在将 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包含汉字并且它被导出,它们将被转换为问号。如何正确导出汉字?

4

1 回答 1

3

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

于 2013-05-09T11:47:43.143 回答