Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 240889 (2325)
  Suchen
 Zurück zur Übersicht
 AutorThema: Zeile für Zeile
Martin Pohl
Datum:11.09.02 15:57 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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