Red de conocimiento informático - Aprendizaje de código fuente - ¿Abrir el archivo especificado y mostrar el lenguaje simple del ícono del software?

¿Abrir el archivo especificado y mostrar el lenguaje simple del ícono del software?

.Versión 2

.Biblioteca admitida iext

.Especificaciones de biblioteca admitidas

.Cuenta de carga de subprograma, lógica

.Nombre de archivo de variable local , texto, si el nombre del archivo es chino, use texto

. Variable local número de archivo, entero, si el nombre del archivo es un número, use un número entero

. Variables locales línea de texto, texto, , La línea de texto es el contenido de cada línea del archivo de texto, por lo que se utiliza texto

. Información de cuenta variable local, texto, "2", la cuenta puede ser china o inglesa, use texto

. Variables locales línea actual, número entero, el número de línea es, por supuesto, un número entero

. Variable local i

.Variable local x

.Variable local b

.Variable local a, tipo texto

.Variable local c

.Variable local e

Diálogo General 1.Tipo = 0

Diálogo General 1.Filter = "Archivo de texto (*.txt)|*.txt |Todos los archivos (*. *)|*.*"

GeneralDialog1.InitialDirectory = Obtener el directorio de ejecución () + "\account"

. Si es verdadero (Diálogo general 1. open () = false)

Devuelve (falso)

. Fin si es verdadero

SuperListBox2.DeleteAll () ' Borre el cuadro de lista súper Si no desea borrarlo, elimine esta línea

Nombre de archivo = Cuadro de diálogo común 1.Nombre de archivo.

b = Texto de búsqueda inversa (nombre de archivo, "\", , false)

a = nombre de archivo

c = Obtener longitud del texto (a)

. Determinar el punto inicial del bucle (b≠-1)

b = Encontrar el texto al revés (a, "\", , false)

c = Obtener la longitud del bucle text (a)

a = obtener el lado derecho del texto (a, c - b)

Salida de depuración (a)

. Determinar el final del bucle ()

b = Buscar el texto al revés (a, "." , false)

a = Obtener el lado izquierdo del texto (a, b - 1)

Salida de depuración (a)

Escribir elementos de configuración (tome el directorio de ejecución () + "\config.ini", "última cuenta", "1", a )

Número de archivo = abrir archivo (nombre de archivo, # leer, ) 'Leer información de contraseña de cuenta

.

Juicio de bucle primero ()

línea de texto = leer una línea (número de archivo)

línea de texto = reemplazo de subtexto (línea de texto, ",", ",", , verdadero)

línea de texto = reemplazo de subtexto (línea de texto, "=", ",", , verdadero)

línea de texto = reemplazo de subtexto (línea de texto, "=", " ,", ",", ,true)

línea de texto = reemplazo de subtexto (línea de texto, "=",",",",",",",",",",true ) ", , true)

text_line = subtext_replace(text_line, "", "", , true)

account_info = split_text(text_line, " , ", ) ' Número de cuenta (texto línea, ", ", ) ' El formato del texto de la cuenta es cuenta + 4 espacios, por ejemplo: (1 2)

Información de la cuenta = texto dividido (línea de texto, ",", ) 'Número de cuenta (texto line, ",", ) 'El formato del texto de la cuenta es cuenta + 4 espacios, por ejemplo: (1 2g. (1 2)

x = Obtener miembros de la matriz (información de la cuenta)

. Si es verdadero (línea de texto ≠ "" y x = 2)

. Si es verdadero (miembro de la matriz (información de la cuenta) ≠ 2)

Cuadro de mensaje ("Separe las contraseñas de las cuentas). con comas", 0, "El formato de la contraseña de la cuenta es incorrecto")

Retorno (falso)

.Si es verdadero final

i = i + 1

Fila actual = SuperListBox2.Insertar entrada de tabla (, al texto (i), , , , )

SuperListBox2.Title (i - 1, 0, Eliminar encabezado y pie de página vacíos (información de la cuenta [1])) ' 0 representa la primera columna de SuperListBox1, 1 representa la primera fila y la primera columna de SuperListBox1. Tenga en cuenta que en lenguaje normal, el valor predeterminado es la columna 1. es 0

SuperListBox2.Title. (i - 1, 1, eliminar el primer y el último nulo (información de la cuenta [2])) ' 1 para la columna 2 de la tabla SuperListBox1 2 para la fila 1 de la columna 2 de SuperListBox1 Tenga en cuenta que en lenguaje normal, la columna 1 predeterminada es 0

. Si es verdadero, finaliza

. El bucle determina el final (si está al final del archivo (número de archivo,) = falso)

. Cerrar archivo (número de archivo)

Volver (verdadero)