Baca Tulis INI File Dari VB.Net

Biasanya bila kita membuat sebuah aplikasi maka kita akan menyimpan setting dari aplikasi kita dalam sebuah file config yang berbentuk file .INI misalnya untuk menyimpan setting koneksi ke database dan lain sebagainya, nah dengan menyimpannya didalam sebuah file konfigurasi maka kita dapat dengan mudah untuk menggantinya tanpa harus membokar coding kita lagi.

Berikut ini adalah contoh code untuk menulis dan membaca dari sebuah file .INI dari VB. Net. Misalkan kita mempunya sebuah file INI dengan nama Config.ini dengan struktur sebagai berikut :

[Setting]
ServerIP=192.168.0.1
UserSQL=admin
PassSQL=mautauaja
DB=dbMaster
Style=True
MaxQuery=100

Pertama kita buat sebuah module misalkan kita beri nama ModMain, lalu isi dengan kode di bawah ini :

Option Explicit On

Module ModMain
Private Declare Ansi Function GetPrivateProfileString Lib “kernel32.dll” 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 Declare Ansi Function WritePrivateProfileString Lib “kernel32.dll” Alias “WritePrivateProfileStringA” (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer

‘Function to read from INI File
Public Function GetIniSetting(ByVal strINIFile As String, ByVal strSection As String, ByVal strKey As String) As String
Dim strValue As String = “”
Try
strValue = Space(1024)
GetPrivateProfileString(strSection, strKey, “NOT_FOUND”, strValue, 1024, strINIFile)
Do While InStrRev(strValue, ” “) = Len(strValue)
strValue = Mid(strValue, 1, Len(strValue) – 1)
Loop
‘ to remove a special chr in the last place
strValue = Mid(strValue, 1, Len(strValue) – 1)
GetIniSetting = strValue

Catch ex As Exception
If Err.Number <> 0 Then Err.Raise(Err.Number, , “Error form Functions.SetIniSettings ” & Err.Description)
End Try
Return strValue
End Function

‘Prosedure to write INI file
Public Sub SetIniSettings(ByVal strINIFile As String, ByVal strSection As String, ByVal strKey As String, ByVal strValue As String)
Try ‘
WritePrivateProfileString(strSection, strKey, strValue, strINIFile)
Catch ex As Exception
If Err.Number <> 0 Then Err.Raise(Err.Number, , “Error form Functions.SetIniSettings ” & Err.Description)
End Try
End Sub

End Module

Setelah kita buat module diatas maka kita bisa memanggilnya dari form kita, misalnya dari form1 kita buat 2 button yaitu button read dan button write. pada button read isikan kode berikut :

Private Sub BtnReadINIFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnReadINIFile.Click
Dim strINIFile As String = Application.StartupPath + “\Config.ini”
TextBox1.Text = GetIniSetting(strINIFile, “Setting”, “ServerIP”)
End Sub

Kemudian pada button write isikan kode berikut :

Private Sub BtnWriteINIFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnWriteINIFile.Click
Dim strINIFile As String = Application.StartupPath + “\Config.ini”
SetIniSettings(strINIFile, “Setting”, “ServerIP”, “192.168.0.2”)
End Sub

Selamat Mencoba..

3 Responses to “Baca Tulis INI File Dari VB.Net”

  1. Nurul Hayat Says:

    Terima Kasih Banyak Shobat….. akhirnya ketemu juga….

  2. Harry Says:

    terima kasih tapi kalo untuk menyimpan,mengubah file ini gimana donk….?

  3. nana Says:

    izin copas ya … thx


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: