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
Rutina QBasic combina 2 Ficheros TXT (1X2 ó LOTO)
Rutina QBasic combina 2 Ficheros TXT (1X2 ó LOTO)
Última edición por juanknito el Mar 06 Jun, 2017 9:24 am, editado 1 vez en total.
el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Re: Programa QBasic para juntar 2 Ficheros TXT
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
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
el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Re: Rutina QBasic combina 2 Ficheros TXT (1X2 ó LOTO)
el Karma Instantáneo existe, REPARTE con los que COMPARTEN.