我们正在将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
包含中文字符并将其导出,则会将其转换为问号。如何正确输出汉字?
答案 0 :(得分:3)
为流设置字符集“UTF-16”:stream.Open(csvFileName, "UTF-16")
然后它适用于中文。