Visual Basic

Copy Code

 Public Function init(ByVal xmlImportFile As FileInfo)
    Try
 
        Dim doc As New XmlDocument()
 
        doc.Load(xmlImportFile.FullName)
 
        'read all parameter nodes
        Dim parameterNodes As XmlNodeList
        parameterNodes = doc.SelectNodes("action/dokwerte/parameter")
 
        If parameterNodes.Count > 0 Then
            Dim node As XmlNode
            Dim name, value, dataType As String
 
            Dim parameterCounter As Integer = 0
 
            For Each node In parameterNodes
                'Read all Document specified Values
                '20080401 RGL zusätzliches TRY wenn node <parameter> leer geliefert wird kein Absturz
                Try
                    name = node.SelectSingleNode("name").InnerText
                    value = node.SelectSingleNode("value").InnerText
                    objDokumentWert = New AvaloqDokumentWert(name, value)
                    arrDoukmentWerte.Add(objDokumentWert)
                Catch ex As Exception
                    'xxx
                    'TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Action.Load", ex.Message & ex.StackTrace, TraceLevel.Error)
                End Try
                parameterCounter = parameterCounter + 1
 
            Next
        End If
 
    Catch ex As Exception
        'xxx
        '        TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Action.Load", ex.Message & ex.StackTrace, TraceLevel.Error)
        Throw ex
    End Try
 End Function