Preguntas sobre VB

Option?Base?1

Private?Sub?Form_Load()

'¿Recuerda poner todos los archivos en el mismo directorio

Dim?PasswordLine(10000)? ¿Como?Cadena,?Contraseña(10000)?Como?Cadena

Dim?Tgt(10000)?Como?Cadena

Dim?i?Como?Entero

'Lea el código original, el código de texto corresponde al subíndice de la matriz de contraseñas

Open?App.Path?amp;?"\MyCode.txt" "For?Input?As?#1

¿Hacer?Mientras?No?EOF(1)

i?=?i?1

Línea?Entrada?#1,?PasswordLine(i) )

Contraseña(i)?=?Left(PasswordLine(i),?1)

Bucle

Cerrar

'Leer el código a traducir

i?=?0

Open?App.Path?\ PasswordBook.txt"? "For?Input?As?#1

¿Hacer ?Mientras?No?EOF(1)

i?=?i?1

Línea?Entrada?#1,?Tgt(i)

Bucle

Cerrado

'Traducción. En principio, el subíndice que coincide con el número es el texto correspondiente

For?i?=?1?To. ?UBound (Tgt)

Si?Tgt(i)?lt;gt;?"" ?Entonces?Tgt(i)? =?Tgt(i)?amp;?Contraseña(Val(Tgt( i)) ))

'Salida

¿Abrir?App.Path?amp;?Â" \New Code.txt"?Para?Salida ?Como?#1

Para?i?=?1?A?UBound(Tgt)

Si?Tgt(i) lt;gt;?"" Entonces imprima #1 , Tgt( i)

Cerrar

Fin? De lo contrario, modificaré el código

Si nadie te ayuda a modificar Después de regresar, modificaré el código