El lenguaje sencillo reemplaza archivos y respuestas, date prisa y date prisa
.Biblioteca de shell de soporte
.Subroutine_Button1_Clicked
.Ruta temporal de variable local, texto
.Datos temporales de variable local, conjunto de bytes
Ruta temporal = carpeta de exploración ("Seleccione la carpeta donde se encuentra RF004.REZ", falso)
. Si es verdadero (ruta temporal ≠"")
se inicia el juicio (si el archivo existe (ruta temporal "\RF004.REZ") = falso)
Cuadro de mensaje ("). Error de reemplazo, la carpeta seleccionada no contiene el archivo RF004.REZ", 0,)
.Default
Datos temporales = leer archivo ("Rellene la ruta al archivo RF004. Archivo REZ aquí ")
' Cuando se utiliza el comando de lectura de archivo, es mejor que el archivo fuente RF004.REZ no sea demasiado grande
. Comienza el juicio (escribir archivo (ruta temporal " \RF004.REZ" , datos temporales) = verdadero)
Cuadro de mensaje ("¡Reemplazo exitoso!" , 0, )
.Default
Cuadro de mensaje ( "¡Error en el reemplazo!" , #Icono de error, )
.El fallo finaliza