VB .NET y Colecciones.

[chcma]

Bueno verán, tengo el siguiente problema.

Voy hacer una función para poder crear nodos en un fichero XML. La cuestión es que a esta función tengo pensado meterle tres parametros.

- El Xpath apartir del cual se va a crear el nodo (Es decir el nodo padre).
- El nombre del nodo a crear. (<usuario></usuario>)
- Los atributos. <usuario atributo1="valor" atributo2="valor"></usuario>

La cuestión es la siguiente, para pasar los atributos, había pensado en crear una colección, (Es lo más indicado, ¿No?), ya que un nodo puede llevar dos atributos, o 5.

Entonces, podrían ponerme un ejemplo de como podría hacer esto, o donde podría mirar algunos. He mirado la clase Collection, pero sinceramente, sin ver un ejemplo, me está costando un poco.

La idea sería:
Dim miColeccion as New MiClaseColeccion
Dim Atributo as New Atributo("nombreAtributo", "Valor")
Dim Atributo2 as New Atributo("nombreAtributo2", "Valor2")
miColeccion.Add(Atributo, Atributo2)

¿Podría ser algo asi?, por favor, haber si alguien puede echarme un cable, ya que estoy algo perdido.

Saludos.

[chcma]

Bueno, bueno, bueno, últimamente está un poco paradete el foro, eh !!!, o es que tienen miedo a mis posts de programadores avanzados, jejejeje (Es broma, ¿Eh?, no se lo tomen a mal).

Bueno, al final solucione el tema creando una clase heredara de CollectionBase. Voy a dejar aqui el código, por si le interesa a alguien.

El funcionamiento es muy simple, yo creo una clase del tipo xmlColeccion y despues voy agregando los atributos a usar:
Dim ColecionXML as xmlColeccion = nwe xmlColeccion
ColeccionXML.Insertar(New xmlAtributo("Nombre", "Valor"))
ColeccionXML.Insertar(New xmlAtributo("OtroNombre", "OtroValor"))

Bueno, el código es el siguiente (Son dos clases, naturalmente, xmlColeccion y xmlAtributo)



************************************
************************************

Public Class xmlColeccion
Inherits System.Collections.CollectionBase

Default Property item(ByVal indice As Integer) As xmlAtributo
Get
Return CType(innerlist.Item(indice), xmlAtributo)
End Get
Set(ByVal Value As xmlAtributo)
innerlist.Item(indice) = Value
End Set
End Property

Sub Insertar(ByVal value As xmlAtributo)
innerlist.Add(value)
End Sub
End Class

************************************
************************************


************************************
************************************

Public Class xmlAtributo
Dim NAtributo As String 'Nombre del Atributo
Dim VAtributo As String 'Valor del Atributo

#Region "CONSTRUCTORES"

Private Sub New()
End Sub

Sub New(ByVal atributo As String, ByVal valor As String)
Me.NombreAtributo = atributo
Me.ValorAtributo = valor
End Sub

#End Region

#Region "PROPIEDADES"
Public Property NombreAtributo() As String
Get
Return NAtributo
End Get
Set(ByVal Value As String)
NAtributo = Trim(Value)
End Set
End Property

Public Property ValorAtributo() As String
Get
Return VAtributo
End Get
Set(ByVal Value As String)
VAtributo = Value
End Set
End Property
#End Region
End Class

************************************
************************************


Espero que alguno le valga para algo.

RootK, xKnow y cualquier otro guru, si leen esto . . . . ¡¡ Ya podeis ir dandome sugerencias o cometnarios !!

Bueno, nos vemos, y saludos.

[xknown]

Me parece que con un HashTable hubiera bastado para no crear una clase adicional que guarde "atributo" -> "valor".

Saludos
PD. No soy ningun gurú

[RootK]

Hola chcma. el code no se ve mal, ahora ya que sabes como hacer las cosas vienen otros puntos "el estilo de programacion".

No quiero decir que tu code esta mal hecho, pero si le podemos aplicar algo mas de estilo para seguir algunas reglas...

Por ejemplo, podría quedar algo así tu code:

Public Class xmlAtributo
Dim _nombreAtributo As String 'Nombre del Atributo
Dim _valorAtributo As String 'Valor del Atributo
..
...
Public Property NombreAtributo() As String
Get
Return _nombreAtributo
End Get
Set(ByVal Value As String)
_nombreAtributo = Value.trim
End Set
End Property

Public Property ValorAtributo() As String
Get
Return _valorAtributo
End Get
Set(ByVal Value As String)
_valorAtributo = Value
End Set
End Property

Y te recomiendo que trates de programar en inglés, ya que es el idioma universal de la programación... pero a fin de cuentas cada quien puede hacerlo como desee, pero si seguimos reglas, estilos, etc será mejor.

Salu2

[chcma]

Ahá, y despues entonces, com harías para recorrer el hashtable?

[xknown]

No le veo ninguna complicación a usar el siguiente código para recorrer el HashTable

Código:

For Each obj As Object In HashTable1
     Console.WriteLine(DirectCast(obj, DictionaryEntry).Key) ' Haces un cast del objeto para poder acceder a los valores "clave" -> "valor"
Next

Saludos

[hok]

hola chcma, muy bueno tu aporte (aunque ya pasaron varios años) te digo a mi me re sirvio. ME SACO DE UN APURO TERRIBLE!!, JAJAJA
muchas gracias.

Saludos.