Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: SγиtαxEяяoя en 26 Mayo 2013, 18:36 pm



Título: Leer, Guardar, Cargar .INI
Publicado por: SγиtαxEяяoя en 26 Mayo 2013, 18:36 pm
Tengo un formulario el cual contiene 2 "Textbox"

Nombre.Text
Apellido.Text

(http://i.imm.io/17nYk.png)

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

(http://i.imm.io/17nYV.png)

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

(http://i.imm.io/17nZh.png)

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

(http://i.imm.io/17nZz.png)

Agradezco de antemano cualquier tipo de ayuda.


Título: Re: Leer, Guardar, Cargar .INI
Publicado por: Eleкtro en 26 Mayo 2013, 19:04 pm
Código
  1. Dim INI_File As String = ".\Test.ini"

Guardar:
Edito: Mejorado
Código
  1.    ' Save INI Settings
  2.    Private Sub Save_INI_Settings()
  3.  
  4.        Dim Current_Settings As String = _
  5.            "File=" & TextBox_File.Text & Environment.NewLine & _
  6.            "SaveFile=" & CheckBox_SaveFile.Checked
  7.  
  8.        My.Computer.FileSystem.WriteAllText(INI_File, Current_Settings, False)
  9.  
  10.    End Sub

Cargar:
Código
  1.     ' By Elektro H@cker
  2.  
  3.    ' Load INI Settings
  4.    Private Sub Load_INI_Settings()
  5.  
  6.        Dim xRead As IO.StreamReader = IO.File.OpenText(INI_File)
  7.        Dim Line As String = String.Empty
  8.        Dim Delimiter As String = "="
  9.        Dim ValueName As String = String.Empty
  10.        Dim Value As Object
  11.  
  12.        ' Example content of Test.ini:
  13.        '
  14.        ' File=C:\File.txt
  15.        ' SaveFile=True
  16.  
  17.        Do Until xRead.EndOfStream
  18.  
  19.            Line = xRead.ReadLine().ToLower
  20.            ValueName = Line.Split(Delimiter).First
  21.            Value = Line.Split(Delimiter).Last
  22.  
  23.            If ValueName = "File".ToLower Then TextBox_File.Text = Value
  24.            If ValueName = "SaveFile".ToLower Then CheckBox_SaveFile.Checked = Value
  25.  
  26.            Application.DoEvents()
  27.  
  28.        Loop
  29.  
  30.        xRead.Close() : xRead.Dispose()
  31.  
  32.    End Sub


Título: Re: Leer, Guardar, Cargar .INI
Publicado por: z3nth10n 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...! :)


Título: Re: Leer, Guardar, Cargar .INI
Publicado por: SγиtαxEяяoя en 26 Mayo 2013, 19:17 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


Título: Re: Leer, Guardar, Cargar .INI
Publicado por: Eleкtro 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!


Título: Re: Leer, Guardar, Cargar .INI
Publicado por: z3nth10n en 26 Mayo 2013, 19:26 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)  :¬¬


Título: Re: Leer, Guardar, Cargar .INI
Publicado por: SγиtαxEяяoя en 26 Mayo 2013, 19:28 pm
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:


Título: Re: Leer, Guardar, Cargar .INI
Publicado por: Eleкtro en 26 Mayo 2013, 19:39 pm
aunque 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.