Version 5.12.15.test

B4A/_juntaBas.bat

@@ -0,0 +1,29 @@
+@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