lotusscript

Function fnMergeNav( strSysXML As String,strXML As String) As String
        On Error GoTo errorhandle
        Dim strPrefix As String
        
        strSysXML = StrRight( strSysXML , | upcatecode='-1'>|)
        strSysXML = StrLeftBack( strSysXML , |</NodeInfo>|)
        
        strPrefix = StrLeft( strXML , | upcatecode="-1">|) + | upcatecode="-1">|
        strXML = StrRight( strXML , | upcatecode="-1">|)
        strXML = StrLeftBack( strXML , |</NodeInfo>|)
        
        strXML = strPrefix +strXML + strSysXML   + |</NodeInfo>|
        
        fnMergeNav = strXML
        Exit Function
errorhandle:
        showerror("fnMergeNav")
    End Function

 

Function fnMergeNav( strSysXML As String,strXML As String) As String
        On Error GoTo errorhandle
        Dim strPrefix As String
        
        strSysXML = StrRight( strSysXML , | upcatecode='-1'>|)
        strSysXML = StrLeftBack( strSysXML , |</NodeInfo>|)
        
        strPrefix = StrLeft( strXML , | upcatecode="-1">|) + | upcatecode="-1">|
        strXML = StrRight( strXML , | upcatecode="-1">|)
        strXML = StrLeftBack( strXML , |</NodeInfo>|)
        
        strXML = strPrefix +strXML + strSysXML   + |</NodeInfo>|
        
        fnMergeNav = strXML
        Exit Function
errorhandle:
        showerror("fnMergeNav")
    End Function