Anonymous user
Selective file copy: Difference between revisions
→{{header|REXX}}: added zkl
(flag the task description as "clarification needed". (Also, remove incorrect usage of "draft task" template argument.)) |
(→{{header|REXX}}: added zkl) |
||
Line 751:
AAAAA04XXXXX
AAAAA05XXXXX</pre>
=={{header|zkl}}==
Taking a clue from ALGOL 68 and Awk.
<lang zkl>File("in.txt").pump(File("out.txt","w"),fcn(line){
// 012345678901234567890...
// A bbbbB0001+d2345
// fields:1 2 3 45, field 4 is +|-
fld1,fld3,fld4,fld5 := line[0,5], line[10,4],line[14], line[15,*].strip();
if(fld4=="-") fld3=-fld3.toInt();
"%-5s%5d%s\n".fmt(fld1,fld3,"X"*fld5.len())
})</lang>
{{out}}
<pre>
$ zkl bbb
$ cat out.txt
A 1XXXXX
AA 2XXXXX
AAA 3XXXXX
AAAA -1XXXXX
AAAAA -2XXXXX
</pre>
| |||