VB使用GetPrivateProfileString的问题

Question

Public srvr As String * 10dim nRet AS Long
nRet = GetPrivateProfileString("DB", "server", "server", srvr, 10, path)
不知道为什么，在从文件中读出来的数据之后总是会加一串乱码
例如srvr = "walter



"，请各位大侠帮忙看看!!我对VB不熟!!

Answer 1

可能是换行(vbcrlf)或者是 空白(chr(0))的数据。
你用Replace来把后面的那个字符以""来替代。

Answer 2

Dim ret As Long
Dim buff As String
Dim success As Long    buff = String(255, 0)
    ret = GetPrivateProfileString("SYSTEM", "UpgradeServer", "TxtTemp", buff, 256, App.Path & "\config.ini")
    Me.TxtTemp.Text = buff我的和你的情况差不多。不过不是乱码。是空格一样的东西。原因应该就是buff = String(255, 0)这句的问题。但还不能不弄。INI操作也不是很懂。所以就想了个笨法，把值直接给文本框。在文本框里可以自动过滤掉没用的东西。然后在操作文本框里的值就可以了。

Answer 3

Dim ret As Long 
Dim buff As String 
Dim success As Long     buff = String(255, 0) 
    ret = GetPrivateProfileString("SYSTEM", "UpgradeServer", "TxtTemp", buff, 256, App.Path & "\config.ini")     buff=left(buff,instr(buff,chr(0))-1)
这样就可以了