[es] - Read from INI; Write to INI

steewsc
Trajanovic Stevica
Cicevac Town

Član broj: 10379
Poruke: 237
212.124.182.*

+5 Profil

^{26.07.2003. u 01:01 - pre 252 meseci}

Nasao sam nacin (ovo je iz jednog Help-a) kako da se :
-kreira nov *.ini fajl
-pise u njemu
-cita iz njega
----------------------------------------------------------------------------
Pre nego sto se bilo sta uradi kreira se modul (i snimi pod imenom 'UseIni.BAS',
ne znam da li je ovo bitno ali vi ga tako snimite) i u njega se upise sledeci kod:

UseIni.bas

Code:

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
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
Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" _
(ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, _
ByVal lpFileName As String) As Long

Function GetProfile(lpAppName$, lpKeyName$, lpDefault, lpFileName$)
    Dim lpReturnString$, nSize%, Valid%
    lpReturnString$ = Space$(128)
    nSize% = Len(lpReturnString$)
    Valid% = GetPrivateProfileString(ByVal lpAppName$, ByVal lpKeyName$, _
ByVal lpDefault, ByVal lpReturnString$, ByVal nSize%, ByVal lpFileName$)
    GetProfile = Left$(lpReturnString$, Valid%)
End Function

Sub WriteProfile(lpAppName$, lpKeyName$, lpString$, lpFileName$)
    Dim Valid%
    Valid% = WritePrivateProfileString(lpAppName$, lpKeyName$, lpString$, lpFileName$)
End Sub

Function GetProfileSection(lpAppName As String, lpFileName As String) As String
    Dim strReturnString As String
    Dim lSize As Long, lValid As Long

    strReturnString = Space$(256)
    lSize = Len(strReturnString)
    lValid = GetPrivateProfileSection(ByVal lpAppName, ByVal strReturnString, _
ByVal lSize, ByVal lpFileName)
    GetProfileSection = Left$(strReturnString, lValid)
End Function

------------------ ------------------ ------------------ ------------------ ------------------ ------------------ ------------------
E sad se u kod forme (General) upise sledeci kod:

------------------ ------------------ ------------------ ------------------ ------------------ ------------------ ------------------
------------------ ------------------ ------------------ ------------------ ------------------ ------------------ ------------------
-Ako hocemo da kreiramo (i ujedno upisemo informacije u Ini fajl) Ini fajl koristimo sledeci kod:
------------------ ------------------ ------------------ ------------------ ------------------ ------------------ ------------------
POCETAK
WriteProfile "Informations", "Registrovana verzija", "False", "Regcheck.INI"
KRAJ
Ovako ovo izgleda u opstem obliku : Komanda "[Section]", "Key=","Value","INI-File"
------------------ ------------------ ------------------ ------------------ ------------------ ------------------ ------------------
WriteProfile => Komanda za pisanje po Ini fajlu
"[Section]" => Odeljak u Ini fajlu (Moze da ih ima vise)
"Key=" => Naziv promenljive
"Value" => Vrednost promenljive
"INI-FILE" => Ini fajl (Ako se stavi samo ime Ini fajla (MojINI.INI na primer)
onda se Ini fajl nalazi u 'C:\Windows\' direktorijumu, a moze i da se uz ime doda i
path Ini fajla (C:\MojIni\MojIni.INI))

------------------ ------------------ ------------------ ------------------ ------------------ ------------------ ------------------
------------------ ------------------ ------------------ ------------------ ------------------ ------------------ ------------------
-Ako hocemo da citamo informacije iz Ini fajla koristimo sledeci kod:
------------------ ------------------ ------------------ ------------------ ------------------ ------------------ ------------------
POCETAK
Text1.Text = GetProfile("Informations", "Registrovana verzija", "0", "Regcheck.INI")
KRAJ
Ovako ovo izgleda u opstem obliku : Text1.Text= GetProfile ("[Section]", "Key=","Value","INI-File")
------------------ ------------------ ------------------ ------------------ ------------------ ------------------ ------------------
"[Section]" , "Key=" , "Value" i "INI-FILE" imaju istu funkciju kao i pri kreiranju Ini fajla.

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

TOLIKO OD MENE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ©Î@

www.cicevac.com
†StEEwSc†

Odgovor na temu