Quiero combinar el contenido de varios archivos de texto en un solo archivo de texto, usando un lenguaje simple y fácil de escribir.
.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))
.