VB.NET訪問INI文件代碼實(shí)現(xiàn)
作者：佚名
在VB.NET語言中，我們可以使用GetPrivateProfileString來對INI文件進(jìn)行讀取。那么VB.NET訪問INI文件的具體操作方法將會在本文中進(jìn)行詳細(xì)介紹。
當(dāng)程序員們在使用VB.NET編程語言進(jìn)行程序開發(fā)的時候，會逐漸的發(fā)現(xiàn)，這款語言給他們帶來了不一樣的編程體驗(yàn)，極大的提高了開發(fā)效率。首先就讓我們從VB.NET訪問INI文件的實(shí)現(xiàn)方法中來對此做一個解讀。
在VB.NET2005+winxp中，我使用GetPrivateProfileString實(shí)現(xiàn)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
反復(fù)試驗(yàn)過以后，發(fā)現(xiàn)取消注釋掉的代碼就可以正常運(yùn)行。這就是我們?yōu)榇蠹医榻B的VB.NET訪問INI文件具體實(shí)現(xiàn)方法。
【編輯推薦】
責(zé)任編輯：曹凱
來源：
wewill.cn
