Escriba un programa en Easy Language e ingrese el nombre del archivo para encontrar la ruta del archivo. ¿Qué debo hacer?
Esto es lo que hice antes. Puedes consultarlo.
Versión 2
. Biblioteca de soporte eAPI
búsqueda completa de subrutinas, tipo de texto
. Parámetro_palabra clave, tipo de texto
. Lista de controladores de variables locales, tipo de texto, "0"
. Variable local I, tipo entero.
. Resultado de la variable local, escriba texto, "0"
DriveList = GetDriveList(#InterfaceCont.HardDrive)
. Calcule el número de cabezas de bucle (obtenga el número de miembros de la matriz (lista de unidades), I)
Buscar archivo (lista de unidades [i], _keyword, resultado, verdadero, 1, verdadero)
. Si es verdadero (obtener el número de miembros de la matriz (resultado) ≠ 0)
Salir del ciclo ()
Si realmente terminó.
. Contar cola del ciclo()
. If (obtener el número de miembros de la matriz (resultado) ≠ 0)
Cuadro de información (resultado [1], 0,)
Regresar (resultado [1])
De lo contrario.
InfoBox("Not Found", 0,)
Retorno("")
si finalizó
. Las subrutinas buscan archivos y encuentran archivos de forma recursiva.
. Directorio de búsqueda de parámetros, tipo de texto
Palabra clave de parámetro, tipo de texto, como imagen*.pak.
Matriz de resultados de parámetros, tipo de texto, matriz de referencia, obtiene el nombre del archivo y lo agrega a la matriz.
Subdirectorio de búsqueda de parámetros, tipo lógico, puede estar vacío, el valor predeterminado es verdadero.
Número de búsqueda de parámetros, tipo entero; puede estar en blanco de forma predeterminada, no hay límite en el número máximo de archivos a buscar.
Resultado de la ruta completa del parámetro, lógico, opcional, el valor predeterminado es verdadero.
. Nombre de archivo de variable local, tipo de texto
. Variable local I, tipo entero.
. Variable local n, tipo entero
. Hora variable local, tipo entero
. Si es verdadero (si está vacío (buscar subdirectorios))
Buscar subdirectorios = verdadero
Si realmente terminó.
. Si es verdadero (si está vacío (resultado de ruta completa))
Resultado de ruta completa = verdadero
Si realmente terminó.
Si es verdadero(take textright(finddir,1)8800;"\")
finddir = subtexto reemplaza(finddir "\", "/" \ ",, verdadero)
Si realmente terminó.
Nombre de archivo = archivo de búsqueda (palabra clave del directorio de búsqueda)
Determine el encabezado del bucle (nombre de archivo≡número)
Si (si está vacío (número de búsquedas) o número de miembros de la matriz (matriz de resultados)