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

Options, save to file, read from file ;)

[es] :: Visual Basic 6 :: Options, save to file, read from file ;)

[ Pregleda: 4960 | Odgovora: 12 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

-wx-
Beograd

Član broj: 1766
Poruke: 34
*.tehnicom.net

Jabber: wx@jabber.com
ICQ: 166638118


Profil

icon Options, save to file, read from file ;)14.01.2002. u 21:11 - pre 274 meseci
Zanima me kako da neke opcije koje postavim u programu sacuvam u neki fajl klikom na dugme i da se sledeci put kad se program pokrene da on procita sta pise u tom fajlu i da takve opcije postavi u programu.

Recimo: U text polje upisem 'bla bla' i kliknem OK i da se sledeci put kad pokrenem program to 'bla bla' ostane u tom text polju.

Ako bi neko mogao da napise kratak kod kao primer bilo bi lepo ;)

Pozdrav.
'This is a unique time in our history, in the history of any civilization, it's the moment of the acquisition of technology, that's the moment when contact becomes possible'
 
Odgovor na temu

kaan
Kaurin Andrej
Telerik, Bulgaria
Banjaluka

Član broj: 1741
Poruke: 109
*.dialup.blic.net

ICQ: 47193919


Profil

icon Re: Options, save to file, read from file ;)16.01.2002. u 01:55 - pre 274 meseci
OK. Prvo kreirash file.

*****************************************
Code:
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile= objFSO.CreateTextFile("c:\neki_file.txt", True) ' true znaci da ces da upisujesh u njega a ne samo da citas (naravno jer je prazan) 
objFile.WriteLine "podatak1" 
.........
objFile.WriteLine "podatakN" 
' writeline upisuje u jednu liniju 
objFile.Close


*****************************************

E sad kad citas iz tog filea idesh.

*****************************************

Code:
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = FSO.OpenTextFile("c:\neki_file.txt") 
' i citas liniju po liniju 
var1 = objFile.ReadLine 
......... 
varN = objFile.ReadLine 
objFile.CLose 


*************************************************

To je to..

Marko_L : Dodati code tagovi

[Ovu poruku je menjao Marko_L dana 18.06.2005. u 00:16 GMT+1]
Kaurin Andrej
 
Odgovor na temu

kaan
Kaurin Andrej
Telerik, Bulgaria
Banjaluka

Član broj: 1741
Poruke: 109
*.dialup.blic.net

ICQ: 47193919


Profil

icon Re: Options, save to file, read from file ;)16.01.2002. u 02:11 - pre 274 meseci
E zaboravih. Ako vec imash fajl i hoces samo da upishes u njega onda idesh ovako...

Code:
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = FSO.OpenTextFile("c:\neki_file.txt",2)  '  2 je konstanta za ForWriting. Ona ce da ti obrise sve sto je bilo, i stavi nove podatke koje zadash

' ako hoces da samo dodas nove podatke a stare zadrzis stavi broj 8 umjesto 2.
' za readonly stavi 1 ili nemoj staviti nishta jer je readOnly default

Marko_L : Dodati code tagovi

[Ovu poruku je menjao Marko_L dana 18.06.2005. u 00:17 GMT+1]
Kaurin Andrej
 
Odgovor na temu

-wx-
Beograd

Član broj: 1766
Poruke: 34
*.tehnicom.net

Jabber: wx@jabber.com
ICQ: 166638118


Profil

icon Re: Options, save to file, read from file ;)16.01.2002. u 20:15 - pre 274 meseci
Tnx! ;>
'This is a unique time in our history, in the history of any civilization, it's the moment of the acquisition of technology, that's the moment when contact becomes possible'
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Options, save to file, read from file ;)29.04.2007. u 20:32 - pre 209 meseci
Aj pojasnite malo gde se sta kuca...???
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.220.*

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Options, save to file, read from file ;)29.04.2007. u 22:06 - pre 209 meseci
Ako ne znaš gde da upišeš kod, onda ti verovatno taj kod ni ne treba :)

Upiši ga tamo gde hoćeš da se izvrši.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Options, save to file, read from file ;)30.04.2007. u 01:41 - pre 209 meseci
Mislim da je ovako najbolje.

Code:

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Open "Text1.txt" For Input As #1
        Line Input #1, ocitanoizfajla
    Close #1
    Text1.Text = ocitanoizfajla
End Sub

Private Sub Text1_LostFocus()
    Open "Text1.txt" For Output As #1
        Print #1, Text1.Text
    Close #1
End Sub

rgdrajko
 
Odgovor na temu

dennycd2

Član broj: 127351
Poruke: 57
*.dynamic.sbb.co.yu.



Profil

icon Re: Options, save to file, read from file ;)30.04.2007. u 18:10 - pre 209 meseci
Citat:
rgdrajko: Mislim da je ovako najbolje.


Kada se ovako nešto napiše, onda je ipak potrebno da se pre toga proveri, da li taj kôd moze i da radi.

Citat:
rgdrajko
Open "Text1.txt" For Input As #1


Ova linija javlja grešku zato što nije određena putanja i nije kreiran File "Text1.txt". Ako bi ovo trebalo da služi kao primer, gde se zna šta je "pisac hteo da kaže", onda se postavlja pitanje šta će nekom ovaj primer, kada već zna o čemu je reč. A ako treba da služi da bi neko naučio nešto, onda primer treba da bude jasan i funkcionalan.

Ovo što ću sada navesti kao primer, može da posluži nekome ko je dovoljno upoznat sa bar osnovama VB-a. I pre nego što se startuje program, treba postaviti referencu "Microsoft Scripting Runtime". I još nešto...ne smatram da su ovi primeri jedini, jer ih ima još, ali nisam imao vremena da ih navodim.


Code:


Option Explicit

Dim FSobj As Scripting.FileSystemObject

Private Sub Command1_Click()
    
    Dim TxtFile
    Dim FilePath As String
   
    FilePath = App.Path & "\ProbniFile.txt" 'Stringpromenljivoj dodeliti putanju i naziv File-a
    Set FSobj = New Scripting.FileSystemObject 'Aktiviranje novog "FileSystemObject"-a
    
'*** Kreiranje TextFile-a koji ce posluziti i kao file za TextStream ojekat **************************
    
    Set TxtFile = FSobj.CreateTextFile(FilePath, True) 'Kreiranje "TextFile"-a ciju putanju i naziv definise stringpromenljiva "FilePath"
    TxtFile.WriteLine ("Ovo je proba!") 'Upisivanje proizvoljnog teksta u "TextFile"
    TxtFile.Close

'*** Koriscenje TextStream objekta za unosenje ili izcitavanje iz TextFile-a ************************

    Dim TxtFileWrite As Scripting.TextStream
    Dim TxtFileRead As Scripting.TextStream
    Dim TxtFileAppend As Scripting.TextStream
    Dim SadrzajFile As String
    
    Set TxtFileRead = FSobj.OpenTextFile(FilePath, ForReading) 'Aktiviranje "TextStream" objekta za izcitavanje
    SadrzajFile = TxtFileRead.ReadLine 'Stringpromenljivoj "SadrzajFile" dodeliti prvu liniju iz "TextFile"-a
    TxtFileRead.Close
    
    Set TxtFileRead = FSobj.OpenTextFile(FilePath, ForReading) 'Aktiviranje "TextStream" objekta za izcitavanje
    SadrzajFile = TxtFileRead.Read(1) 'Izcitavanje prvok karaktera date linije u "TextFile"-u
    TxtFileRead.Close
    
    Set TxtFileWrite = FSobj.OpenTextFile(FilePath, ForWriting) 'Aktiviranje "TextStream" objekta za upisivanje
    TxtFileWrite.WriteLine "Proba1" 'Upisivanje proizvoljnog teksta u "TextFile"
    TxtFileWrite.Close
    
    Set TxtFileAppend = FSobj.OpenTextFile(FilePath, ForAppending) 'Aktiviranje "TextStream" objekta za dodavanje
    TxtFileAppend.WriteLine "Proba2" 'Dodavanje proizvoljnog teksta u "TextFile"
    TxtFileAppend.Close

    
    Set TxtFile = Nothing
    Set TxtFileRead = Nothing
    Set TxtFileWrite = Nothing
    Set TxtFileAppend = Nothing
    
End Sub



[Ovu poruku je menjao dennycd2 dana 02.05.2007. u 11:54 GMT+1]
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Options, save to file, read from file ;)01.05.2007. u 14:31 - pre 209 meseci
Gospodin je u pravu. U zurbi sam zaboravio da dodam liniju ON Error Resume Next koja ce spreciti gresku ako nema fajla.
Inace mislim da ne treba koristiti ogroman kod da bi se nesto uradilo, kada to moze na mnogo kraci nacin.

Code:

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    On Error Resume Next
    Open "Text1.txt" For Input As #1
        Line Input #1, ocitanoizfajla
    Close #1
    Text1.Text = ocitanoizfajla
End Sub

Private Sub Text1_LostFocus()
    Open "Text1.txt" For Output As #1
        Print #1, Text1.Text
    Close #1
End Sub

rgdrajko
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Options, save to file, read from file ;)03.05.2007. u 18:14 - pre 209 meseci
Sta mi ovde ne valja???
Kad mi izbaci gresku obelezi boldovano!!!

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
On Error Resume Next
Open "Text1.txt" For Input As #1
Line Input #1, ocitanoizfajla
Close #1
Text1.Text , Text2.Text, Text3.Text = ocitanoizfajla
End Sub

Private Sub Text1_LostFocus()
Open "Text1.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub Text2_LostFocus()
Open "Text2.txt" For Output As #1
Print #1, Text2.Text
Close #1
End Sub

Private Sub Text3_LostFocus()
Open "Text3.txt" For Output As #1
Print #1, Text3.Text
Close #1
End Sub
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Options, save to file, read from file ;)04.05.2007. u 05:33 - pre 209 meseci
Posto u sva tri Textbox-a, kada izgude fokus, snimas naredbom PRINT #1 sadrzaj tih textbox-ova logicno bi bilo da ih u dogadjaju load forme i ucitas.

Code:

Private Sub Form_Load()
    On Error Resume Next
    Open "Text1.txt" For Input As #1
        Line Input #1, ocitanoizfajla
    Close #1
    Text1.Text = ocitanoizfajla
    
    Open "Text2.txt" For Input As #1
        Line Input #1, ocitanoizfajla
    Close #1
    Text2.Text = ocitanoizfajla
    
    Open "Text3.txt" For Input As #1
        Line Input #1, ocitanoizfajla
    Close #1
    Text3.Text = ocitanoizfajla
End Sub

Private Sub Text1_LostFocus()
    Open "Text1.txt" For Output As #1
        Print #1, Text1.Text
    Close #1
End Sub

Private Sub Text2_LostFocus()
    Open "Text2.txt" For Output As #1
        Print #1, Text2.Text
    Close #1
End Sub

Private Sub Text3_LostFocus()
    Open "Text3.txt" For Output As #1
        Print #1, Text3.Text
    Close #1
End Sub

rgdrajko
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*



+3 Profil

icon Re: Options, save to file, read from file ;)04.05.2007. u 05:38 - pre 209 meseci
Da bi uvek snimio sadrzaje sva tri textbox-a napisi donji kod.

Code:

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
    On Error Resume Next
    Open "Text1.txt" For Input As #1
        Line Input #1, ocitanoizfajla
    Close #1
    Text1.Text = ocitanoizfajla
    
    Open "Text2.txt" For Input As #1
        Line Input #1, ocitanoizfajla
    Close #1
    Text2.Text = ocitanoizfajla
    
    Open "Text3.txt" For Input As #1
        Line Input #1, ocitanoizfajla
    Close #1
    Text3.Text = ocitanoizfajla
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Open "Text1.txt" For Output As #1
        Print #1, Text1.Text
    Close #1

    Open "Text2.txt" For Output As #1
        Print #1, Text2.Text
    Close #1

    Open "Text3.txt" For Output As #1
        Print #1, Text3.Text
    Close #1
End Sub

rgdrajko
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Options, save to file, read from file ;)04.05.2007. u 12:52 - pre 209 meseci
Jasno, hvala
 
Odgovor na temu

[es] :: Visual Basic 6 :: Options, save to file, read from file ;)

[ Pregleda: 4960 | Odgovora: 12 ] > FB > Twit

Postavi temu Odgovori

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