Autor
|
Tema: Leer partes de un archivo. (Leído 2,912 veces)
|
Scratz
Desconectado
Mensajes: 318
|
Buenas. Estoy creando una aplicación que guarda unos datos y luego los carga. Ya he guardado los datos en un config.ini: <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.
|
|
|
En línea
|
\\... The Revolution Is Comming ...//
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
este codigo con funciones de str 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
|
|
|
En línea
|
|
|
|
Scratz
Desconectado
Mensajes: 318
|
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: 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.
|
|
|
En línea
|
\\... The Revolution Is Comming ...//
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
aber tienes que abrir un fichero y meterlo en la varible data
|
|
|
En línea
|
|
|
|
Scratz
Desconectado
Mensajes: 318
|
Uhm... Y eso cómo?
|
|
|
En línea
|
\\... The Revolution Is Comming ...//
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
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)
|
|
|
En línea
|
|
|
|
Scratz
Desconectado
Mensajes: 318
|
Perfecto, muchas gracias. ^.-
|
|
|
En línea
|
\\... The Revolution Is Comming ...//
|
|
|
|
|