在vb.net2005+winxp中，我使用GetPrivateProfileString读取一个ini文件，如果文件路径中含有中文，就会遇到一个奇怪的问题：第一次读取正常，第二次读取就取不到值。代码如下：
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 Integer, ByVal lpFileName As String) As Integer
Private m_filename As String = "c:\椅子\slcuserinfo.ini"
Public Function GetiniValue(ByVal lpKeyName As String, ByVal strName As String) As String
Dim strTmp As String
'Dim fileTmp As String
'fileTmp = m_filename
strTmp = New String(" ", 100)
'Call GetPrivateProfileString(lpKeyName, strName, "", strTmp, Len(strTmp), fileTmp)
Call GetPrivateProfileString(lpKeyName, strName, "", strTmp, Len(strTmp), m_filename)
GetiniValue = Left$(strTmp, InStr(strTmp, vbNullChar) - 1)
End Function
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 Integer, ByVal lpFileName As String) As Integer
Private m_filename As String = "c:\椅子\slcuserinfo.ini"
Public Function GetiniValue(ByVal lpKeyName As String, ByVal strName As String) As String
Dim strTmp As String
'Dim fileTmp As String
'fileTmp = m_filename
strTmp = New String(" ", 100)
'Call GetPrivateProfileString(lpKeyName, strName, "", strTmp, Len(strTmp), fileTmp)
Call GetPrivateProfileString(lpKeyName, strName, "", strTmp, Len(strTmp), m_filename)
GetiniValue = Left$(strTmp, InStr(strTmp, vbNullChar) - 1)
End Function 反复试验过以后，发现取消注释掉的代码就可以正常运行。百思不得其解，看api的声明没有问题啊，为什么lpFileName会出现异常呢？ |
网站首页
新闻资讯
电脑百科
硬件知识
电脑问答
电脑学院
站长学院
IT人物
DIY硬件
笔记本
台式机
电脑安全
专题文章