¿Abrir el archivo especificado y mostrar el lenguaje simple del ícono del software?
.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) p>
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 p>
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 p>
. 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)