Visual Basic

Hello everyone ,

I am trying to retrieve XML information, I managed to recover the attributes against the childrens (<pre><ToolLine Text="

XML template :

<pre lang="xml">

<?xml version="1.0" encoding="utf-8"?>
<Root>
<ToolsList>
<Tool PartNumber="0018B">
<ToolLine Text=" FI : 3897" />
<ToolLine Text=" PINCE1 Reference : M 22520/2.01" />
<ToolLine Text=" Position : 2.02" />
<ToolLine Text=" Reglage : 7" />
<ToolLine Text=" PINCE2 Reference: M 22520/7.01" />
</Tool>
</ToolsList>
</Root>

Code C#:

<pre lang="vb">Imports System.IO
Imports System.Xml
Module ParsingUsingXmlDocument
Sub Main()
Try
Dim m_xmld As XmlDocument
Dim m_nodelist As XmlNodeList
Dim m_node As XmlNode
'Create the XML Document
m_xmld = New XmlDocument()
'Load the Xml file
m_xmld.Load("D:\Users\Desktop\Xml to excel chahine\U881A1013_105_A_PREP_1.xml")
m_nodelist = m_xmld.SelectNodes("/Root/ToolsList/PartNumber")
'Loop through the nodes
For Each m_node In m_nodelist
Dim partnumber = m_node.Attributes.GetNamedItem("PartNumber").Value
'Get the firstName Element Value
Dim text1 = m_node.ChildNodes.Item(0).InnerText
Dim text2 = m_node.ChildNodes.Item(1).InnerText
Dim text3 = m_node.ChildNodes.Item(2).InnerText
Dim text4 = m_node.ChildNodes.Item(3).InnerText
Console.Write("partnumber: " & partnumber _
& " text1: " & text1 & " text3: " _
& text3)
Console.Write(vbCrLf)
Next
Catch errorVariable As Exception
'Error trapping
Console.Write(errorVariable.ToString())
End Try
End Sub
End Module

if you have any ideas do not hesitate to help me, thanks in advance

after a question how can I implement this information on an excel file

I have written two simple classes (clsMessage and clsHello). I create an instance of clsMessage and call the Message1 function passing the specific clsHello class that exposes the correct MessagBox to me. When call then Message2 function passing a generic object that expose the correct MessageBox.

these are the classes:

Public Class clsMessage
    Public Function Message1(Of T As {clsHello, IHello})(ByVal value As String) As T
        Return (New clsHello(value))
    End Function
    Public Function Message2(Of T)(ByVal value As String) As T
        Return DirectCast((New clsHello(value)), Object)
    End Function
End Class

Public Class clsHello
     Implements IHello

     Dim _value As String
     Sub New(ByVal value As String)
         _value = value
     End Sub

     Public Sub Hello() Implements IHello.Hello
         Call MsgBox(String.Concat("Hello: ", _value))
     End Sub
End Class

Public Interface IHello
     Sub Hello()
End Interface

these are code that works:

Dim objMessage As New clsMessage
Dim objHelloSpecific As clsHello = objMessage.Message1(Of clsHello)("My name specific")
objHelloSpecific.Hello()
objHelloSpecific = Nothing
Dim objHelloGeneric As Object = objMessage.Message2(Of Object)("My name generic")
objHelloGeneric.Hello
objHelloGeneric = Nothing
objMessage = Nothing

But if using reflection not works and I don't know how to write the invoke method:

Dim typMessage As System.Type = Reflection.Assembly.GetExecutingAssembly.GetType("WindowsApplication1.clsMessage")
Dim typHello As System.Type = Reflection.Assembly.GetExecutingAssembly.GetType("WindowsApplication1.clsHello")
Dim refMessage As Object = typMessage.GetConstructor({}).Invoke({})
Dim funHelloSpcecific As Reflection.MethodInfo = typMessage.GetMethod("Message1")
Dim funHelloGeneric As Reflection.MethodInfo = typMessage.GetMethod("Message2")
Try
    Dim refHelloSpecific As Object = funHelloSpcecific.Invoke(Nothing, {"My name specific"})
    refHelloSpecific.Hello()
    refHelloSpecific = Nothing
Catch ex As Exception
    Call MsgBox(String.Concat("refHelloSpecific: ", ex.Message))
End Try
funHelloSpcecific = Nothing
Try
    Dim refHelloGeneric As Object = funHelloGeneric.Invoke(Nothing, {"My name generic"})
    refHelloGeneric.Hello
    refHelloGeneric = Nothing
Catch ex As Exception
    Call MsgBox(String.Concat("refHelloGeneric: ", ex.Message))
End Try
funHelloGeneric = Nothing
refMessage = Nothing
typHello = Nothing
typMessage = Nothing

The error is: Impossibile eseguire operazioni con associazione tardiva in tipi o metodi per i quali ContainsGenericParameters è true (Late bound operations cannot be performed on types or methods for which ContainsGenericParameters is true)

question: can someone help me to write the invoke method correctly? thank you.
Giorgio

Bindingsource1.Datasource=Nothing.