Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Read from INI; Write to INI

[es] :: Visual Basic 6 :: Read from INI; Write to INI

[ Pregleda: 4766 | Odgovora: 14 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

steewsc
Trajanovic Stevica
Cicevac Town

Član broj: 10379
Poruke: 237
212.124.182.*



+5 Profil

icon Read from INI; Write to INI26.07.2003. u 01:01 - pre 229 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

X-Cite
Goran Tadić
Mediacija, Tušmobil
Ljubljana

Član broj: 28706
Poruke: 625
*.dsl.siol.net.

Sajt: www.baza-ukradenih-gsm.co..


Profil

icon Re: Read from INI; Write to INI04.02.2005. u 08:39 - pre 210 meseci
Jedna mi stvar nije bash jasna ovdje...

ako upisem ovaj kod za citanje iz INI-ja (prije toga sam upisivao gornjim kodom i dodao i modul UseINI.bas) on mi ne vraca to sto pise u INI-ju nego mi vraca to sto sam napisao ovdje (obojio sam crveno), i nije bitno dali je to broj ili text on ustvari na neki način onda i ne gleda u INI nego izpiše to što mu stavimo u ""

POCETAK
Text1.Text = GetProfile("Informations", "Registrovana verzija", "0", "Regcheck.INI")
KRAJ

Kako da dobijem tu vrijednost, znamo da je vrijednost sve što nam treba iz INI-ja

Hvala
Pozdrav
GoGy
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Read from INI; Write to INI04.02.2005. u 09:36 - pre 210 meseci
"0" je default vrednost koja ce biti vracena ukoliko nema entryja u INIju
 
Odgovor na temu

X-Cite
Goran Tadić
Mediacija, Tušmobil
Ljubljana

Član broj: 28706
Poruke: 625
*.dsl.siol.net.

Sajt: www.baza-ukradenih-gsm.co..


Profil

icon Re: Read from INI; Write to INI04.02.2005. u 10:40 - pre 210 meseci
Hvala na brzom odgovoru... ali...

u INI-ju imaju vrednosti i koliko vidim ništa mi ne vrati (vrati mi taj default 0 koji je upisan ako nema entrya)...

u čemu bi mogo biti problem?

evo još i tačan kod da se zna o čemu se radi...

Code:

'upis

If Check1 Then
    WriteProfile "Informations", "Registered", "True", "C:\Labels\Regcheck.INI"
Else
    WriteProfile "Informations", "Registered", "False", "C:\Labels\Regcheck.INI"
End If


i

Code:

'čitanje

txt(1) = GetProfile("Informations", "Registered", "0", "Regcheck.INI")


Regcheck.INI fajl mi izgleda ovako:

Code:

[Informations]
Registered=False

Pozdrav
GoGy
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Read from INI; Write to INI04.02.2005. u 11:17 - pre 210 meseci
Write
Code:

"C:\Labels\Regcheck.INI"


Read
Code:

"Regcheck.INI"

 
Odgovor na temu

X-Cite
Goran Tadić
Mediacija, Tušmobil
Ljubljana

Član broj: 28706
Poruke: 625
*.dsl.siol.net.

Sajt: www.baza-ukradenih-gsm.co..


Profil

icon Re: Read from INI; Write to INI04.02.2005. u 11:35 - pre 210 meseci
Hm... da samo mogu objasniti koliko sam proveo vremena za tako veliku glupost!

mnogo ti hvala mladenovicz!
Pozdrav
GoGy
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Read from INI; Write to INI04.02.2005. u 13:05 - pre 210 meseci
U principu ovaj problem se resava tako sto imas promenljivu ili konstantu na nivou aplikacije koja cuva putanju do ini fajla.
 
Odgovor na temu

X-Cite
Goran Tadić
Mediacija, Tušmobil
Ljubljana

Član broj: 28706
Poruke: 625
*.dsl.siol.net.

Sajt: www.baza-ukradenih-gsm.co..


Profil

icon Re: Read from INI; Write to INI04.02.2005. u 15:03 - pre 210 meseci
Da li misliš na ovo?

npr

Code:

Dim FilePath$
FilePath$ = "C:\Labels\Regcheck.INI"

'Write

    WriteProfile "Informations", "Registered", "1", FilePath$

'Read

    Data = GetProfile("Informations", "Registered", "No Data", FilePath$)



Ovako mi ne radi...

Ali ideja je super
Pozdrav
GoGy
 
Odgovor na temu

doti

Član broj: 149182
Poruke: 14
*.eunet.yu.



Profil

icon Re: Read from INI; Write to INI27.01.2008. u 02:30 - pre 174 meseci
Pozz Svima!!

Malo je kasno ali...
Da sve ide kako treba nebi bilo dobro :-)
imam jedan form na kome imam 5 option dugmadi i zelim kad kliknem na dugme save da on ta stanja snimi u jedan ini fajl, i sledeci put kad pokrenem program da mi ti option dugmad budu u onom polozaju u kome sam ih snimio. Evo dodao sam dole form i ini fajl pa ako nekom nije problem da ubaci sors u form i namesti.

Zahvaljujem unapred
Prikačeni fajlovi
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: Read from INI; Write to INI27.01.2008. u 04:42 - pre 174 meseci
koliko vidim, nisi nista ni pokusao. pokusaj sam da odradis to, imas u ovoj temi kod kako da citas i kako da upises podatak iz ini fajla, kad zapnes onda pitaj.
 
Odgovor na temu

doti

Član broj: 149182
Poruke: 14
*.eunet.yu.



Profil

icon Re: Read from INI; Write to INI27.01.2008. u 11:54 - pre 174 meseci
Probao sam ali nije mi jasno, Nebih postavio pitanje a da nisam probao.
Prikačeni fajlovi
 
Odgovor na temu

doti

Član broj: 149182
Poruke: 14
*.eunet.yu.



Profil

icon Re: Read from INI; Write to INI27.01.2008. u 13:41 - pre 174 meseci
Napravio sam da snimim u ini i sve radi kako treba, ali imam problema kod citanja
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: Read from INI; Write to INI27.01.2008. u 22:13 - pre 174 meseci
evo ti source, ako ne mozes da se snadjes ili ti nesto nije jasno pitaj.
Prikačeni fajlovi
 
Odgovor na temu

doti

Član broj: 149182
Poruke: 14
*.eunet.yu.



Profil

icon Re: Read from INI; Write to INI27.01.2008. u 22:29 - pre 174 meseci
Hvala na pomoci uspeo sam :-)
pozz
 
Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893



+384 Profil

icon Re: Read from INI; Write to INI28.01.2008. u 07:23 - pre 174 meseci
Svojedobno sam uradio jedan modul sa kojim lako mogu da editujem init fajl, pa evo probajte:


SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Visual Basic 6 :: Read from INI; Write to INI

[ Pregleda: 4766 | Odgovora: 14 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.