您好,登錄后才能下訂單哦!
本篇文章給大家分享的是有關(guān)VB.NET中怎么訪問INI文件,小編覺得挺實(shí)用的,因此分享給大家學(xué)習(xí),希望大家閱讀完這篇文章后可以有所收獲,話不多說,跟著小編一起來看看吧。
在VB.NET2005+winxp中,我使用GetPrivateProfileString實(shí)現(xiàn)VB.NET訪問INI文件這一功能,如果文件路徑中含有中文,就會遇到一個(gè)奇怪的問題:***次讀取正常,第二次讀取就取不到值
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 IntegerPrivate m_filename As String =
"c:\椅子\slcuserinfo.INI"Public Function GetINIValue(ByVal lpKeyName
As String, ByVal strName As String) As StringDim 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 IntegerPrivate m_filename As String = "c:\椅子\
slcuserinfo.INI"Public Function GetINIValue(ByVal lpKeyName
As String, ByVal strName As String) As StringDim 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文件,小編相信有部分知識點(diǎn)可能是我們?nèi)粘9ぷ鲿姷交蛴玫降?。希望你能通過這篇文章學(xué)到更多知識。更多詳情敬請關(guān)注億速云行業(yè)資訊頻道。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。