Izvlacenje podataka iz TXT fajla

[ Pharos @ 06.05.2004. 22:55 ] @

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

[ ssteva @ 07.05.2004. 10:24 ] @

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

[ Pharos @ 07.05.2004. 20:22 ] @

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

[ ssteva @ 08.05.2004. 01:32 ] @

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

[ mladenovicz @ 11.05.2004. 11:35 ] @

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.

[ Pharos @ 12.05.2004. 08:48 ] @

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.

[ mladenovicz @ 12.05.2004. 12:22 ] @

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