遇到一个怪问题，关于读取ini 文件的问题

[hengxin54]

为什么从ini文件里读出的数据，如果是英文或数字，则一切显示正常,但如果读取的是中文，那么要显示的时候，如果在其后加一个字符串显示，则后面的字符串不能显示出来
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
private command1_click()
dim str as string * 256
getprivateprofilestring "system","version","",str,len(str),app.path & "\ini.ini"
msgbox str & "abcd"
end sub
如果读取的字符串是中文，则后面的“abcd"不能显示出来，但其它的能显示正常

[hengxin54]

多余的空字符去不掉，例如显示：“windows2000 abcd",中间的空字符去不掉，上面两种方法差不多的，都试了，不行

[zyl910]

这样做当然不能显示
因为读取字符串是以\0结尾的（C语言字符串标准）
而MsgBox实际上是调用系统的MessageBox函数
碰到\0认为字符串结束
所以不会继续显示

应该这样写：
str=Left$(str,Instr(str,Chr$(0))-1) '查找\0
msgbox RTrim(str) & "abcd" '记得去掉定长字符串的多余空格

[Chice_wxg]

改成这样好了。

private command1_click()
dim str as string
str = Space(256)
getprivateprofilestring "system","version","",str,len(str),app.path & "\ini.ini"
str=Left$(str,Instr(str,Chr$(0))-1)
msgbox str & "abcd"
end sub

注意问题：
1、用dim .. as string * 256后系统自动分配内存，所以字符处理的时候可能有问题
2、注意字符穿的末尾的空字符（vbNullChar，就是Chr(0)）

[Chice_wxg]

private command1_click()
dim str as string
str = Space(256)
getprivateprofilestring "system","version","",str,len(str),app.path & "\ini.ini"
str=Trim(Left$(str,Instr(str,Chr$(0))-1))
msgbox str & "abcd"
end sub

[Small_C]

这是因为函数中的字符串是用“Chr(0)”结束的。

[Small_C]

这是因为API函数中的字符串是用“Chr(0)”结束的。
上边少了“API”。我发早了对不起！