使用 Visual Basic 读取 Unicode INI 文件

Question

使用 Visual Basic 从 Unicode INI 文档中读取 INI 值。

我认为这是正确的：

Private Class NativeMethods
    ' AJT 2014.11.28 Use the unicode function !!!
    <DllImport("kernel32", CharSet:=CharSet.Unicode)>
    Public Shared Function WritePrivateProfileString(section As String, key As String, val As String, filePath As String) As Boolean
    End Function

    ' AJT 2014.11.28 Use the unicode function !!!
    <DllImport("kernel32", CharSet:=CharSet.Unicode)>
    Public Shared Function GetPrivateProfileString(section As String, key As String, def As String, retVal As StringBuilder, size As Integer, filePath As String) As Integer
    End Function
End Class

但是当我从 INI 文件中读取俄语数据时，我得到了问号。

然后我偶然发现了this，它定义了：

Private Declare Function GetPrivateProfileString _
   Lib "kernel32" Alias "GetPrivateProfileStringA" _
  (ByVal lpSectionName As String, _
   ByVal lpKeyName As Any, _
   ByVal lpDefault As String, _
   ByVal lpbuffurnedString As String, _
   ByVal nBuffSize As Long, _
   ByVal lpFileName As String) As Long

我注意到他们使用了GetPrivateProfileStringA，这让我觉得我可能需要使用GetPrivateProfileStringW，但现在我很困惑，因为我正在使用：

<DllImport("kernel32", CharSet:=CharSet.Unicode)>

请帮忙。

Answer 1

您提供的链接早于 .NET。您正在查看的内容（Lib "kernel32" Alias "GetPrivateProfileStringA" 语法）实际上是在 VB6 等中导入非托管类型等的旧方法。此语法在 VB.NET 中仍然有效，但已被 @ 取代987654325@ 功能。如果使用这种较旧的处理方式，您是正确的，因为您需要指定 "GetPrivateProfileStringW" 而不是 "GetPrivateProfileStringA"。

关于您遇到的问题，俄语字符可能不是问题的实际原因；可能是您只是在取回垃圾数据。如果您的 DllImport 方法的参数未使用一个或多个参数的正确类型定义，则可能会发生这种情况。

尝试查看以下链接。 PInvoke 网站通常包含有关如何正确定义方法签名的有用信息： https://www.pinvoke.net/default.aspx/kernel32.getprivateprofilestring https://www.pinvoke.net/default.aspx/kernel32.writeprivateprofilestring

为了完整起见，我在下面添加了这些定义（直接从上面的链接复制，尽管我承认我自己没有测试过它们）。 如果您对此仍有疑问，可能值得用您尝试阅读的 INI 文件内容示例更新您的答案。

GetPrivateProfileString():

DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _
Private Shared Function GetPrivateProfileString(ByVal lpAppName As String, _
                        ByVal lpKeyName As String, _
                        ByVal lpDefault As String, _
                        ByVal lpReturnedString As StringBuilder, _
                        ByVal nSize As Integer, _
                        ByVal lpFileName As String) As Integer
End Function

WritePrivateProfileString():

<DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _
Private Shared Function GetPrivateProfileString(ByVal lpAppName As String, _
                        ByVal lpKeyName As String, _
                        ByVal lpDefault As String, _
                        ByVal lpReturnedString As StringBuilder, _
                        ByVal nSize As Integer, _
                        ByVal lpFileName As String) As Integer
End Function