XProfan

- page 1 -

Torsten
Rümker

Ok, pour un un peu zusätzlichem sur) hab je selbst une Funktionierende Solution trouvé:
Kompilieren Marque Séparation

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

alors viel geschrei um nix

bof peut-être hilft es oui einem anderen Débutant

MfG
Torsten

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

14.11.2005 ▲

Schaue Dir aussi fois le File-Unit à.

Achso - un Poste es doch chez den Codesnippets - là würden Débutant wohl plutôt chercher.

14.11.2005 ▲

Michael
Wodrich

Hmm,

chez einem Array avec 1000 Entrées serait je wirklich déjà sur qui Nutzung einer dBase-banque de données sur).
Aussi ist là cela Effacer einfacher. et si Du cela Ganze comme CSV brauchst, ensuite reicht souvent un kleines Export-Upro.
qui Adressen-Demo de Profan bietet ici un ausreichendes Beispiel.

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Torsten
Rümker

entier honnête, j'ai den Array pris, weil je cela toujours so fais. Soll appeler je hab seulement losprogrammiert, et ensuite nachgedacht

la hâte naturellement droite, avec einer DBASE banque de données ist on naturellement viel flexibler.

Na ensuite: Frisch à l' werk, je wurschtel cela ganze la fois sur banque de données um

MfG
Torsten

PS: là hätt je aussi plutôt tour penser peut

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

Lol und dir aussi encore encore encore plus rapide.

si chacun Entry une Dossier wäre - wäre cela Entfernen eines Entrys grad la fois cela Effacer einer Dossier.

Torsten
Rümker

ensuite sieht qui Datenbestand sur qui Festplatte mais irgendwann albern aus,
wobei cela ganze naturellement aussi wieder quoi pour sich hat

Ok, suis sur un Problem gestoßen chez qui dbase Commutateur:

comment bekomme je un Memofeld dans un RichEdit (et wieder zurück) à vrai dire verstehe je qui Aider dans dem Punkt Memo pas so entier

MfG
Torsten

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

Michael
Wodrich

là la hâte Du qui Achillesferse de Profan erwischt.

Memofelder volonté dans qui Listbox-liste (profan-propre) lire et de là aussi wieder abgespeichert. Bearbeitung avec Editbox

.

c'est zwar possible avec MoveListToEdit

cet données dans un Editcontrol trop übertragen - mais malheureusement gibt es keinen Rückweg.

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Torsten
Rümker

eh, nee cela passt mir gar pas dans den Kram.

eh bien ensuite alors wieder zurück zur Version sans dBase

quand même merci

MfG
Torsten

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

Carlo
Keil

[quote-part:7416517cbb=Michael Wodrich]là la hâte Du qui Achillesferse de Profan erwischt. (...)
c'est zwar possible avec MoveListToEdit

cet données dans un Editcontrol trop übertragen - mais malheureusement gibt es keinen Rückweg.[/quote-part:7416517cbb]
Wir wärs ensuite avec einer gemeinsamen BITTE BITTE-Attacke sur Roland?
(peut-être kriegt oui quelqu'un aussi une passenden Smiley hin.
mon künstlerischen Fähigkeiten reichen pour malheureusement pas.)
je eröffne la fois:

@Roland: BITTE BITTE mach uns une Rückweg

Salut
Carlo

16.11.2005 ▲

vas Du dans qui XProfan10 Rubrik qui Bibliothèque - là gibts un fil pour.

16.11.2005 ▲