Rutina QBasic combina 2 Ficheros TXT (1X2 ó LOTO)

[juanknito]

Saludos,

una pequeña utilidad para combinar 2 ficheros TXT que contengan signos 1X2 (SUMEN 14 ó NO), y LOTO

El programa combinará TODAS las columnas del FICHERO1.TXT con TODAS las columnas del FICHERO2.TXT

el resultado, se guarda en el FICHERO3.TXT


Es una subrutina muy sencilla, que hace lo que dice, solamente.

pongo el código y el programa para descargar:

'CÓDIGO:----------------------------------------------------------------


REM ***** PROGRAMA EN QBASIC PARA UNIR DOS FICHEROS TEXTO 1X2 (FICHERO1.TXT Y FICHERO2.TXT GENERANDO FICHERO3.TXT) ******


OPEN "FICHERO3.TXT" FOR OUTPUT AS #3 'FICHERO DONDE GRABAMOS COLUMNAS FINALES.

OPEN "FICHERO1.TXT" FOR INPUT AS #1 'FICHERO No. 1, donde leemos columnas a combinar (1 de 2).
DO WHILE NOT EOF(1)
COL1 = COL1 + 1: LC = 2
LINE INPUT #1, COL1$

OPEN "FICHERO2.TXT" FOR INPUT AS #2 'FICHERO No. 2, donde leemos columnas a combinar (2 de 2).
DO WHILE NOT EOF(2)
COL2 = COL2 + 1
LINE INPUT #2, COL2$


LC = LC + 1: IF LC >= 10 THEN LC = 2
LOCATE LC, 1


' Mostrar en pantalla.
PRINT USING " ####### "; COL1; COL2;
PRINT COL1$; "+"; COL2$; " = ";

COL3$ = COL1$ + COL2$



NCOL = NCOL + 1

PRINT " Grabando Columna ";: PRINT USING " ####### "; NCOL
PRINT #3, COL3$ 'almacena las columnas combinadas de los ficheros Nos.1 y 2, en fichero No. 3.


LOOP

CLOSE #2: COL2 = 0

LOOP
CLOSE #1
CLOSE #3

500 INPUT "Pulsa <-- para FIN "; WW
CLS: STOP

[juanknito]

link de descarga:
Programa para combinar 2 ficheros de columnas 1X2 (ó Loto), aunque no sumen 14 signos.

es necesario que se nombren y coloquen en el mismo directorio que el UNE_2_FICH, los siguientes:
FICHERO1.TXT
FICHERO2.TXT
ambos ficheros pueden contener de: 1 a 13 signos, así

1X221X1 y XX21122 resultando:1X221X1XX21122 (FICHERO3.TXT)

se creará éste nuevo fichero:
FICHERO3.TXT (contiene las columnas combinadas de los dos FICHERO1.TXT + FICHERO2.TXT)

ejemplo:
si el fichero nº1 tiene: 100 columnas, y el fichero nº2 tiene: 50 columnas, el fichero resultante nº3 tendrá exactamente; 100 x 50 = 5000 columnas.


programa compilado y ejecutable en windows: UNE_2_FICH.EXE

http://ge.tt/8drOuUk2

[juanknito]

Así queda la última versión:



he añadido en la descarga el código en QBasic.