text_toc_2_xdocument

Visual Basic Syntax

Private Declare Function text_toc_2_xdocument
Lib "xmllab_dll.dll" 


(ByVal FILENAME As String,ByVal OPTIONS As String,ByRef XML_OBJECT As Long,ByRef XML_ROOT As Long)

As Long 

Example

The following Microsoft® Visual Basic® example shows how create XDocument inside XStorage from non-XML file

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

Under development