Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 241778 (3214)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Zeile für Zeile
Martin Pohl
| Datum:11.09.02 15:57 (martin_pohl@msn.com) |
Hallo! Ich habe eine Bereichsvariable namens Line# . Dimensioniert mit 10485760. Das reicht. Nun möchte ich aus einer Datei mit der Kennung #1 (Assign) eine Zeile auslesen, bearbeiten und in eine zweite Datei (#2) schreiben. Wie kann ich Zeile für Zeile lesen und in eine Bereichsvariable kopieren? Nutze PRF 5.0-32.
Thorsten
| Datum:11.09.02 16:27 (galaxy@mrk-soft.de) |
Hi, Hmmmmmm, was genau möchtest du den nu ??? 1: Aus Datei #1 auslesen und in Datei #2 Schreiben ???? 2: Aus Datei #1 in Bereichsvariable ???? 3: aus ???? nach ????? Erseters:
     Assign #1,"File1"
     Assign #2,"File2"

     Reset #1
     Rewrite #2

     While equ(eof(#1),0)
      Input #1, lese$
      'lese$  verändern oder sonst was ....
      print #2,lese$
     Wend
     Close #1
     Close #2
Nummer zwei: Text in Bereichsvariable .....
     Assign #1,"File1"
     Reset #1

     While equ(eof(#1),0)
      Input #1,lese$
      'lese$ = .... lese$ verändern, bearbeiten ...
      String line#,adr% = lese$
      add adr%,len(lese$)
     Wend
     close #1
Achja, es geht sogar noch einfacher, wenn der Text einfach nur in die Bereichs-Variable soll: Assign #1,"file1" OpenRW #1 BlockRead(#1,line#,0,lof(#1)) Close #1 oder sogar noch kürzer: ReadText line#,"file1"
Martin Pohl
| Datum:12.09.02 13:51 (martin_pohl@msn.com) |
Ich möchte aus #1 eine Zeile in die Bereichvariable kopieren. Das muss direkt gehen wie z.B.: Input #1,Line# Dann soll die Zeile in #2 geschrieben werden. Das mit Blockread funktioniert nicht, da die Funktion zum Bearbeiten dann nur die erste Zeile des Blocks verändert, der Rest bleibt unverändert.
Thorsten
| Datum:12.09.02 16:22 (galaxy@mrk-soft.de) |
Warum der Umweg über die Bereichsavarible, hier reicht eine String-Variable vollkommen für aus !! Input #1,line$ und dann... print #2,line$
Martin Pohl
| Datum: 12.09.02 16:28 (martin_pohl@msn.com) |
Ich habe PRF 5.0-32. Da kann ein String maximal 255 Zeichen aufnehmen. Der Rest der Zeile und alle darauffolgenden Zeilen werden weggelassen.

| Zurück zur Übersicht