Red de conocimiento informático - Problemas con los teléfonos móviles - VB lee el contenido del archivo de configuración ini local en TextBox

VB lee el contenido del archivo de configuración ini local en TextBox

Para entrada como fnumDo mientras no EOF(fnum)

' Leer una línea

Entrada de línea #fnum, one_line' Determinar si es un bloque o un valor clave

Si queda $(one_line, 1) = "[" Entonces

' Obtenga el nombre del bloque

sección = Mid$(one_line, 2, Len(one_line) - 2)

ElseIf InStr(one_line, "=") > 0 then

pos = InStr(one_line, "=")

' Obtenga el nombre de la clave

clave = Left$(one_line, pos - 1)

' Obtener el valor correspondiente

valor = Mid$(one_line, pos + 1)

' OK Si es mi bloque

Si sección = "mi" entonces

Si clave = "correo electrónico" entonces

Text1.Text = valor

ElseIf clave = "contraseña" Entonces

Text2.Text = valor

Finalizar si

Finalizar si

Fin si

Fin si

Fin si

Fin si

Fin si

.LoopClose fnum

End Sub txtFileName es el nombre del cuadro de texto donde se ingresa la ruta del archivo ini.