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
------------------ ------------------ ------------------ ------------------ ------------------ ------------------ ------------------
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 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ©Î@
-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
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 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ©Î@
Potpis
www.cicevac.com
†StEEwSc†
†StEEwSc†
