[es] - Izvlacenje podataka iz TXT fajla

Pharos
Pančevo

Član broj: 20664
Poruke: 1029
*.smin.sezampro.yu.

+2 Profil

^{06.05.2004. u 22:55 - pre 243 meseci}

Momci i devojke pomozite mi da resim jedan skolski primer.
Imam jedan program na kome se nalaze 3 tekstualna polja i jedan CommandButon. U jedan txtbox upisujem ime u drugi prezime a u treci datum rodjenja i sve to smestam u jedan fajl koji izgleda otprilike ovako:

Petar Petrovic 2/2/1984
Milos Jovanovic 23/8/1982
Vlade Divac 23/5/1978

Znaci svi podaci se odvajaju sa razmakom " " a na kraju reda stoji CRLF( chr(13).

Pitanje:
Sada treba napraviti prog. koji ima 3 tekstualna polja i CommandButton. Klikom na Button otvara se onaj fajl i program treba da prepozna sta je ime, sta je prezime a sta je datum rodjenja. Ako postoji vise record-a kao sto je prikazano u primeru, onda treba na to isto dugme ili na neko drugo, da se izlistaju svi record-i, slicno nesto kao Data1 kontrola sa move opcijom.
Pomoc:
Broj record-a moze da se pronadje tako sto kada se otvori fajl program pretrazuje koliko je puta koristen vbCrlf i to je broj record-a. Kako program prepoznaje sta je sta? Pa pomocu Instr komande (bar tako mislim) se trazi karakter " " i onda se sa Len izmeri duzina zapisa do " " , pa onda opcijom Mid se uzima samo ime ...
E sada ako neko moze da mi ispise KOD za ovo sto sam trazio bio bih mu JAKO zahvalan. Nadam se da vam ovo nece biti veliki problem jer ipak to je gradivo srednje skole :)
Thanks again!
bYe

77 77 77 2E 65 73 6E 69 70 73 2E 63 6F 6D

Odgovor na temu

ssteva
Beograd

Član broj: 12533
Poruke: 55
*.jugopetrol.co.yu

Profil

Re: Izvlacenje podataka iz TXT fajla

^{07.05.2004. u 10:24 - pre 243 meseci}

Citat:

Pharos:
Kako program prepoznaje sta je sta? Pa pomocu Instr komande (bar tako mislim) se trazi karakter " " i onda se sa Len izmeri duzina zapisa do " " , pa onda opcijom Mid se uzima samo ime ...

Koristi funkciju spilt.

Code:

    Dim a() As String
    Dim t as TextStream

    'Ubaci kod za citanje tekst fajla
    While not t.AtEndOfStream
        a = Split(t.readline, " ")

        'a(0) je ime a(1) je prezime a(2) je datum :)
    Wend

Odgovor na temu

Pharos
Pančevo

Član broj: 20664
Poruke: 1029
195.252.80.*

+2 Profil

Re: Izvlacenje podataka iz TXT fajla

^{07.05.2004. u 20:22 - pre 243 meseci}

Citat:

ssteva:

Citat:

Koristi funkciju spilt.

Program mi stalno izbacuje neku gresku kod While not t.AtEndOfStream. Nesto tu jos ne dostaje.
Ajde napisi mi ceo source ako mi se npr. fajl nalazi u e:\basic.txt

77 77 77 2E 65 73 6E 69 70 73 2E 63 6F 6D

Odgovor na temu

ssteva
Beograd

Član broj: 12533
Poruke: 55
*.sbb.co.yu

Profil

Re: Izvlacenje podataka iz TXT fajla

^{08.05.2004. u 01:32 - pre 243 meseci}

Evo malo MSDN-a, mrzi me da kucam...

Code:

Description

Read-only property that returns True if the file pointer is at the end of a TextStream file; False if it is not.

Syntax

object.AtEndOfStream

The object is always the name of a TextStream object.

Remarks

The AtEndOfStream property applies only to TextStream files that are open for reading; otherwise, an error occurs.

The following code illustrates the use of the AtEndOfStream property:

Dim fs, a, retstring
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("c:\testfile.txt", ForReading, False)
Do While a.AtEndOfStream <> True
retstring = a.ReadLine
...
Loop
a.Close

Odgovor na temu

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

Član broj: 6598
Poruke: 2065
62.108.109.*

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

Profil

Re: Izvlacenje podataka iz TXT fajla

^{11.05.2004. u 11:35 - pre 242 meseci}

Bolje nauci da se snalazis u MSDNu. I u MSDNu i na netu imas koliko hoces koda koji mozes da doradjujes. Osim toga, ssteva ti je dao maltene sve na tacni, a imas u top topicu o FSOu sampleove za rad sa TextStreamom.

Blue Man Group

Odgovor na temu

Pharos
Pančevo

Član broj: 20664
Poruke: 1029
*.smin.sezampro.yu.

+2 Profil

Re: Izvlacenje podataka iz TXT fajla

^{12.05.2004. u 08:48 - pre 242 meseci}

Citat:

mladenovicz:
Bolje nauci da se snalazis u MSDNu. I u MSDNu i na netu imas koliko hoces koda koji mozes da doradjujes. Osim toga, ssteva ti je dao maltene sve na tacni, a imas u top topicu o FSOu sampleove za rad sa TextStreamom.

Mladenovicu dokle vise sa tvojim beskorisnim odgovorima?! Ako ne mozes da pomognes nemoj pisati nesto tek da napises. Napisao sam lepo da sam nasao na NET-u kodove za INSTR i SPLIT funkcije ali da se nisam snasao. U TOP FSO ne pise nista o ovim funkcijama! Tako da te molim ako nemas nesto konkretno da mi kazes sto bi mi pomoglo nemoj dzabe pisati, jer trosis i moje i svoje vreme.
Hvala.

77 77 77 2E 65 73 6E 69 70 73 2E 63 6F 6D

Odgovor na temu

Re: Izvlacenje podataka iz TXT fajla

^{12.05.2004. u 12:22 - pre 242 meseci}

Ako je tebi od pomoci SAMO kompletan source (sa sve e:\basic.txt), onda zaista necu vise trositi svoje vreme na tvoje postove.

Blue Man Group

Odgovor na temu