本篇文章给大家分享的是有关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文件，小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注天达云行业资讯频道。