¿Cómo mostrar carpetas en un cuadro de idioma simple? Haga clic en el botón para mostrar el siguiente.
El código es el siguiente:
. ¿Versión? 2
. ¿Asamblea? Ventana Asamblea_Ventana de inicio
. ¿Variables de montaje? ¿Ubicación actual? Entero
. ¿Variables de montaje? ¿Lista de archivos? ¿Tipo de texto? ,?"0"
. ¿Subrutina? _ _Iniciar ventana_Creado
¿Archivo de enumeración? (¿Obtener el directorio en ejecución? ()?+?"\",?".jpg",? lista de archivos)
¿Qué pasa si es cierto? (¿Obtener el número de miembros de la matriz? (lista de archivos)?>?0)
¿Ubicación actual? =?1
Cuadro 1. ¿imagen? =?¿Leerlo en el archivo? (¿Lista de archivos?[1])
Si realmente se acabó.
¿Y si es verdad? (¿Obtener el número de miembros de la matriz? (¿lista de archivos)?>?1)
Button_Next. ¿prohibir? =?Incorrecto
Si realmente se acabó.
. ¿Subrutina? _ Botón _ Anterior _Clic
¿Ubicación actual? =?Ubicación actual? -?1
Cuadro 1. ¿imagen? =?¿Leerlo en el archivo? (¿lista de archivos? [ubicación actual])
. ¿si? (¿Titular?≤?1)
Botón _Anterior. ¿prohibir? =?Verdadero
En caso contrario.
Botón_Anterior. ¿prohibir? =?Incorrecto
Botón_Siguiente. ¿prohibir? =?Incorrecto
Si finalizó
. ¿Subrutina? _ Botón _ Siguiente _ Clic
¿Ubicación actual? =?Ubicación actual? +?1
Cuadro 1. ¿imagen? =?¿Leerlo en el archivo? (¿lista de archivos? [ubicación actual])
. ¿si? (¿Titular? ≥? ¿Obtener el número de miembros de la matriz? (Lista de archivos))
Botón_Siguiente. ¿prohibir? =?Verdadero
En caso contrario.
Botón_Anterior. ¿prohibir? =?Incorrecto
Botón_Siguiente. ¿prohibir? =?Incorrecto
Si finalizó
. ¿Subrutina? Archivos de enumeración
. ¿parámetro? Para enumerar un directorio de archivos, escriba? ,?El directorio de archivos que se va a enumerar.
. ¿parámetro? ¿Sufijo de archivo para enumerar? ¿Tipo de texto? ¿Puede estar vacío? Introduzca una extensión, como "". bmp" y ".mp3".
. ¿Parámetro? La variable cuyo resultado se va a guardar. ¿Tipo literal? ¿Referencia? ¿Matriz? La matriz de texto para guardar el resultado.
. ¿Variable local? Pro_Directorio, ?tipo de texto? ?Pro_archivo,?tipo entero?
¿Redefinir la matriz? p>Pro _ Directory? (¿Quiere enumerar el directorio del archivo? ? +?"*",?#subdirectory)'? La primera búsqueda debe proporcionar las condiciones correspondientes
El inicio del juicio. punto? (Pro _ Directory? ?"")'? Siempre que se encuentre ¿El resultado no está vacío?
¿Y si es verdadero? (Pro _ Directory? ? "."? ¿Y entonces qué? . Pro _ Directory? "..")
¿Enumerar archivos? (¿Quiere enumerar el directorio de archivos?+?Pro _ Directory?+?"\",?El sufijo del archivo a enumerar, ?La variable para guardar el resultado)
Si realmente está terminado
Pro _ Directorio? Entonces aquí solo necesita especificar el objeto de búsqueda: # subdirectorio.
¿Ha terminado el ciclo del juicio? ()
? Enumerar archivos
Pro_file? =?¿Busca archivos? (¿Quiere enumerar el directorio de archivos?+?"*"?+?¿El sufijo del archivo a enumerar?)'?La primera búsqueda debe proporcionar las condiciones correspondientes.
¿Determinar el inicio del ciclo? (¿Pro _ file?≠?"")'? ¿Siempre que el resultado encontrado no esté vacío? Entonces sigue buscando.
¿Pro_file? =?¿Quiere enumerar un directorio de archivos? +?Pro_Directorio? +?'Pro_file'? La ruta completa del archivo = directorio + nombre del archivo + sufijo.
¿Hacerse miembro? (Variable para guardar el resultado,? Pro_file)
¿Pro_file? =?¿Busca archivos? (,?)
¿Determinar el final del ciclo? ()En el programa, el efecto de demostración es el siguiente:
Este código cumple con sus requisitos.
El código fuente se adjunta a continuación.
Si tienes dudas, por favor pregunta.