VB.NET中怎么访问INI文件

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