VB使用GetPrivateProfileString的问题

[dic_walter]

Public srvr As String * 10

dim nRet AS Long
nRet = GetPrivateProfileString("DB", "server", "server", srvr, 10, path)
不知道为什么，在从文件中读出来的数据之后总是会加一串乱码
例如srvr = "walter"，请各位大侠帮忙看看!!我对VB不熟!!

[tanjiunnya]

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

[金蝶高级实施顾问]

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操作也不是很懂。所以就想了个笨法，把值直接给文本框。在文本框里可以自动过滤掉没用的东西。然后在操作文本框里的值就可以了。

[dic_walter]

难道没有好方法吗？？VB啊VB

[dic_walter]

只能用Left函数了

[padin]

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)
这样就可以了