VB.NET訪問INI文件代碼實現
作者：佚名
在VB.NET語言中，我們可以使用GetPrivateProfileString來對INI文件進行讀取。那么VB.NET訪問INI文件的具體操作方法將會在本文中進行詳細介紹。
當程序員們在使用VB.NET編程語言進行程序開發的時候，會逐漸的發現，這款語言給他們帶來了不一樣的編程體驗，極大的提高了開發效率。首先就讓我們從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文件具體實現方法。
【編輯推薦】
責任編輯：曹凱
來源：
wewill.cn
