Quiero combinar el contenido de varios archivos de texto en un solo archivo de texto, usando un lenguaje simple y fácil de escribir.

Mi código puede combinar todos los archivos TXT en el directorio especificado en un solo archivo, excluyendo los subdirectorios. Si el autor cree que mi método está bien, ¡dame algunos puntos! Se adjunta el código fuente como referencia: .Versión 2

.Shell de biblioteca de soporte

.Subrutina de especificación de biblioteca de soporte _button_merge_clicked

. Nombre del directorio de la variable local, tipo de texto

Nombre del archivo de la variable local, tipo de texto

Texto de combinación de la variable local, nombre del directorio del tipo de texto = carpeta de exploración ("directorio a fusionar". )

Si es verdadero (nombre del directorio = "")

devuelve ()

. Si es verdadero, finalice el nombre del archivo = busque el archivo (nombre del directorio + "\" + "*.TXT", )

Determine el primer archivo en el bucle (nombre del archivo ≠"")

. > . Si es verdadero (nombre de archivo ≠ ".")

o nombre de archivo ≠ "...")

.

Fusionar texto = Fusionar texto + a. texto (leer archivo (nombre de directorio + "\" + nombre de archivo))

Salida de depuración (fusionar texto)

.Finalizar si es verdadero

nombre de archivo = buscar file (, )

.Determinar el final del bucle ()

Escribir en el archivo ("C:\Documents and Settings\Administrator\Desktop\Merged Text.TXT", en el conjunto de bytes ( texto fusionado))

.