VB.NET訪問(wèn)INI文件代碼實(shí)現(xiàn)
作者：佚名
在VB.NET語(yǔ)言中，我們可以使用GetPrivateProfileString來(lái)對(duì)INI文件進(jìn)行讀取。那么VB.NET訪問(wèn)INI文件的具體操作方法將會(huì)在本文中進(jìn)行詳細(xì)介紹。
當(dāng)程序員們?cè)谑褂?a >VB.NET編程語(yǔ)言進(jìn)行程序開(kāi)發(fā)的時(shí)候，會(huì)逐漸的發(fā)現(xiàn)，這款語(yǔ)言給他們帶來(lái)了不一樣的編程體驗(yàn)，極大的提高了開(kāi)發(fā)效率。首先就讓我們從VB.NET訪問(wèn)INI文件的實(shí)現(xiàn)方法中來(lái)對(duì)此做一個(gè)解讀。
在VB.NET2005+winxp中，我使用GetPrivateProfileString實(shí)現(xiàn)VB.NET訪問(wèn)INI文件這一功能，如果文件路徑中含有中文，就會(huì)遇到一個(gè)奇怪的問(wèn)題：***次讀取正常，第二次讀取就取不到值
VB.NET訪問(wèn)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)過(guò)以后，發(fā)現(xiàn)取消注釋掉的代碼就可以正常運(yùn)行。這就是我們?yōu)榇蠹医榻B的VB.NET訪問(wèn)INI文件具體實(shí)現(xiàn)方法。
【編輯推薦】
責(zé)任編輯：曹凱
來(lái)源：
wewill.cn
