Question

VB 的 GetPrivateProfileString 如何干掉空字节？

'比如:
Dim Data as String * 256
GetPrivateProfileString "ABC", "DD", "", Data, 256, App.Path & "\SeFoIP.ini"
‘如何干掉Data中的空字节，那些空字节都把我的系统弄崩溃了！(TvT) 5555555555555555555555！

Answer 1

Dim Data As String * 256
Dim ret As Long, Data1 As String
ret = GetPrivateProfileString("ABC", "DD", "", Data, 256, App.Path & "\SeFoIP.ini")
Data1 = Left(Data, ret)

追问

等会我试试，那是空白字节不是空格串，它管的是空白字节吗？

追答

GetPrivateProfileString的返回值就是所获取的数据的实际字节数，然后再利用Left函数就可以把实际数据截取出来，后面的null字符（也就是你说的空字节）就被去掉了。