XProfan

 $I Excel2lv.inc
Fenêtre Style 26
Titre de la fenêtre Excel
Fenêtre 0,0-800,600
Déclarer lvdll&,lvliste&
lvdll&=usedll($PROGDIR+Listview.dll)
 $I ListView_Include.inc
Register(123456)
lvliste&=CreateListView(%hwnd,%HINSTANCE,0,$FFFFFF,-1,$31)
Excel2LV C:Tabelle.xls,Tabelle1,lvliste&  Excel-Tabelle, Tabellenname, LV-Handle
ShowListView(lvliste&,10,10,728,528)
WaitMouse
 $I ListView_Dispose.inc

 $P*
USERMESSAGES 16  X-Schaltfläche
Déclarer close%,Tabelle$
Tabelle$=Tabelle1
Déclarer Global_String$
Assign #4,$TempDir+c2l.csv
Rewrite #4
###################################
# Konvertiert qui XML dans une CSV #
###################################

Proc XML2CSV

    Déclarer la ligne$,abhier%,bishier%,Row%,String$,first%
    Assign #3,$TempDir+Calc2lv.xml
    Reset #3

    WhileNot Eof(#3)

        Contribution #3,la ligne$

        si abhier%=0

            si InStr(Tab$,la ligne$)

                abhier%=1

            endif

        d'autre

            si InStr(</table:table>,la ligne$)

                Retour 0

            d'autre

                si Row%=1

                    si InStr(</table:table-cell,la ligne$)  EndeSpalte

                        Row%=0

                    endif

                endif

                si Row%=0

                    si InStr(<table:table-row,la ligne$)  Spalte

                        Row%=1

                    endif

                endif

                si InStr(</text:p>,la ligne$)

                    String$=Translate$(la ligne$,</text:p>,)

                    si Row%=1

                        Global_String$=Global_String$+;+String$

                        si first%=1

                            imprimer #4,Global_String$

                        d'autre

                            first%=1

                        endif

                        Global_String$=String$

                    d'autre

                        Global_String$=Global_String$+;+String$

                    endif

                endif

            endif

        endif

    Endwhile

    Fermer #3

ENDPROC

################################################    ###
# Konvertiert qui einzelen <> Abschnitte.      #   ###
# DAUERT ABER NE EWIGKEIT BEI GROSSEN TABELLEN #  #############################
# WER ICI EINEN VORSCHLAG HAT - BITTE POSTEN  #   ###
################################################    ###

Proc ConvertXML

    Paramètres Fragment$
    Déclarer ende%,index%,long%,marque$
    long%=Len(Fragment$)

    WhileNot index%>lang%

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

        si marque$=>

            Global_String$=Global_String$+marque$
            imprimer #2,Global_String$
            Global_String$=

        d'autre

            Global_String$=Global_String$+marque$

        endif

        Inc index%

    Wend

ENDPROC

########################################################################
# cela XML-Dokumnet besteht aus EINEM String.                           #
# Proc Convert255 teilt den EINEN String dans 255marque-Fragmente sur   #
# Ist notwendig là qui max. Zeichenlänge sous XProfan 32767 marque   #
# beträgt.                                                             #
########################################################################

Proc Convert255

    Paramètres XMLDatei$
    Déclarer B#,Anzahl%,bytes&,teiler&,uebrig&,Index&,la ligne$,Tab$
    Assign #2,$TempDir+Calc2lv.xml
    Rewrite #2
    Tab$=<table:table table:nom=+Chr$(34)+Tabelle$+Chr$(34)
    bytes&=FileSize(XMLDatei$)
    teiler&=bytes&/255
    uebrig&=bytes&-(teiler&*255)
    Faible B#,bytes&
    Assign #1,XMLDatei$
    OpenRW #1
    Anzahl%=BlockRead(#1,B#,0,bytes&)
    CloseRW #1

    WhileNot Index&=teiler&

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

    Wend

    la ligne$=Char$(B#,Index&*255,uebrig&)
    ConvertXML la ligne$
    Dispose B#
    close #2
    XML2CSV
    imprimer fertig
    Fermer #4

ENDPROC

#### Hauptprogramm
Fenêtre Style 26
Titre de la fenêtre OOCalc2ListView
Fenêtre 0,0-%maxx,%maxY
Convert255 $PROGDIR+content.xml

WhileNot close%

    GetMessage
    Cas %Umessage=16:close%=1

Wend