XProfan

 $I Excel2lv.inc
Ventana de Estilo 26
Título de la ventana Excel
Ventana 0,0-800,600
Declarar lvdll&,lvliste&
lvdll&=usedll($PROGDIR+Listview.dll)
 $I ListView_Include.inc
Register(123456)
lvliste&=CreateListView(%hwnd,%hInstance,0,$FFFFFF,-1,$31)
Excel2LV C:Tabla.xls,Tabla1,lvliste&  Excel-Tabla, Tabellenname, LV-Handle
ShowListView(lvliste&,10,10,728,528)
WaitMouse
 $I ListView_Dispose.inc

 $P*
USERMESSAGES 16  X-Schaltfläche
Declarar close%,Tabla$
Tabelle$=Tabla1
Declarar Global_String$
Asignar #4,$TempDir+c2l.csv
Rewrite #4
###################################
# Konvertiert el XML en una CSV #
###################################

Proc XML2CSV

    Declarar Línea$,abhier%,bishier%,Row%,String$,first%
    Asignar #3,$TempDir+Calc2lv.xml
    Reset #3

    Sinestar encargado Eof(#3)

        Entrada #3,Línea$

        if abhier%=0

            if InStr(Tab$,Línea$)

                abhier%=1

            endif

        más

            if InStr(</table:table>,Línea$)

                Volver 0

            más

                if Row%=1

                    if InStr(</table:table-cell,Línea$)  EndeSpalte

                        Row%=0

                    endif

                endif

                if Row%=0

                    if InStr(<table:table-row,Línea$)  Spalte

                        Row%=1

                    endif

                endif

                if InStr(</texto:p>,Línea$)

                    String$=Translate$(Línea$,</texto:p>,)

                    if Row%=1

                        Global_String$=Global_String$+;+String$

                        if first%=1

                            imprimir #4,Global_String$

                        más

                            first%=1

                        endif

                        Global_String$=String$

                    más

                        Global_String$=Global_String$+;+String$

                    endif

                endif

            endif

        endif

    EndWhile

    Cerrar #3

ENDPROC

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

Proc ConvertXML

    Parámetros Fragment$
    Declarar ende%,index%,lang%,Signo$
    lang%=Len(Fragment$)

    Sinestar encargado index%>lang%

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

        if Signo$=>

            Global_String$=Global_String$+Signo$
            imprimir #2,Global_String$
            Global_String$=

        más

            Global_String$=Global_String$+Signo$

        endif

        Inc index%

    Wend

ENDPROC

########################################################################
# Das XML-Dokumnet besteht de EINEM String.                           #
# Proc Convert255 teilt el EINEN String en 255Signo-Fragmente en   #
# Ist notwendig como el max. Zeichenlänge bajo XProfan 32767 Signo   #
# beträgt.                                                             #
########################################################################

Proc Convert255

    Parámetros XMLDatei$
    Declarar B#,Anzahl%,bytes&,teiler&,uebrig&,Index&,Línea$,Tab$
    Asignar #2,$TempDir+Calc2lv.xml
    Rewrite #2
    Tab$=<table:table table:name=+Chr$(34)+Tabla$+Chr$(34)
    bytes&=FileSize(XMLDatei$)
    teiler&=bytes&/255
    uebrig&=bytes&-(teiler&*255)
    Dim B#,bytes&
    Asignar #1,XMLDatei$
    OpenRW #1
    Anzahl%=BlockRead(#1,B#,0,bytes&)
    CloseRW #1

    Sinestar encargado Index&=teiler&

        Línea$=Char$(B#,Index&*255,255)
        ConvertXML Línea$
        Inc Index&

    Wend

    Línea$=Char$(B#,Index&*255,uebrig&)
    ConvertXML Línea$
    Disponer B#
    close #2
    XML2CSV
    imprimir fertig
    Cerrar #4

ENDPROC

#### Hauptprogramm
Ventana de Estilo 26
Título de la ventana OOCalc2ListView
Ventana 0,0-%maxX,%maxY
Convert255 $PROGDIR+content.xml

Sinestar encargado close%

    GetMessage
    Case %Umessage=16:close%=1

Wend