Red de conocimiento informático - Aprendizaje de código fuente - El lenguaje sencillo reemplaza archivos y respuestas, date prisa y date prisa

El lenguaje sencillo reemplaza archivos y respuestas, date prisa y date prisa

.Versión 2

.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