VB.NET中怎么訪問INI文件

本篇文章給大家分享的是有關VB.NET中怎么訪問INI文件，小編覺得挺實用的，因此分享給大家學習，希望大家閱讀完這篇文章后可以有所收獲，話不多說，跟著小編一起來看看吧。

在VB.NET2005+winxp中，我使用GetPrivateProfileString實現VB.NET訪問INI文件這一功能，如果文件路徑中含有中文，就會遇到一個奇怪的問題：***次讀取正常，第二次讀取就取不到值

VB.NET訪問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  

以上就是VB.NET中怎么訪問INI文件，小編相信有部分知識點可能是我們日常工作會見到或用到的。希望你能通過這篇文章學到更多知識。更多詳情敬請關注億速云行業資訊頻道。