mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-18 02:29:13 +00:00
29 lines
878 B
Batchfile
29 lines
878 B
Batchfile
@echo off
|
|
setlocal EnableDelayedExpansion
|
|
|
|
:: Nombre del archivo de salida
|
|
set "OutputFile=TODOS_LOS_BAS.txt"
|
|
|
|
:: Si existe una versión anterior, la elimina para no anexar datos duplicados
|
|
if exist "!OutputFile!" del "!OutputFile!"
|
|
|
|
echo Iniciando proceso de fusion...
|
|
|
|
:: Itera sobre todos los archivos .bas en el directorio actual
|
|
for %%F in (*.bas *.b4a *.b4j) do (
|
|
echo Procesando: %%F
|
|
|
|
:: Agrega un salto de linea y el encabezado al archivo de salida
|
|
echo. >> "!OutputFile!"
|
|
echo ====================================== >> "!OutputFile!"
|
|
echo ARCHIVO: %%F >> "!OutputFile!"
|
|
echo ====================================== >> "!OutputFile!"
|
|
echo. >> "!OutputFile!"
|
|
|
|
:: Vuelca el contenido del archivo actual al archivo de salida
|
|
type "%%F" >> "!OutputFile!"
|
|
)
|
|
|
|
echo.
|
|
echo Proceso terminado. Se ha creado el archivo: !OutputFile!
|
|
pause |