Autor Thema: Textdatei öffnen und parsen  (Gelesen 1190 mal)

Offline Don Pasquale

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.390
  • Geschlecht: Männlich
  • Don Pasquale
    • Auf Verlorenem Posten
Textdatei öffnen und parsen
« am: 08.01.03 - 10:39:19 »
Hallo Leute,

wie kann ich in Script eine Textdatei öffnen und
die erste zeile auslesen ?

Wer weiss Rat ?

Ciao
Don Pasquale

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Textdatei öffnen und parsen
« Antwort #1 am: 08.01.03 - 10:46:46 »
... in der Hilfe findest du alles notwendige, suche nach "Freefile"...

ata
Grüßle Toni :)

Offline Don Pasquale

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.390
  • Geschlecht: Männlich
  • Don Pasquale
    • Auf Verlorenem Posten
Re:Textdatei öffnen und parsen
« Antwort #2 am: 08.01.03 - 10:53:34 »
Danke ata,

ich war gerade selbst auf der Suche und bin über OPEN
drangekommen :-)


Ciao
Don Pasquale

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Textdatei öffnen und parsen
« Antwort #3 am: 08.01.03 - 10:55:44 »
... sobald ich wieder fit'er bin, werde ich den LS-Kurs an der Stelle ausbauen, das ist das nächste Thema...

ata
Grüßle Toni :)

Offline Don Pasquale

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.390
  • Geschlecht: Männlich
  • Don Pasquale
    • Auf Verlorenem Posten
Re:Textdatei öffnen und parsen
« Antwort #4 am: 08.01.03 - 11:29:05 »

So, dann will euch aber auch mein Ergebnis verraten:


         fileName$ = ABLAGEVERZEICHNIS +"\result.txt"
         
         fileNumber% = Freefile
         
         Open fileName$ For Input Access Read As fileNumber%
         
         Do While Not Eof(fileNumber%)  
            Input #fileNumber%,ZEILE$
         Loop
         
         Close fileNumber%         
'
         fileName$ = ABLAGEVERZEICHNIS +"\result.txt"
         
         fileNumber% = Freefile
         
         Open fileName$ For Input Access Read As fileNumber%
         
         Do While Not Eof(fileNumber%)  
            Input #fileNumber%,ZEILE$
         Loop
         
         Close fileNumber%         



Ciao

Don Pasquale

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz