Question

我想用GetPrivateProfileString读取一个ini文件。
问题是我的字符串包含一些不应该存在的字符。
Picture

我认为这来自path = String(255,0)，但如果我不写这个，我的excel就会停止工作。

有没有办法绕过这个问题或我的代码有问题？

子

Dim path as String,m2_path as string
path = String(255, 0)
m2_path = String(255, 0)

nc = GetPrivateProfileString("PATH", "path1", "", path, 255, inipath)
nc = GetPrivateProfileString("PATH", "path2", "", m2_path, 255, inipath)

功能

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
             (ByVal lpApplicationName As String, _
               ByVal lpKeyName As String, _
               ByVal lpDefault As String, _
               ByVal lpReturnedString As String, _
               ByVal nSize As Long, _
               ByVal lpFileName As String) As Long

INI-文件

[PATH]
path1="G:\Arbeit\gen molding"
...

Answer 1

值nc告诉您字符串中有多少个字符。问题是实际的接口是一个字符数组：不是字符串。所以你需要做的是给你最好的猜测，你可以得到多少个字符（nsize），它会告诉你有多少个字符。

dim path1 as string, path2 as string, path as string

path = string(255, 0)
nc = GetPrivateProfileString("PATH", "path1", "", path, 255, inipath)
path1 = left(path, nc)
nc = GetPrivateProfileString("PATH", "path2", "", m2_path, 255, inipath)
path2 = left(path, nc)

VBA GetPrivateProfileString

1 个答案: