[progress Communities] [progress Openedge Abl] Forum Post: Re: 11.5: Read And Write A File 1:1

[Brian K. Maher]

DEF STREAM s1. DEF STREAM s2. def var cLine as char no-undo. INPUT STREAM s1 FROM value("c:\temp\db.df"). output stream s2 to value("c:\temp\db_new.df"). REPEAT: IMPORT STREAM s1 UNFORMATTED cLine. if length(cLine) > 0 then put stream s2 unformatted cLine skip. else put stream s2 unformatted skip(1).end.

Continue reading...