Leer partes de un archivo.

[Scratz]

Buenas. Estoy creando una aplicación que guarda unos datos y luego los carga. Ya he guardado los datos en un config.ini:

Código [Seleccionar] Expandir


<BlackD Logger configuration>
Account=0000000
Password=0000000


Ahora quiero que en un TextBox me aparezca el Account y en otro el Password, es decir, indicarle lo que tiene que leer. Necesito que me echeis una mano con eso. Gracias de antemano.
Saludos.

[WarGhost]

este codigo con funciones de str

Código [Seleccionar] Expandir

Dim data As String: data = "<BlackD Logger configuration>" & vbCrLf & _
                           "Account=0000000" & vbCrLf & _
                           "Password=0000001"
                           
MsgBox Mid(Mid(data, InStr(1, data, "Account=") + 8), 1, InStr(1, Mid(data, InStr(1, data, "Account=") + 8), vbCrLf) - 2)
MsgBox Mid(data, InStr(1, data, "Password=") + 9)

pero para los ficheros ini es mejor:
http://foro.elhacker.net/index.php/topic,139883.msg657075.html#msg657075

[Scratz]

Gracias, pero tu código no me sirve. Ya que tú le indicas lo que tiene que leer, y yo quiero que lea lo que pone en ese .ini. Me explico, me gustaría hacer esto:

Código [Seleccionar] Expandir


Dim data As String: data = App.Path & "\config.ini"


Pero no me permite hacer eso. Soy bastante novato en VB ^^'. No he conseguido entender lo que explica el mensaje que me dices, creo que no es lo que busco.

[WarGhost]

aber tienes que abrir un fichero y meterlo en la varible data

[Scratz]

Uhm... Y eso cómo?

[WarGhost]

Código [Seleccionar] Expandir

dim data as string
Open App.Path & "\config.ini" For Binary As #1
data = Space(LOF(1))
Get #1, , data
Close #1
                           
MsgBox Mid(Mid(data, InStr(1, data, "Account=") + 8), 1, InStr(1, Mid(data, InStr(1, data, "Account=") + 8), vbCrLf) - 2)
MsgBox Mid(data, InStr(1, data, "Password=") + 9)

[Scratz]

Perfecto, muchas gracias. ^.-