1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
|
Direct_Output channel 1 sDateiPfad
Direct_Input channel 2 "c:\temp\vorlage.xml"
If (not(SeqEof)) Begin // File exists.
While (not(SeqEof))
Readln channel 2 sBuffer
Writeln channel 1 sBuffer
Loop
End
Close_Input channel 2
Close_Output
|