Español
Incluye

Excel2lv.inc

 
- Página 1 -



ByteAttack
Auf meiner Página hay ahora una Incluir-Expediente, con el uno con sólo una Befehl, una komplettes Tabellenblatt de Excel en un Listview importieren kann.

[...] 

Ejemplo:
 $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

589 kB
Kurzbeschreibung: Excel2ListView.zip
Hochgeladen:25.10.2007
Ladeanzahl465
Descargar
 
Website:  [...] 
Facebook:  [...] 
24.10.2007  
 



 
- Página 1 -



Detlef
Jagolski
Darf uno el Excel Archivos sin Excel redactar?
 
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
25.10.2007  
 




Christian
Schneider
Sí. Das Dateiformat es no geschützt (wäre auch no necesariamente förderlich).

OpenOffice (y diverse otro Programas) puede auch Excel-Archivos redactar.
 
XProfan 11| Vista(64) SP2
25.10.2007  
 




ByteAttack
¡Hola Detlef.
Yo hoff el fue un Scherzfrage. Oder zumindest ironisch gemeint...
 
Website:  [...] 
Facebook:  [...] 
26.10.2007  
 




Michael
Wodrich
En M$ es doch alles denkbar...
 
Programmieren, das spannendste Detektivspiel der Welt.
26.10.2007  
 



 
- Página 2 -



ByteAttack
XML2CSV

Naja, todavía no bastante fertig, aber en el Mache...
 $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


7 kB
Kurzbeschreibung: Ejemplo XML
Hochgeladen:26.10.2007
Ladeanzahl527
Descargar
 
Website:  [...] 
Facebook:  [...] 
26.10.2007  
 




Ist notwendig como el max. Zeichenlänge bajo XProfan 32767 Signo #
# beträgt.


XProfan-Cuerdas puede 2GB fassen, encima 8K voluntad ellos sin embargo algo langsamer.

Wenn Todavía sólo algo mehr Tiempo hätte podría Yo veces versuchen el XML más rápido a CSV a konvertieren, Yo sehe hier todavía unos pocos Effektivitätslücken.
 
26.10.2007  
 




ByteAttack
JA! hau rein. Yo habe lo quasi Zusammengeschustert
Posesiones en el Moment auch net así wirklich Tiempo.
 
Website:  [...] 
Facebook:  [...] 
26.10.2007  
 




Frank
Abbing
En ausreichend Bedarf podría Yo el Ganze auch como Dll-Función integrieren. Dürfte en Ensamblador al schnellsten trabajo.
 
26.10.2007  
 



Un ASM XML2CSV o. XML2ListBox wäre eh lecker.
 
26.10.2007  
 




Frank
Abbing
IF
Un ASM XML2CSV o. XML2ListBox wäre eh lecker.


Listbox, pfftt. Wir son hier en el Listview-Foro...
 
26.10.2007  
 



Frank Abbing
IF
Un ASM XML2CSV o. XML2ListBox wäre eh lecker.


Listbox, pfftt. Wir son hier en el Listview-Foro...


Tschuldigung
 
26.10.2007  
 




Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

19.556 Views

Untitledvor 0 min.
H.Brill15.11.2023
Rc31.01.2022
Langer29.01.2022
Member 640534317.01.2022
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie