[ steewsc @ 26.07.2003. 01:01 ] @
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 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ©Î@ |