XProfan

qui CSV-variante hat comment chacun autre variante sa avant- et Nachteile.

je serait proposer wir construire une inc, quelle oui chez besoin aussi trop einer PCU kompiliert volonté peux.

alors une CSVDB.INC

je serait aussi proposer, qui include seulement sous Verwendung des neuesten offiziellen XProfans herzustellen. Im Moment ist ca wohl XProfan9.

Je mets la fois dans den espace cela wir im Prinzip seulement 2 Befehle besoin.
un Befehl zum Lesen,- un anderer zum écrivons.

et là fällt mir aussi déjà qui file.pcu un - quelle sous Unités zum Télécharger bereitsteht.

cet hat sous Anderem deux Befehle: freadline & fwriteline.

freadline (a(string),b(longint)) ließt aus Dossier a la ligne b aus et gibt den le contenu comme String zurück.

fwriteline(a(string),b(longint),c(string)) überschreibt dans Dossier a qui la ligne b avec dem String c.

eh bien, là csv bekanntlich mehere Spalten avec einem Séparateur (dans mon Beispiel ;) getrennt enthalten peux, sollte cet Option sous Verwendung qui beiden o.g. Befehle léger adaptierbar son.

Donc:
Kompilieren Marque Séparation

 {$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 et es funzt aussi primast.

là haddu ne mini-csv-db.

Salve, iF

01.03.2005 ▲

Na Gregor - funzt es? :roll:

Ists nichn kleines Beispiel quoi Du wolltest?

Kleines Feedgebäck wär joli.

Salve, iF

Michael
Gregor

Salut,

non malheureusement pas...

Hab oui erstens ne...aucune profan 9 et zweitens konnte je qui genannte
Unit im Télécharger Bereich pas trouver...

j'écrivais pas qui Unit sei im Downloadbereich pour trouver - mais qui Unit sei sous Unités zum Télécharger angeboten.

simple à gauche-dessus sur Unités klicken.

ne...aucune XProfan9 :roll:

malheureusement steht dans Deiner Signatur ici pas quelle Profanversion Du utilise - c'est pourquoi schrieb ego aussi dans X9.

Schreib la fois ici hinein quelle Profanversion Du utilise: [...]

Sag doch - welches Profan utilise Du?

Salve, iF

Michael
Gregor

je exposition juste la fois chez Unités pour. cela dernier la fois schaute je aussi là pour, et là était es pas
pour trouver. peut-être hab je diesmal plus Glück

je nutze encore toujours qui Profan 8 Shareware, qui du mir la fois gegeben la hâte

Michael
Gregor

Ah qui suchet qui findet. Hätte wohl lieber zweimal hinschauen devoir

Frank
Abbing

allô Michael,

je serait qui Dossier toujours im grenier bilden et später comme Ganzes Sauver. Reserviere genügend grenier et bastle deine Dossier (Anzahl generierter Bytes merken!). comme Spaltentrenner am besten cela Semikolon verwenden, qui Textes devrait du dans Anführungszeichen mettons. Zeilentrenner ist Chr$(13)+Chr$(10).
Um Bilder trop intégrer, benutzt du peut-être une Erkennungsstring avec angehängtem Dateinamen et schliesslich dem réel Text, z.B. <<<</Icônes/Guckmal.ico>>>>Hier steht qui Text.
Beachte mais, l'autre Programme so un erweitertes CSV-Format pas richtig lesen peut... et à Suchstrings pour trouver empfiehlt sich qui API lstrcmpi() aus qui Kernel32.

pourquoi vouloir du qui Listview.dll pas verwenden? justement pour quelque chose comme hab je vous gemacht.

Michael
Gregor

Hätte je quelque chose größeres et konkreteres, serait je qui listview.dll sicherlich sogar verwenden.

je spiele ici mais momentan seulement un peu avec qui Profan Shareware herum, afin de voyons, quoi je
so faire peux et si je überhaupt quelque chose avec cela hinbekomme. et je sais encore pas, si je cela alles
pas peut-être. wieder verwerfe et mich anderen Dingen zuwende. Zudem peux qui listview.dll viel viel viel
plus que il me faut ;) je voulais simple vorerst seulement la fois testen, si je aussi so, sur simple Weise,
avec CSVs (ou bien anderen Datenformaten) hantieren peux. mais je remercie euch très pour eure Aider!

Michael
Gregor

allô Frank,

après que je mir fois le Beispiele avec qui listview.dll angesehen habe,
merke je so lente, dass je qui wohl doch très wohl bien gebrauchen peux ;)

peux alors bien son, dass du bientôt la fois un nouveau Registrierersuchen bekommst ;)

mais erstmal muss je überhaupt la fois avec cela anfangen, dans Profan durchzusteigen.
car encore ca sera tout garnicht so simple pour mich. Momentan suis je encore
dabei, deine Beispiel-Quellcodes durchzustöbern, dans qui espoir, là bientôt
durchzusteigen. comme Débutant ca sera tout encore pas entier so simple.

Salut

07.03.2005 ▲

Franks Listview.dll ist magistral et une absolute Empfehlung.

là qui dll avec velours allen Befehlen aussi aus so assez chacun Programmiersprache aufrufbar ist peux on sich avec ruhigem Gewissen chez Frank registrieren et sais une starken Helfer (listview.dll) à qui page trop avons.

Salve, iF

08.03.2005 ▲

Frank
Abbing

Hi,

mais erstmal muss je überhaupt la fois avec cela anfangen, dans Profan durchzusteigen.
car encore ca sera tout garnicht so simple pour mich. Momentan suis je encore
dabei, deine Beispiel-Quellcodes durchzustöbern, dans qui espoir, là bientôt
durchzusteigen. comme Débutant ca sera tout encore pas entier so simple.

Lass dir Zeit beim apprendre. c'est important. Fang avec den Sachen à, qui dir am meisten Spass faire et beginne simple, selber kleine Quellcodes trop erstellen.

iF:

08.03.2005 ▲