Leer, Guardar, Cargar .INI

Iniciado por SγиtαxEяяoя, 26 Mayo 2013, 18:36 PM

0 Miembros y 1 Visitante están viendo este tema.

SγиtαxEяяoя

Tengo un formulario el cual contiene 2 "Textbox"

Nombre.Text
Apellido.Text



Lo que quiero hacer es que al abrir el programa, éste cree el archivo .INI con el nombre y apellido automáticamente.



Luego poder cambiar esos valor y al darle clic en el botón 'Guardar' y se guarden esos datos.



Al cerrar el programa y volverlo a abrir Cargue esos datos ya guardados en los mismos Textbox.



Agradezco de antemano cualquier tipo de ayuda.

Eleкtro

#1
Código (vbnet) [Seleccionar]
Dim INI_File As String = ".\Test.ini"

Guardar:
Edito: Mejorado
Código (vbnet) [Seleccionar]
   ' Save INI Settings
   Private Sub Save_INI_Settings()

       Dim Current_Settings As String = _
           "File=" & TextBox_File.Text & Environment.NewLine & _
           "SaveFile=" & CheckBox_SaveFile.Checked

       My.Computer.FileSystem.WriteAllText(INI_File, Current_Settings, False)

   End Sub


Cargar:
Código (vbnet) [Seleccionar]
    ' By Elektro H@cker

   ' Load INI Settings
   Private Sub Load_INI_Settings()

       Dim xRead As IO.StreamReader = IO.File.OpenText(INI_File)
       Dim Line As String = String.Empty
       Dim Delimiter As String = "="
       Dim ValueName As String = String.Empty
       Dim Value As Object

       ' Example content of Test.ini:
       '
       ' File=C:\File.txt
       ' SaveFile=True

       Do Until xRead.EndOfStream

           Line = xRead.ReadLine().ToLower
           ValueName = Line.Split(Delimiter).First
           Value = Line.Split(Delimiter).Last

           If ValueName = "File".ToLower Then TextBox_File.Text = Value
           If ValueName = "SaveFile".ToLower Then CheckBox_SaveFile.Checked = Value

           Application.DoEvents()

       Loop

       xRead.Close() : xRead.Dispose()

   End Sub








z3nth10n

LOL, vaya programa te estás montando... xD

Anda que no tienes suerte Snytax, Elektro haciéndote el code... xD
Que recuerdos...! :)

Interesados hablad por Discord.

SγиtαxEяяoя

Cita de: Seazoux en 26 Mayo 2013, 19:08 PM
LOL, vaya programa te estás montando... xD

Anda que no tienes suerte Snytax, Elektro haciéndote el code... xD
Que recuerdos...! :)

Es que le pregunte por mp porque tenia duda.. y entonces encontre unos tutoriales y le dije que ya no era necesaria la ayuda.. tonces me dijo que el tenia un mejor codigo y que lo publicaba para que todos los vieran fue por eso que cree el tema

Eleкtro

Como ha dicho SyntaxError404, es que si estas dudas se resuelven por privado a una sola persona entonces las soluciones no le sirven a nadie más.

Un saludo!








z3nth10n

Cita de: EleKtro H@cker en 26 Mayo 2013, 19:22 PM
Como ha dicho SyntaxError404, es que si estas dudas se resuelven por privado a una sola persona entonces las soluciones no le sirven a nadie más.

Un saludo!

Claro, es por eso que cuando pido soporte por MP no me lo dan XD
Ya lo entiendo... xD (hombre, lo suponía)

Pero Elektro mola, porque el te ayuda desde MP y no te obliga a que lo postee, no como otros (Dryv)  :¬¬

Interesados hablad por Discord.

SγиtαxEяяoя

Genial, tu codigo funciona a la perfeccion..

solo que cambie unas pequeñas cosas y ya :)

Gracias por tu ayuda.. todas estas pequeñas cosas que me explican me servira para un futuro.. aunque en uno no muy lejano el VB.NET estara obsoleto y abran mejores programas  :xD :laugh: :laugh: :laugh:

Eleкtro

Cita de: SyntaxError404 en 26 Mayo 2013, 19:28 PMaunque en uno no muy lejano el VB.NET estara obsoleto y abran mejores programas  :xD :laugh: :laugh: :laugh:

No lo creo, VB lleva décadas evolucionando, quizás dentro de 10 años hagan un nuevo lenguaje basado en vbnet, pero solo cambiarán unas cuantas cosas pudiéndose traducir fácilmente los códigos, a menos que el Framework ya no existiese en ese futuro, entonces el nuevo lenguaje se basaría en otros métodos y todo sería absolútamente diferente xD.

Yo diría que la evolución de VB no va a morir hasta que Microsoft deje de existir.

Saludos.