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

Question

我试图在ppt文件中添加自定义属性。但收到的价值(“güsi is g is G”)并不等于发送值(“ğüşIİŞĞ”)。

​

​

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

LibreOffice.

• Save (
• )打开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