[es] - Options, save to file, read from file ;)

-wx-
Beograd

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

Jabber: wx@jabber.com
ICQ: 166638118

Profil

Options, save to file, read from file ;)

^{14.01.2002. u 21:11 - pre 271 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

Re: Options, save to file, read from file ;)

^{16.01.2002. u 01:55 - pre 271 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

Re: Options, save to file, read from file ;)

^{16.01.2002. u 02:11 - pre 271 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

Re: Options, save to file, read from file ;)

^{16.01.2002. u 20:15 - pre 271 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

Re: Options, save to file, read from file ;)

^{29.04.2007. u 20:32 - pre 206 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

Re: Options, save to file, read from file ;)

^{29.04.2007. u 22:06 - pre 206 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

Re: Options, save to file, read from file ;)

^{30.04.2007. u 01:41 - pre 206 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

Re: Options, save to file, read from file ;)

^{30.04.2007. u 18:10 - pre 206 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

Re: Options, save to file, read from file ;)

^{01.05.2007. u 14:31 - pre 206 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.

rgdrajko

Odgovor na temu

GazdaSale
Beograd

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

Profil

Re: Options, save to file, read from file ;)

^{03.05.2007. u 18:14 - pre 206 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

Re: Options, save to file, read from file ;)

^{04.05.2007. u 05:33 - pre 206 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

Re: Options, save to file, read from file ;)

^{04.05.2007. u 05:38 - pre 206 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