Página 1 de 1

Salida de pantalla a un fichero

Publicado: 05 Abr 2013, 22:33
por elfoscuro
Buenas.

Tengo en mente una especie de lanzador para cargar juegos en Spectrum, usando el +3e y que sirva para cargar los juegos de la CF. La idea sería algo parecido al Norton Commander, usando las particiones como directorios, y mostrando los ficheros de cada una.

Pero, para ello, necesito algo muy simple en MSDOS, y que no se como sacar en BASIC... Algo tan sencillo como "dir > salida.txt" en MSDOS.

¿Sabéis como lo puedo hacer? La idea sería poder leer el directorio de ficheros y pasarlo a una matriz de strings, que luego usaría para mostrar la lista.

Un saludo.

Re: Salida de pantalla a un fichero

Publicado: 10 Abr 2013, 20:45
por cuek! tacha
Hola elfoscuro, no tengo idea de como son los comandos del +3e. Tampoco tengo idea de que si lo que se me ocurrio es lo que necesitas :?: pero aqui va.

Lo que se me ocurre es hacer un programita para ir salvando en un "DIM a$(x,32)" donde x=(cantidad de filas a guardar), hacer un "DIR" y luego de cada "scroll?" hacer un Break y llamar a una linea en basic, donde se comience a copiar el contenido de pantalla a a$ donde habia quedado x.

EJ:
quiero copiar 3 pantallas de directorio en un array$ entonces primero copio el siguiente listado:

10 DIM a$(65,31) :REM donde 65 es (22*3)-1 | 22 es la cantidad de filas*pantalla y le resto 1 por la linea 0
20 LET x=0
30 FOR f=0 to 21
40 FOR g=0 to 31
50 LET a$(f+x,g)=SCREEN$(f,g)
60 NEXT g
70 NEXT f
80 LET x=x+22
85 IF x=66 THEN SAVE "DIRECTORIO" DATA $()
86 STOP

Luego:

DIR+ENTER
Scroll? = BREAK
GOTO 10 + ENTER

STOP statement, 0:1

DIR+ENTER
Scroll? = ENTER
Scroll? = BREAK
GOTO 30

STOP statement, 0:1

DIR+ENTER
Scroll? = ENTER
Scroll? = ENTER
Scroll? = BREAK
GOTO 30

star tape, then press any key.

Bueno, y eso a mano alzada y a codigo cortado y despilfarrado es lo que se me ocurre para copiar en un array$ lo que ha pasado por la pantalla luego de los DIR

Para luego verlo typeas:

DIM a$(65,31)
LOAD "DIRECTORIO" DATA

20 FOR f=0 to 65
30 PRINT a$(f)
40 NEXT f

GOTO 20 (nunca hagas un RUN porque borrarias lo cargado).

si esto no es lo que buscabas bueno, ya me puedes mandar a freír espárragos con la rubiecita del Mago de OZ.

SALAM!

Re: Salida de pantalla a un fichero

Publicado: 10 Abr 2013, 20:49
por tacha
bueno, esto del foro esta andando mal, tuve que cambiar mi nombre de usuario para responder, y ni siquiera estaba registrado ese nombre !!! XD

Re: Salida de pantalla a un fichero

Publicado: 12 Abr 2013, 03:28
por Izaro
si señor aqui tenemos otro crack del basic.