迅速掌握VB.NET讀取INI文件操作方法

作者：佚名 2010-01-07 11:07:20

開發后端

VB.NET讀取INI文件的相關操作方法對于初學者來說應該還是比較容易掌握的。我們可以通過本文介紹的具體代碼編寫來具體了解其中的操作技巧。

VB.NET做為一款***的開發平臺，為開發人員帶來了很大的幫助。因為對XML前不了解，所以對XML方式來做配置文件我都不能很好的實現，但為了應行，只有先使用INI的文來記錄了，也就沿用了VB6里的INI文讀取方法。#t#

下面請看VB.NET讀取INI文件的相關代碼示例：

'聲明INI配置文件讀寫API函數
Private Declare Function GetPrivateProfileString()
Function GetPrivateProfileString Lib "kernel32"
Alias "GetPrivateProfileStringA" (ByVal
lpApplicationName As String, ByVal lpKeyName As
String, ByVal lpDefault As String, ByVal lpReturned
String As String, ByVal nSize As Int32, ByVal
lpFileName As String) As Int32
Private Declare Function WritePrivateProfileString()
Function WritePrivateProfileString Lib "kernel32"
Alias "WritePrivateProfileStringA" (ByVal
lpApplicationName As String, ByVal lpKeyName As
String, ByVal lpString As String, ByVal lpFileName
As String) As Int32
'定義讀取配置文件函數
Public Function GetINI()Function GetINI(ByVal
Section As String, ByVal AppName As String, ByVal
lpDefault As String, ByVal FileName As String)
As String
Dim Str As String = LSet(Str, 256)
GetPrivateProfileString(Section, AppName,
lpDefault, Str, Len(Str), FileName)
Return Microsoft.VisualBasic.Left(Str, InStr
(Str, Chr(0)) - 1)
End Function
'定義寫入配置文件函數
Public Function WriteINI()Function WriteINI
(ByVal Section As String, ByVal AppName As
String, ByVal lpDefault As String, ByVal
FileName As String) As Long
WriteINI = WritePrivateProfileString(Section,
AppName, lpDefault, FileName)
End Function
Private Sub Form1_Load()Sub Form1_Load(ByVal
sender As System.Object, ByVal e As System.
EventArgs) Handles MyBase.Load
Dim path As String
path = Application.StartupPath + "\server.ini"
TextBox1.Text = GetINI("Server", "IP", "", path)
TextBox2.Text = GetINI("Server", "port", "", path)
End Sub
Private Sub Button1_Click()Sub Button1_Click
(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Try
Dim path As String
path = Application.StartupPath + "\server.ini"
WriteINI("Server", "IP", TextBox1.Text, path)
WriteINI("Server", "port", TextBox2.Text, path)
MsgBox("配置設置已經成功?。。。?quot;)
Me.Close()
Catch ex As Exception
MsgBox("錯誤?。。?！")
End Try
End Sub

VB.NET讀取INI文件的相關操作就為大家介紹到這里。

責任編輯：曹凱來源：博客園

VB.NET讀取INI文件