File Creation

[sanjaynayaka]

How to create and read a text file using speedscript.

 

[rstanciu]

DEFINE STREAM ls.
DEFINE VARIABLE lcFile AS CHARACTER NO-UNDO.
DEFINE VARIABLE lcLine AS CHARACTER NO-UNDO.
lcFile = "/tmp/test.txt".

INPUT STREAM ls FROM VALUE(lcFile).
REPEAT:
IMPORT STREAM ls UNFORMATTED lcLine.
MESSAGE lcLine VIEW-AS ALERT-BOX.
END.
INPUT STREAM ls CLOSE.

OUTPUT STREAM ls TO VALUE(lcFile).
FOR EACH Customer NO-LOCK:
PUT STREAM ls UNFORMATTED Customer.Name SKIP.
END.
OUTPUT STREAM ls CLOSE.