msxml_2_xdocument

Visual Basic Syntax

Private Declare Function msxml_2_xdocument

Lib "xmllab_dll.dll" 

(ByVal xmldom As MSXML2 . DOMDocument ,ByRef XDOC_REF As Long,ByRef XDOC_ROOT As Long)
 As Long

Example

The following Microsoft® Visual Basic® example shows how to create XDocument from XML DOM object

Private Function file_to_object(ByVal OPTIONS As String, ByVal FILENAME As String) As Long
    Dim Index As Integer

    Dim Reply As String

    Dim Result, XMLOBJ, XMLROOT, XML_DOC_ROOT, DocObject, Res As Long

    Dim DOCLIST_STR As String, EXTENSION As String

    Dim currentNode As MSXML2.IXMLDOMNode

    Dim xmldom As MSXML2.DOMDocument

    Index = InStr(FILENAME, ".")

    EXTENSION = Right(FILENAME, Len(FILENAME) - Index)

    Select Case EXTENSION

        Case "xml"

            'Create XMLDOM object, pass it to XLaboratory and get XDocument

            Set xmldom = New MSXML2.DOMDocument

            xmldom.async = False

            xmldom.validateOnParse = False

            xmldom.Load (FILENAME)

            Result = msxml_2_xdocument (xmldom, XMLOBJ, XMLROOT)

            WebBrowser.Navigate2 ("file://" & FILENAME)

        Case "htm"

            'Convert HTML to XDocument on the fly

            Result = html_2_xdocument(FILENAME, OPTIONS, XMLOBJ, XMLROOT)

        Case "rtf"

            'Convert RTF to XDocument on the fly

            Result = rtf_2_xdocument(FILENAME, OPTIONS, XMLOBJ, XMLROOT)

        Case "csv"

            'Convert CSV to XDocument on the fly

            Result = csv_2_xdocument(FILENAME, XMLOBJ, XMLROOT)

        Case "asc"

            'Convert Fixed text to XDocument on the fly

            Result = fixed_2_xdocument(FILENAME, "", XMLOBJ, XMLROOT)

        Case "txt"

            'Convert Text with TOC to XDocument on the fly

            Result = text_toc_2_xdocument(FILENAME, "", XMLOBJ, XMLROOT)

    End Select

Call fill_loaded




End Sub

C/C++ Syntax

   

 Under development

C/C++ Return Values

C Sample