- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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
Form içinde en tepeye Public class form1 altına
Dim inifile As IniFiles = New IniFiles("C:\\Deneme.ini")
Data yazma için örnek:
inifile.Yaz("ANAHTARADI","ANAHTARBOLUMU","DEGER") ’String
İfade yazar:
inifile.Yaz("ANAHTARADI","ANAHTARBOLUMU","DEFAULTD EGER")
’String ifade getirir
ini dosyaları şu formatta olmalı...
[anahtar adı]
anahtar bölümü=deger
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
Form içinde en tepeye Public class form1 altına
Dim inifile As IniFiles = New IniFiles("C:\\Deneme.ini")
Data yazma için örnek:
inifile.Yaz("ANAHTARADI","ANAHTARBOLUMU","DEGER") ’String
İfade yazar:
inifile.Yaz("ANAHTARADI","ANAHTARBOLUMU","DEFAULTD EGER")
’String ifade getirir
ini dosyaları şu formatta olmalı...
[anahtar adı]
anahtar bölümü=deger
