XProfan

El CSV-Variante ha como jede otro Variante seine Vor- y Nachteile.

Yo sería vorschlagen wir bauen una inc, welche sí en Bedarf auch a uno PCU kompiliert voluntad kann.

Also una CSVDB.INC

Yo sería auch vorschlagen, el include sólo bajo Verwendung des neuesten offiziellen XProfans herzustellen. Im Moment es dies wohl XProfan9.

Yo lugar veces en el Raum el wir en el Principio sólo 2 Befehle benötigen.
Ein Befehl para Lesen,- una otro para Carta.

Und como fällt me auch ya el file.pcu una - welche bajo Unidades para Descargar bereitsteht.

Diese ha bajo Anderem zwei Befehle: freadline & fwriteline.

freadline (a(cadena),b(longint)) ließt de Expediente a Línea b de y son el Inhalt como String zurück.

fwriteline(a(cadena),b(longint),c(cadena)) überschreibt en Expediente a el Línea b con el String c.

Nun, como csv bekanntlich mehere Spalten con un Separador (en mi Ejemplo ;) getrennt enthalten kann, debería esta Opción bajo Verwendung el beiden o.g. Befehle ligeramente adaptierbar ser.

Also:
Kompilieren Marca Separación

 {$compiler p9}
 {$runtime p9}
 $U file.pcu = csvf

proc csvdb.read

    parameters fle$,x&,y&
    return substr$(csvfreadline(fle$,y&),x&,;)

endproc

proc csvdb.write

    parameters fle$,x&,y&,s$
    case csvfwriteline (fle$,y&,setsubstr(csvfreadline(fle$,y&),x&,s$)) : return 1
    return 0

endproc

proc setsubstr

    parameters f$,p&,t$
    declare s$,c&
    c&=0
    s$=
    casenot mid$(f$,len(f$),1)=; : f$=f$+;

    while len(f$)

        inc c&

        if (c&=p&)

            s$=s$+t$+;

        else

            s$=s$+mid$(f$,1,instr(;,f$))

        endif

        f$=del$(f$,1,instr(;,f$))

        ifnot len(f$)

            case c&<p& : f$=f$+;

        endif

    wend

    return s$

endproc

cls
csvdb.write test.csv,1,1,Name:
csvdb.write test.csv,1,2,Vorname:
csvdb.write test.csv,2,1,Glück
csvdb.write test.csv,2,2,Hans
print csvdb.read(test.csv,1,1) + csvdb.read(test.csv,2,1)
print csvdb.read(test.csv,1,2) + csvdb.read(test.csv,2,2)
waitkey
 href='./../../funzione-riferimenti/XProfan/end/'>end

So, habs getestet y lo funzt auch primast.

Como haddu ne mini-csv-db.

Salve, IF

01.03.2005 ▲

Na Gregor - funzt lo? :roll:

Ists nichn kleines Ejemplo qué Usted wolltest?

Kleines Feedgebäck wär schön.

Salve, IF

Michael
Gregor

¡Hola,

nein por desgracia, no...

Hab sí erstens kein profano 9 y zweitens podría Yo el genannte
Unit en el Descargar Zona no encontrar...

Yo schrieb no el Unit sei en el Downloadbereich para encontrar - pero el Unit sei bajo Unidades para Descargar angeboten.

Einfach links-oben en Unidades clic.

Kein XProfan9 :roll:

Leider es en Deiner Signatur hier no welche Profanversion Usted nutzt - deshalb schrieb ego auch en X9.

Schreib veces hier hinein welche Profanversion Usted nutzt: [...]

Sag doch - welches Profano nutzt Usted?

Salve, IF

Michael
Gregor

Espero con igual veces en Unidades después de. Das letzte veces schaute Yo auch hay después de, y hay war no
para encontrar. Tal vez tener Yo diesmal mehr Glück

Yo nutze todavía siempre el Profano 8 Shareware, el du me de tiempo gegeben hast

Michael
Gregor

Ah wer suchet el findet. Hätte wohl más bien zweimal hinschauen debería

Frank
Abbing

¡Hola Michael,

Yo sería el Expediente siempre en el Speicher forma y später como Ganzes speichern. Reserviere genügend Speicher y bastle deine Expediente (Anzahl generierter Bytes merken!). Als Spaltentrenner al besten el Semikolon uso, el Textos solltest du en Anführungszeichen conjunto. Zeilentrenner es Chr$(13)+Chr$(10).
Um Bilder a integrieren, benutzt du tal vez una Erkennungsstring con angehängtem Dateinamen y schliesslich el real Texto, z.B. <<<</Icons/Guckmal.ico>>>>Hier es el Texto.
Beachte aber, el otro Programas así una erweitertes CSV-Formato no correcto lesen puede... Und a Suchstrings para encontrar empfiehlt el API lstrcmpi() de el Kernel32.

¿Por qué möchtest du el Listview.dll no uso? Gerade para algo como tener Yo ellos gemacht.

Michael
Gregor

Hätte Yo algo größeres y konkreteres, sería Yo el listview.dll sicherlich incluso uso.

Yo spiele hier aber momentan sólo una wenig con el Profano Shareware herum, en a sehen, Yo
así hacer kann y si Yo überhaupt algo así hinbekomme. Und Yo weiß todavía no, si Yo el alles
no evtl. otra vez verwerfe y mich otro Dingen zuwende. Zudem kann el listview.dll viel viel viel
más que Yo brauche ;) Yo quería simplemente vorerst sólo veces testen, si Yo auch así, en einfache Weise,
con CSVs (oder otro Datenformaten) hantieren kann. Aber Yo danke euch muy para eure Ayuda!

Michael
Gregor

¡Hola Franco,

después de que me de tiempo el Beispiele con el listview.dll angesehen habe,
merke Yo así langsam, dass Yo el wohl doch muy wohl bien gebrauchen kann ;)

Kann also bien ser, dass du bald veces una neues Registrierersuchen bekommst ;)

Aber primero muss Yo überhaupt veces así anfangen, en Profano durchzusteigen.
Denn todavía es el alles garnicht así simplemente para mich. Momentan bin Todavía
esta, deine Ejemplo-Quellcodes durchzustöbern, en el Hoffnung, como bald
durchzusteigen. Als Principiante es el alles todavía no bastante así simplemente.

Saludo

07.03.2005 ▲

Franks Listview.dll es meisterhaft y una absolute Empfehlung.

Como el dll con samt allen Befehlen auch de así bastante cada Lenguaje de programación aufrufbar es puede ser se con ruhigem Gewissen en Franco registrieren y weiß una starken Helfer (listview.dll) a el Página a haben.

Salve, IF

08.03.2005 ▲

Frank
Abbing

Hi,

Aber primero muss Yo überhaupt veces así anfangen, en Profano durchzusteigen.
Denn todavía es el alles garnicht así simplemente para mich. Momentan bin Todavía
esta, deine Ejemplo-Quellcodes durchzustöbern, en el Hoffnung, como bald
durchzusteigen. Als Principiante es el alles todavía no bastante así simplemente.

Lass dir Tiempo beim Lernen. Es wichtig. Fang con el Sachen a, el dir al meisten Spass hacer y beginne simplemente, selber kleine Quellcodes a redactar.

IF:

08.03.2005 ▲