Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: & eDu & en 24 Mayo 2008, 21:41 pm

Título: Escribir .ini
Publicado por: & eDu & en 24 Mayo 2008, 21:41 pm

Bueno quiero un codigo que a un .ini le escriba:

User: x
Dato: y

y que cuando se ejecute el programa lea

User: x y haga que el

Código

Text1.text = x

Dato: y y haga que el

Código

Text2.text = y

Título: Re: Escribir .ini
Publicado por: naderST en 24 Mayo 2008, 21:43 pm

http://classicvisualbasic.com/foro/viewtopic.php?f=5&t=15&sid=22a3d3a769165c6d5d5fcd98b7d0a11f
(http://classicvisualbasic.com/foro/viewtopic.php?f=5&t=15&sid=22a3d3a769165c6d5d5fcd98b7d0a11f)

Título: Re: Escribir .ini
Publicado por: & eDu & en 24 Mayo 2008, 22:09 pm

Cita de: naderST en 24 Mayo 2008, 21:43 pm

http://classicvisualbasic.com/foro/viewtopic.php?f=5&t=15&sid=22a3d3a769165c6d5d5fcd98b7d0a11f
(http://classicvisualbasic.com/foro/viewtopic.php?f=5&t=15&sid=22a3d3a769165c6d5d5fcd98b7d0a11f)

Escribir escribe, pero despues leerlos...

Código

Debug.Print mInI.ReadData("x", "y", Text1.Text)

Título: Re: Escribir .ini
Publicado por: naderST en 24 Mayo 2008, 22:12 pm

Suponte que este sea el ini:

Código:

[Persona]
Nombre=Pedro
Apellido=Rodriguez

Para leer el nombre y el apellido seria asi:

Código:

MsgBox mIni.ReadData("Persona", "Nombre")
MsgBox mIni.ReadData("Persona", "Apellido")

Título: Re: Escribir .ini
Publicado por: & eDu & en 24 Mayo 2008, 23:04 pm

Cita de: naderST en 24 Mayo 2008, 22:12 pm

Suponte que este sea el ini:

Código:

[Persona]
Nombre=Pedro
Apellido=Rodriguez

Para leer el nombre y el apellido seria asi:

Código:

MsgBox mIni.ReadData("Persona", "Nombre")
MsgBox mIni.ReadData("Persona", "Apellido")

Pongo esto

Código

Text1.Text = mInI.ReadData("Datos", "User")

y no me da error, pero tampoco rellena el text.

Título: Re: Escribir .ini
Publicado por: SKL (orignal) en 24 Mayo 2008, 23:19 pm

esa clase es exelente... funciona muy bien...

sl2

Título: Re: Escribir .ini
Publicado por: naderST en 25 Mayo 2008, 01:29 am

Lo que pasa es que no estas sabiendo utilizar la clase mira prueba asi:

Código:

Private Sub Form_Load()
    mIni.Init
    mIni.Path = App.Path
    mIni.Filename = "\prueba.ini"
    MsgBox mIni.ReadData("Persona", "Nombre")
    MsgBox mIni.ReadData("Persona", "Apellido")
End Sub