VB.NET 读写ini文件

读写ini文件

Imports System.Text Imports System.IO Public Class io_ini Public path As String '读ini api string 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 Int32,ByVal lpFileName As String) As Int32 '写ini api Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String,ByVal lpString As String,ByVal lpFileName As String) As Int32 '读ini Public Function GetINI(ByVal Section As String,ByVal AppName As String,ByVal FileName As String) As String Dim Str As String = LSet(Str,256) GetPrivateProfileString(Section,AppName,Nothing,Str,Len(Str),FileName) Return Microsoft.VisualBasic.Left(Str,InStr(Str,Chr(0)) - 1) End Function '写ini Public Function WriteINI(ByVal Section As String,ByVal FileName As String) As Long WriteINI = WritePrivateProfileString(Section,lpDefault,FileName) End Function Sub New() Try Path = Application.StartupPath & "/user.ini" If File.Exists(Path) = False Then File.Create(Path) End If Catch ex As Exception MessageBox.Show(ex.ToString,"为文件创建保存路径时出错！ ") End Try End Sub Public Function ok() If Len(GetINI("user_info","id","",path)) > 10 And Len(GetINI("user_info","pass",path)) > 5 Then Return True End If Return False End Function End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!