Visual Basic

Copy Code

 Public Function Load(ByVal xmlImportFile As FileInfo) As Boolean
    If Param.DebugMode Then
        DivFnkt.InsertJournale("EDKB12: Start Load XML-File", clsDivFnkt.Enum_InfoTyp.Information)
    End If
 
 
    Try
        'Validate source
        If Not IsValid(xmlImportFile) Then
            'xml file is invalid
            DivFnkt.InsertJournale("EDKB12::Fehler:: Load XML-File::File invalid", clsDivFnkt.Enum_InfoTyp.Fehler)
            If Param.DebugMode Then
                DivFnkt.InsertJournale("EDKB12::Fehler::  XML-File::File invalid", clsDivFnkt.Enum_InfoTyp.Information)
            End If
            Return False
        End If
 
        Dim doc As New XmlDocument()
        doc.Load(xmlImportFile.FullName)
 
        'read header elements
        _actionType = CType(doc.SelectSingleNode("action/actionId").InnerText, ActionType)
        _creatorTgNr = doc.SelectSingleNode("action/creatorTg").InnerText
        _sourceApplication = doc.SelectSingleNode("action/sourceApplication").InnerText
 
        Dim RootNode As XmlElement = doc.DocumentElement
        Dim nodeList As XmlNodeList = RootNode.ChildNodes
        If nodeList.Count > 0 Then
            'set correct array size
            ReDim _parameters(nodeList.Count - 1)
 
            Dim value As String
            Dim name As String
            Dim parameterCounter As Integer = 0
 
            Dim i As Integer
 
            For i = 0 To nodeList.Count - 1
                value = nodeList.Item(i).InnerText
                name = nodeList.Item(i).LocalName
                'append new parameter
                _parameters(parameterCounter) = New Parameter(name, value)
 
                parameterCounter = parameterCounter + 1
            Next
        End If
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Load XML-File (True)", clsDivFnkt.Enum_InfoTyp.Information)
        End If
 
        Return True
    Catch ex As Exception
        DivFnkt.InsertJournale("EDKB12::Fehler:: Load XML-File::File invalid::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Load XML-File::File invalid(False)", clsDivFnkt.Enum_InfoTyp.Information)
        End If
        Return False
    End Try
 End Function