Comment copier un fichier texte dans un autre fichier texte avec des modifications (édition de fichiers df)

Question

Je suis assez nouveau pour progresser 4gl. J'essaie de copier le contenu d'un fichier df dans un autre fichier où je veux copier tout sauf les zones du fichier df. c'est ce que j'ai jusqu'ici.

define stream mystream. 
input from "C:\OpenEdge\WRK\df file\sample.df". 
do while true on endkey undo, leave: 
output to "C:\OpenEdge\WRK\df file\test1.df". 
end. 
output close. 
display "finished". 

Je voudrais tout d'abord copier tout le contenu du premier fichier df dans un autre fichier df, mais maintenant je reçois un fichier vide. S'il vous plaît laissez-moi savoir où je vais mal.

Answer 1

C'est ce que je fais:

grep -v AREA <dbname.df> dbname.df2 

Si vous êtes coincé avec le système d'exploitation qui manque "grep" ou si vous avez juste envie de le faire avec le code 4gl je ferais quelque chose comme:

define variable lineIn as character no-undo. 

input from "dbname.df". 
output to "dbname.df2". 

repeat: 

    import unformatted lineIn.     /* read the data a whole line at a time */ 

    if lineIn begins " AREA" then next.   /* skip lines that start with " AREA" */ 

    put unformatted lineIn skip.     /* spit the input line back out */ 
    if lineIn = "" then put unformatted skip(1). /* yes, this is a weird thing */ 

end. 

Answer 2

Pour copier tout le contenu du premier fichier df à un autre fichier df, utilisez ce code:

DEFINE VARIABLE TEXT-STRING AS CHARACTER FORMAT "X(76)". 

INPUT FROM "C:\OPENEDGE\WRK\CMD-LOG.DF". 

OUTPUT TO "C:\OPENEDGE\WRK\MY.DF". 
DO WHILE TRUE ON ENDKEY UNDO, LEAVE: 
    IMPORT UNFORMATTED TEXT-STRING. 
    MESSAGE TEXT-STRING . 
END. 

INPUT CLOSE. 
OUTPUT CLOSE.