Red de conocimiento informático - Aprendizaje de código fuente - ¿Cómo mostrar carpetas en un cuadro de idioma simple? Haga clic en el botón para mostrar el siguiente.

¿Cómo mostrar carpetas en un cuadro de idioma simple? Haga clic en el botón para mostrar el siguiente.

Este efecto se puede lograr enumerando archivos, usando "leer archivo()" y operaciones de matriz.

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.