XProfan

 $I Excel2lv.inc
Window Style 26
Window Title Excel
Window 0,0-800,600
Declare lvdll&,lvliste&
lvdll&=usedll($PROGDIR+Listview.dll)
 $I ListView_Include.inc
tab(123456)
lvliste&=CreateListView(%hwnd,%hinstance,0,$FFFFFF,-1,$31)
Excel2LV C:scheduler.xls,scheduler1,lvliste&  Excel-scheduler, Tabellenname, LV-lever
ShowListView(lvliste&,10,10,728,528)
WaitMouse
 $I ListView_Dispose.inc

 $P*
USERMESSAGES 16  X-Schaltfläche
Declare close%,scheduler$
Tabelle$=scheduler1
Declare Global_String$
Assign #4,$TempDir+c2l.csv
Rewrite #4
###################################
# Converts The XML in a CSV #
###################################

Proc XML2CSV

    Declare row$,abhier%,bishier%,Row%,String$,ridge%
    Assign #3,$TempDir+Calc2lv.xml
    Reset #3

    WhileNot Eof(#3)

        Input #3,row$

        if abhier%=0

            if InStr(tab$,row$)

                abhier%=1

            endif

        else

            if InStr(</table:table>,row$)

                Return 0

            else

                if Row%=1

                    if InStr(</table:table-cell,row$)  EndeSpalte

                        Row%=0

                    endif

                endif

                if Row%=0

                    if InStr(<table:table-row,row$)  slot

                        Row%=1

                    endif

                endif

                if InStr(</Text:p>,row$)

                    String$=Translate$(row$,</Text:p>,)

                    if Row%=1

                        Global_String$=Global_String$+;+String$

                        if ridge%=1

                            print #4,Global_String$

                        else

                            ridge%=1

                        endif

                        Global_String$=String$

                    else

                        Global_String$=Global_String$+;+String$

                    endif

                endif

            endif

        endif

    EndWhile

    Close #3

ENDPROC

################################################    ###
# Converts The einzelen <> segments.      #   ###
# DAUERT ABER NE EWIGKEIT BEI GROSSEN TABELLEN #  #############################
# WER HIER EINEN VORSCHLAG HAT - BITTE POSTEN  #   ###
################################################    ###

Proc ConvertXML

    Parameters Fragment$
    Declare end%,index%,long%,characters$
    long%=Len(Fragment$)

    WhileNot index%>lang%

        characters$=Mid$(Fragment$,index%,1)

        if characters$=>

            Global_String$=Global_String$+characters$
            print #2,Global_String$
            Global_String$=

        else

            Global_String$=Global_String$+characters$

        endif

        Inc index%

    Wend

ENDPROC

########################################################################
# the XML-Dokumnet exists from EINEM String.                           #
# Proc Convert255 divides whom EINEN String in 255characters-Fragmente on   #
# is necessary there The max. Zeichenlänge under XProfan 32767 characters   #
# totals.                                                             #
########################################################################

Proc Convert255

    Parameters XMLDatei$
    Declare B#,amount%,bytes&,teiler&,uebrig&,Index&,row$,tab$
    Assign #2,$TempDir+Calc2lv.xml
    Rewrite #2
    tab$=<table:table table:name=+Chr$(34)+scheduler$+Chr$(34)
    bytes&=FileSize(XMLDatei$)
    teiler&=bytes&/255
    uebrig&=bytes&-(teiler&*255)
    Dim B#,bytes&
    Assign #1,XMLDatei$
    OpenRW #1
    amount%=BlockRead(#1,B#,0,bytes&)
    CloseRW #1

    WhileNot Index&=teiler&

        row$=Char$(B#,Index&*255,255)
        ConvertXML row$
        Inc Index&

    Wend

    row$=Char$(B#,Index&*255,uebrig&)
    ConvertXML row$
    Dispose B#
    close #2
    XML2CSV
    print ready
    Close #4

ENDPROC

#### Hauptprogramm
Window Style 26
Window Title OOCalc2ListView
Window 0,0-%maxX,%maxY
Convert255 $PROGDIR+content.xml

WhileNot close%

    GetMessage
    Case %Umessage=16:close%=1

Wend