Paso 7: Con básicos en lugar de bash.
FreeBASIC es gratuito y está disponible para la mayoría de las plataformas.
compilar con
FBC-lang qb filerdr.bas
filerdr.Bas
[código]
abrir "archivo" para la entrada como #1
abrir "Notas" para la salida #2
abrir "notas-cs" para la salida #3
mientras no eof(1)
INPUT #1, a$
b$ = left$(a$,2)
c$ = mid$(a$,4,2)
imprimir #2, "NOTE_"; $b ",";
imprimir #3, $ c, ",";
lazo
cerca de #1
cierre #2
cierre #3
[/ code]
archivo
G3-3
F4-23
Notas
NOTE_G3, NOTE_F4,
Notas-cs
3, 23,