Escribir .ini

[& eDu &]

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 (vb) [Seleccionar] Expandir

Text1.text = x
Dato: y y haga que el

Código (vb) [Seleccionar] Expandir

Text2.text = y

[naderST]

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

[& eDu &]

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

Escribir escribe, pero despues leerlos...

Código (vb) [Seleccionar] Expandir


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

[naderST]

Suponte que este sea el ini:

Código [Seleccionar] Expandir


[Persona]
Nombre=Pedro
Apellido=Rodriguez


Para leer el nombre y el apellido seria asi:

Código [Seleccionar] Expandir


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


[& eDu &]

Suponte que este sea el ini:

Código [Seleccionar] Expandir


[Persona]
Nombre=Pedro
Apellido=Rodriguez


Para leer el nombre y el apellido seria asi:

Código [Seleccionar] Expandir


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


Pongo esto

Código (vb) [Seleccionar] Expandir

Text1.Text = mInI.ReadData("Datos", "User")
y no me da error, pero tampoco rellena el text.

[SKL (orignal)]

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


sl2

[naderST]

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

Código [Seleccionar] Expandir


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