ConfigurationSettings (App.config)

"Fer" wrote in message
news:

[...] app.config
[...] Lo que quiero es guardar datos en el nodo User:
[...] en vb2005.net lo hago si :

My.Settings.User = txtUsuario.Text
My.Settings.Save()

Pero no se como hacer en VB2003.net

Por desgracia, en VB2003 no hay ninguna función parecida. No hay más
remedio que abrir el fichero app.config como archivo de texto, "parsear" el
contenido (utilizando para ello cualquier procedimiento adecuado, por
ejemplo la clase XmlDocument), sustituir el fragmento de texto deseado, y
volver a salvar el fichero. Ciertamente bastante molesto, por eso en la
versión 2005 añadieron el My.Settings.

Estuve probando vb2005 y efectivamenete tiene el my.settings, pero talvez no
pueda tener la licencia cuando salga oficialmente no me queda otra que
seguir investigando.

SAludos y gracias

Fer.

Hola Fer. Te sugiero revises el Configuration Management Application Block
que viene con la Enterprise Library. Ese te permite hacer lo que tú deseas y
mucho más con Visual Studio 2003. Es un poco difícil al inicio, pero luego
que le cojes el golpe no tendrás mayor problema. Este es el link:

http://msdn.microsoft.com/practices...entlib.asp

Saludos.

Julio Casal
.Net Solution Developer
MCAD
Grupo Lebed


"Fer" wrote:

Estuve probando vb2005 y efectivamenete tiene el my.settings, pero talvez no
pueda tener la licencia cuando salga oficialmente no me queda otra que
seguir investigando.

SAludos y gracias

Fer.

Yo conozco una forma de hacerlo, a ver si te sirve:

Public Sub sgGuardarConfiguracion()
Dim ConfigFile As New XmlDocument
Dim vlsRutaFicheroConfig As String =
[Assembly].GetExecutingAssembly.Location() + ".opciones"
ConfigFile.Load(vlsRutaFicheroConfig)
writeXMLValue(ConfigFile, "PathReports", <Ruta_de_tus_reports>)
...
...
ConfigFile.Save("apolo.exe.opciones")
End Sub

Perdon, me olvide de la función writeXMLValue, claro. Este sería el código
completo:

Public Sub sgGuardarConfiguracion()
Dim ConfigFile As New XmlDocument
Dim vlsRutaFicheroConfig As String [Assembly].GetExecutingAssembly.Location() + ".config"
ConfigFile.Load(vlsRutaFicheroConfig)
writeXMLValue(ConfigFile, "PathReports", <Ruta_de_tus_reports>)
...
...
ConfigFile.Save("tuprograma.exe.config")
End Sub


Public Function writeXMLValue(ByVal xd As Xml.XmlDocument, ByVal key As
String, ByVal NewValue As String) As Boolean
Try
Dim Node As Xml.XmlElement =
CType(xd.DocumentElement.SelectSingleNode("/configuration/appsettings/" &
key), Xml.XmlElement)
If Not Node Is Nothing Then
'key found, set the value
Node.Attributes.GetNamedItem("value").Value = NewValue
Return True
Else
Return False
End If
Catch ex As Exception
Return False
End Try
End Function