ms-office - 使用 DSOFile 2.1 将自定义属性添加到 97/2003 MSOffice 文件 (xls/doc/ppt)

Question

我正在尝试在 ppt 文件上添加自定义属性。但是收到的值（“güsiöçÇÖISÜG”）不等于发送的值（“ğüşiöçÇÖİŞÜĞ”）。

我遇到了这样一个奇怪的情况：

• 通过 LibreOffice 打开 sample.ppt。
• 保存（CTRL+S）并关闭，任何更改都不一定。
• 再次运行代码。
• 并且两个值相等

示例 ppt 文件在这里：https ://drive.google.com/drive/folders/1qTlREuLAAM-I0JIn-htPwLEUwRjQ9IiJ?usp=sharing

有没有人帮帮我，谢谢。

Answer 1

您需要检查 Excel 文件的编码。很可能是软件 (DSO) 生成基于 UTF-8 的文档而不是 UTF-16。例如，您可以尝试使用以下代码：

Dim strEncodingName As String = String.Empty
Dim myStreamRdr As System.IO.StreamReader = New System.IO.StreamReader(myFileName, True)
Dim myString As String = myStreamRdr.ReadToEnd()
strEncodingName = mmFileIA.CurrentEncoding.EncodingName