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.
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
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.
aber tienes que abrir un fichero y meterlo en la varible data
Uhm... :-X Y eso cómo?
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)
Perfecto, muchas gracias. ^.-