Reader & Writer .ini File Di Vb.Net

Reader & Writer .ini File Di Vb.Net

Reader & Writer .ini File Di Vb.Net


Kalian pasti pernah mendengar atau melihat sebuah file yang berekstensi .ini biasanya file ini difungsikan sebagai penyimpanan data configurasi sebuah aplikasi. Misal di MySql ada my.ini dan di PHP ada php.ini dan aplikasi lain yang mungkin memiliki config.ini. dan pada dasarnya data configurasi di file tersebut bersifat dinamis tentunya sesuai kebutuhan aplikasi.

 

Karena configurasi ini sifatnya dinamis dengan begitu saya akan mebagikan sebuah module untuk mengubah dan mebaca value configurasi file tersebut.

 

Modul Reader & Writer .ini File Di Vb.Net

 

Buat sebuah modul Project -> Add Module.. dan beri nama mIni.vb kopi/paste kode berikut ke modul tersebut.

 

Module mIni

    'fungsi untuk write file .ini
    Public Declare Unicode Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringW" (ByVal lpSection As String, ByVal lpParamName As String, _
    ByVal lpParamVal As String, ByVal lpFileName As String) As Int32

    'procedure untuk write .ini
    Public Sub writeini(ByVal iniFilename As String, ByVal section As String, ByVal ParamName As String, ByVal ParamVal As String)
        'menanggil fungsi WritePrivateProfilString untuk write file .ini
        Dim result As Integer = WritePrivateProfileString(section, ParamName, ParamVal, iniFilename)
    End Sub
    'function untuk read file .ini
    Public Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringW" (ByVal lpSection As String, ByVal lpParamName As String, _
    ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, _
    ByVal lpFilename As String) As Int32

    'function untuk read file .ini
    Public Function readini(ByVal iniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamDefault As String) As String
        Dim ParamVal As String = Space$(1024)
        Dim LenParamVal As Long = GetPrivateProfileString(Section, ParamName, ParamDefault, ParamVal, Len(ParamVal), iniFileName)
        'mengembalikan nilai yang sudah didapatkan
        readini = Strings.Left(ParamVal, LenParamVal)
    End Function
End Module

 

Cara penggunaannya bagaimana?

 

Buat sebuah file .ini dengan nama config.ini simpan di root aplikasi, kalau di Vb.Net itu root aplikasi ada di folder bin/debug. atau pada dasarnya satu folder dengan file .exe aplikasi.

 

Kopi/paste kode berikut ke file config.ini yang telah dibuat tadi.

 

[Setting Config]
NOTE : DON'T CHANGE ANYTHING ON THIS FILE !!!

config1=
config2=
config3=

 

Untuk membaca atau read file ini bisa digunakan fungsi sebagai berikut.

 

Dim FilePath As String = Application.StartupPath & "\config.ini"
Dim config1 As String = readini(FilePath, "Setting Config", "config1", "")
Dim config2 As String = readini(FilePath, "Setting Config", "config2", "")
Dim config3 As String = readini(FilePath, "Setting Config", "config3", "")

 

Untuk mengubah atau write file ini bisa digunakan fungsi sebagai berikut.

 

Dim FilePath As String = Application.StartupPath & "\config.ini"
writeini(FilePath, "Setting Config", "config1", "value config1")
writeini(FilePath, "Setting Config", "config2", "value config2")
writeini(FilePath, "Setting Config", "config2", "value config3")

 

Sekian tutorial Reader & Writer .ini File Di Vb.Net, semoga bermanfaat smilewink

 

Bagikan


Artikel Dipost Oleh Hariadi

Seorang freelancer website and software developer, gemar dengan ilmu seputar IT serta penuh semangat untuk belajar.


0 Komentar

Tidak ada komentar


Berikan komentar ...