Tempat Belajar Bahasa Pemrograman

Terkadang suatu program memiliki konfigurasi atau settingan sendiri (yang bisa diubah oleh user). ada berbagai cara untuk menyimpan data konfigurasi tersebut, salah satunya sudah dibahas yaitu menyimpan nya di Registry (Click disini untuk membaca). Tetapi setiap bentuk penyimpanan pasti ada kelebihan dan kekurangan nya masing masing, untuk menyimpan di file yang akan dibahas kali ini

Strukur File

Module yang diperlukan

Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" _
                        (ByVal lpApplicationName As String, _
                        ByVal lpKeyName As Any, _
                        ByVal lpString As Any, _
                        ByVal lpFileName As String) As Long

Private Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" _
                        (ByVal lpApplicationName As String, _
                        ByVal lpKeyName As Any, _
                        ByVal lpDefault As String, _
                        ByVal lpReturnedString As String, _
                        ByVal nSize As Long, _
                        ByVal lpFileName As String) As Long
                        
Public Sub WriteConfig(sSection As String, sKeyName As String, sNewString As String, sINIFileName As String)
  Call WritePrivateProfileString(sSection, sKeyName, sNewString, sINIFileName)
End Sub

Public Function ReadConfig(sSection As String, sKeyName As String, sINIFileName As String) As String
Dim sRet As String
  sRet = String(255, Chr(0))
  ReadConfig = Left(sRet, GetPrivateProfileString(sSection, ByVal sKeyName, "", sRet, Len(sRet), sINIFileName))
End Function

Menulis File Config

WriteConfig "Nama_Section", "Nama_Key", "Nilai_nya", "Alamat_File_nya"

Text1.Text = ReadConfig("Nama_Section", "Nama_Key", "Alamat_File_nya")