|
Podstawy operacji na plikach ini (przysłał BoneR) |
|
|
|
Napisał Administrator
|
|
wtorek, 24 styczeń 2006 |
' ******************************************
' * --== Zapis/Odczyt z pliku *.INI ==-- *
' **
' * Całe źródło zaczerpnięte jest z *
' * Planet Source Code(tm) *
' * (http://www.PlanetSourceCode.com) *
' * Ja tylko przerobiłem to na Polski. *
' **
' * BoneR*
' ******************************************
'****************************************************************************
' To wpisać do modułu!
Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString
As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As String, ByVal lpString As Any, ByVal lpFileName As String)
As Long
Function OdczytINI(Sekcja, Klucz, Ścieżka As String) As String
Dim sRet As String
sRet = String(255, Chr(0))
OdczytINI = Left(sRet, GetPrivateProfileString(Sekcja, ByVal Klucz, "", sRet, Len(sRet), Ścieżka))
End Function
Function ZapisINI(zSekcja As String, zKlucz As String, zDane As String, zŚcieżka) As Integer
WritePrivateProfileString zSekcja, zKlucz, zDane, zŚcieżka
End Function
' ***************************************************************************
' Przykładowe użycie:
' Oczywiście wszystkie okienka tekstowe (txtOdczyt, txtSekcja itd) muszą istnieć.
Private Sub Command1_Click()
txtOdczyt.Text = OdczytINI(txtSekcja.Text, txtKlucz.Text, "C:\moje\test\program.ini")
End Sub
Private Sub Command2_Click()
ZapisINI txtSekcja.Text, txtKlucz.Text, txtDane.Text, "C:\moje\test\program.ini"
End Sub
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
