35 lines
827 B
Text
35 lines
827 B
Text
#include <hopper.h>
|
|
|
|
main:
|
|
.ctrlc
|
|
fd=0,fw=0
|
|
fopen(OPEN_READ,"archivo.txt")(fd)
|
|
if file error?
|
|
{"no pude abrir el archivo de lectura: "}
|
|
jsub(show error)
|
|
else
|
|
fcreate(CREATE_NORMAL,"archivoTmp.txt")(fw)
|
|
if file error?
|
|
{"no pude crear el archivo para escritura: "}
|
|
jsub(show error)
|
|
else
|
|
get arg number(2,desde), // from line
|
|
get arg number(3,hasta), // to line
|
|
|
|
line read=0
|
|
while( not(feof(fd)))
|
|
fread line(1000)(fd), ++line read
|
|
if(not( {line read} between(desde, hasta)))
|
|
{"\n"}cat,writeline(fw)
|
|
endif
|
|
wend
|
|
endif
|
|
endif
|
|
fclose(fw)
|
|
fclose(fd)
|
|
system("mv archivoTmp.txt archivo.txt")
|
|
exit(0)
|
|
.locals
|
|
show error:
|
|
file error, println
|
|
back
|