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.