" Vb.NET ile ini file dosyaları oluşturma data yazma ve okuma işlemi yapılacaktır. butun projelere class ile ilave edilebilir. "


Projenizin icinde yeni bir class ilave ederek aşağıdaki kodları class iceriğine direk yapıştırınız.

------------------------------------------------------------------------------------------------------

Kod:
Public Class IniFiles 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 System.Text.StringBuilder, 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 Private Declare Ansi Function GetPrivateProfileInt Lib "kernel32.dll" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer Private Declare Ansi Function FlushPrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As Integer, ByVal lpKeyName As Integer, ByVal lpString As Integer, ByVal lpFileName As String) As Integer Private strFilename As String = "" Public Sub New(ByVal Filename As String) strFilename = Filename End Sub Public Property FileName(ByVal strFilename As String) As String Get Return strFilename End Get Set(ByVal value As String) strFilename = value End Set End Property Public Function Getir(ByVal Section As String, ByVal Key As String, ByVal [Default] As String) As String Dim Sonuc As String = "" Dim intCharCount As Integer Dim objResult As New System.Text.StringBuilder(1024) intCharCount = GetPrivateProfileString(Section, Key, [Default], objResult, objResult.Capacity, strFilename) If intCharCount > 0 Then Sonuc = Left(objResult.ToString, intCharCount) Getir = Sonuc End Function Public Function GetirSayi(ByVal Section As String, ByVal Key As String, ByVal [Default] As Integer) As Integer Return GetPrivateProfileInt(Section, Key, [Default], strFilename) End Function Public Sub Yaz(ByVal Section As String, ByVal Key As String, ByVal Value As String) WritePrivateProfileString(Section, Key, Value, strFilename) Flush() End Sub Public Sub YazSayi(ByVal Section As String, ByVal Key As String, ByVal Value As Integer) Yaz(Section, Key, CStr(Value)) Flush() End Sub Private Sub Flush() FlushPrivateProfileString(0, 0, 0, strFilename) End Sub End Class


------------------------------------------------------------------------------------------------------

bu aşama bittikten sonra tanımlaya geciyoruz.

form icinde en tepeye Public class form1 altına

Kod:
Dim inifile As IniFiles = New IniFiles("C:\Deneme.ini")


diyerek tanımlıyoruz.

data yazma icin ornek:

Kod:
inifile.Yaz("ANAHTARADI","ANAHTARBOLUMU","DEGER") 'String
ifade yazar

Kod:
inifile.Yaz("ANAHTARADI","ANAHTARBOLUMU","DEFAULTD EGER")
'String ifade getirir

ini dosyaları şu formatta olmalı...
Kod:
[anahtar adı] anahtar bolumu=deger

kullanımı cok kolay. her projede işinize yarayacaktır.

__________________