Imprimir Página - Leer partes de un archivo.

Título: Leer partes de un archivo.
Publicado por: Scratz en 26 Noviembre 2006, 17:58 pm

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:

<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.

Título: Re: Leer partes de un archivo.
Publicado por: WarGhost en 26 Noviembre 2006, 18:14 pm

este codigo con funciones de str

Código:

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

Título: Re: Leer partes de un archivo.
Publicado por: Scratz en 26 Noviembre 2006, 18:50 pm

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:

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.

Título: Re: Leer partes de un archivo.
Publicado por: WarGhost en 26 Noviembre 2006, 19:05 pm

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

Título: Re: Leer partes de un archivo.
Publicado por: Scratz en 26 Noviembre 2006, 19:20 pm

Uhm... :-X Y eso cómo?

Título: Re: Leer partes de un archivo.
Publicado por: WarGhost en 26 Noviembre 2006, 19:24 pm

Código:

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)

Título: Re: Leer partes de un archivo.
Publicado por: Scratz en 26 Noviembre 2006, 19:40 pm

Perfecto, muchas gracias. ^.-

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Scratz en 26 Noviembre 2006, 17:58 pm