XProfan

The CSV-Variante has How each others Variante its to- and detriments.

i'd suggest we building a inc, which Yes with want too to a PCU compiled go can.

means a CSVDB.INC

i'd too suggest, The include only under usage the latest official XProfans produce. in the momentum is this well XProfan9.

I put time into space the we in the principle only 2 command need.
One commands to that reading,- another to that write.

and there falls me already The file.pcu one - which under Units to that Download bereitsteht.

These has under Anderem two command: freadline & fwriteline.

freadline (a(string),b(longint)) ließt from File a row b from and gives whom Content as String back.

fwriteline(a(string),b(longint),c(string)) überschreibt in File a The row b with the string c.

now, there csv known mehere Split with a Separator (in my example ;) separated include can, ought to these option under Using the both o.g. command slight adaptierbar his.

means:
Compile Mark Separation

 {$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 tested and it working too primast.

there haddu ne mini-csv-db.

salvo, iF

03/01/05 ▲

well Gregor - working it? :roll:

Ists nichn small example what You wanted?

small Feedgebäck would beautiful.

salvo, iF

Michael
Gregor

Hi,

No unfortunately not...

Have Yes in the first no profane 9 and secondly could I The named
Unit in the Download area not find...

I wrote not The Unit be in the Download Area to find - separate The Unit be under Units to that Download offered.

simply left-supra on Units clicking.

no XProfan9 :roll:

unfortunately standing in your Signatur not which Profanversion You uses - therefore wrote ichs too in X9.

Schreib time here into which Profanversion You uses: [...]

Sag still - which Profan uses You?

salvo, iF

Michael
Gregor

I look same time with Units to. the latest time looked so did i there to, and there was is not
to find. Perhaps Have I this time More Happiness

I use yet always The Profan 8 shareware, The You me time given have

Michael
Gregor

Ah who suchet the finds. would have been well rather twice hinschauen should

Frank
Abbing

Hello Michael,

i'd The File always in memory form and later as Ganzes Save. Reserviere sufficient memory and bastle your File (amount generierter Bytes remember!). as Spaltentrenner best the Semikolon use, The Texts should You in quotation marks settle. Zeilentrenner is Chr$(13)+Chr$(10).
circa Images To to assimilate, using You Perhaps a Erkennungsstring with angehängtem Filenames and ultimately the actual Text, z.B. <<<</Icons/Guckmal.ico>>>>Hier standing the Text.
mind but, the others programs so one advanced CSV-stature not correctly. reading can... and around the Suchstrings to find recommend the API lstrcmpi() from the Kernel32.

Why want You The List view.dll not use? straight for something like Have I tappt im dunkeln made.

Michael
Gregor

would have been I something größeres and konkreteres, would I The listview.dll sure even use.

I Games here but momentarily only a little bit with the Profan shareware around, to see, I
so can make and whether I at all something so hinbekomme. what about me remember not, whether I the everything
not evtl. again verwerfe and me others Things zuwende. additionally can The listview.dll plenty plenty plenty
More as i need ;) I wished simply for the time being only test times, whether so did i so, on simple point,
with CSVs (or others Datenformaten) hantieren can. but I thanks you very for eure Help!

Michael
Gregor

Hello Frank,

after I me times the Examples with the listview.dll respected have,
observe I so slow, I The well still very well well use can ;)

can so good his, that You soon time one new Registrierersuchen get ;)

but first must I at all time so begin, in Profan durchzusteigen.
because yet is the everything not at all so simply for me. momentarily be I yet
thereby, your example-Source code durchzustöbern, in the hope, there soon
durchzusteigen. as Beginner is the everything not yet integrally so simply.

Greeting

03/07/05 ▲

Franks List view.dll is authoritative and a absolute recommendation.

there The dll with velvet all command too from so quite eachone Programming-Language aufrufbar is can itself with ruhigem conscience with Frank Register and white a strong aide (listview.dll) on the Page to have.

salvo, iF

03/08/05 ▲

Frank
Abbing

Hi,

but first must I at all time so begin, in Profan durchzusteigen.
because yet is the everything not at all so simply for me. momentarily be I yet
thereby, your example-Source code durchzustöbern, in the hope, there soon
durchzusteigen. as Beginner is the everything not yet integrally so simply.

Lass you Time at learn. this is important. catch with the things on, The you on the most joke make and begin simply, yourself small Source code to create.

iF:

03/08/05 ▲