XProfan

- Page 1 -

Torsten
Rümker

OK, after a little zusätzlichem cogitate Have myself a Working Solution found:
Compile Mark Separation

PROC Datei_einlesen

    DECLARE Zeile$, zaehler&
    @Sendmessage(filmliste&,$0184,0,0) FilmListe löschen
    RESET #1
    Let zaehler& = 1

    WhileNot @EoF(#1)

        INPUT #1, Zeile$
        Datentraeger$[zaehler&] = @Substr$(Zeile$,1,";")
        FilmName$[zaehler&]     = @Substr$(Zeile$,2,";")
        Beschreibung$[zaehler&] = @Substr$(Zeile$,3,";")
        @Addstring(Filmliste&,FilmName$[zaehler&])
        INC Zaehler&

    EndWhile

    Close #1

EndProc

PROC Datei_schreiben

    DECLARE Zaehler&, Zeile$
    Rewrite #1
    LET Zaehler& = 1

    WhileLoop @getCount(FilmListe&)

        IfNot Datentraeger$[Zaehler&] = ""

            Zeile$ = Datentraeger$[Zaehler&]+";"+FilmName$[Zaehler&]+";"+Beschreibung$[Zaehler&]
            Print #1,Zeile$

        EndIf

        Inc Zaehler&

    EndWhile

    Close #1

EndProc

PROC Eintrag_loeschen

    DECLARE Zaehler&
    LET Zaehler& = 1

    WhileLoop 1000

        IF @GetString$(FilmListe&,@GetCurSel(FilmListe&)) = FilmName$[&loop]

            LET Datentraeger$[&loop] =""

        EndIf

    EndWhile

    Datei_schreiben
    Datei_einlesen

'./../../function-references/XProfan/endproc/'>ENDPROC

means plenty scream circa nothing

Well Perhaps helps it Yes another Beginner

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

11/14/05 ▲

Look you too times the File-Unit on.

Achso - un poste it still with whom Codesnippets - there would Beginner well sooner search.

11/14/05 ▲

Michael
Wodrich

Hmm,

with one aray with 1000 Einträgen would I really already over The Use of/ one dBase-data base cogitate.
Also is there the Delete plainer. And if You, the whole as CSV need, then reicht often one small export-Upro.
The Adressen-demonstration of Profan bid here ausreichendes example.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Torsten
Rümker

integrally sincere, I have whom aray taken, because I the always so make. should hot I Have first losprogrammiert, and then thought

have naturally right, with of/ one DBASE data base is one naturally plenty flexibler.

Well then: freshly ans werk, I wurschtel the whole time on data base circa

MfG
Torsten

PS: there would have so did i sooner dran think can

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

Lol It's all right too yet yet yet faster.

If eachone Entry a File would - would the Remove one Entrys strain time the Delete of/ one File.

Torsten
Rümker

then sees the Datenbestand on the Festplatte but sometime silly from,
where the whole naturally again take off itself has

OK, be on a problem punched with the dbase Umstellung:

How do I get one Memo into RichEdit (and again back) sincere said understand I The Help in the point Memo not so integrally

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

Michael
Wodrich

there have You The achilles heel of Profan erwischt.

Memofelder go into Listbox-list (profane-own) read and of there also again abgespeichert. edit with Editbox

.

its of course possible with MoveListToEdit

these data into Editcontrol To transfer - but unfortunately there none Rückweg.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Torsten
Rümker

Oh, no the fit me none into Kram.

well Ok, so again back to Version without dBase

nevertheless thanks

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

Carlo
Keil

[quote:7416517cbb=Michael Wodrich]there have You The achilles heel of Profan erwischt. (...)
its of course possible with MoveListToEdit

these data into Editcontrol To transfer - but unfortunately there none Rückweg.[/quote:7416517cbb]
we wärs then with of/ one joint BITTE BITTE-Attacke on Roland?
(Perhaps kriegt Yes someone too a suitable Smiley there.
my künstlerischen skills wealthy for unfortunately not.)
I eröffne time:

@Roland: BITTE BITTE mach us a Rückweg

Greeting
Carlo

11/16/05 ▲

go You into XProfan10 Rubrik the Library - there Gibts one Thread for.

11/16/05 ▲