XProfan

- Página 1 -

Torsten
Rümker

Ok, después de una bischen zusätzlichem Nachdenken tener Yo incluso una Funktionierende Solución gefunden:
Kompilieren Marca Separación

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

Also viel geschrei en nix

Naja tal vez hilft lo sí una otro Principiante

MfG
Torsten

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

14.11.2005 ▲

Schaue Usted auch veces el File-Unit a.

Achso - un poste lo doch en el Codesnippets - hay würden Principiante wohl más suchen.

14.11.2005 ▲

Michael
Wodrich

Hmm,

en una Array con 1000 Einträgen sería Yo wirklich ya en Nutzung uno dBase-Datenbank nachdenken.
Außerdem es como el Löschen einfacher. Und si el Ganze como CSV necesidad, entonces reicht oft una kleines Export-Upro.
El Adressen-Demo de Profano bietet hier una ausreichendes Ejemplo.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Torsten
Rümker

Ganz ehrlich, Yo el Array genommen, porque Yo el siempre así mache. Soll heißen Yo tener sólo losprogrammiert, y luego nachgedacht

Hast natürlich bastante, con uno DBASE Datenbank es uno natürlich viel flexibler.

Na entonces: Frisch ans werk, Yo wurschtel todos veces en Datenbank en

MfG
Torsten

PS: Como hätt Yo auch más dran denken puede

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

Lol lo va auch todavía todavía todavía más rápido.

Wenn cada Entry una Expediente wäre - wäre el Entfernen uno Entrys grad veces el Löschen uno Expediente.

Torsten
Rümker

Dann sieht el Datenbestand en el Festplatte aber irgendwann albern de,
wobei todos natürlich auch otra vez qué para se ha

Ok, bin en una Problema gestoßen en dbase Interruptor:

Como bekomme Yo una Memofeld en una RichEdit (y otra vez zurück) ehrlich dijo verstehe Yo el Ayuda en el Punkt Memo no tan completamente

MfG
Torsten

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

Michael
Wodrich

Como hast Usted el Achillesferse de Profano erwischt.

Memofelder voluntad en el Listbox-Liste (profano-eigen) eingelesen y de hay auch otra vez abgespeichert. Bearbeitung con Editbox

.

Es zwar posible con MoveListToEdit

esta Daten en una Editcontrol a übertragen - aber desafortunadamente hay no Rückweg.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Torsten
Rümker

Oh, nee el passt me nada en el Kram.

Na bien entonces also otra vez zurück a Versión sin dBase

Trotzdem danke

MfG
Torsten

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

Carlo
Keil

[quote:7416517cbb=Michael Wodrich]Como hast Usted el Achillesferse de Profano erwischt. (...)
Es zwar posible con MoveListToEdit

esta Daten en una Editcontrol a übertragen - aber desafortunadamente hay no Rückweg.[/quote:7416517cbb]
Wir wärs entonces con uno gemeinsamen BITTE BITTE-Attacke en Roland?
(Tal vez kriegt sí alguien auch una passenden Smiley hin.
Mi künstlerischen Fähigkeiten reichen dafür por desgracia, no.)
Yo eröffne veces:

@Roland: BITTE BITTE mach uns una Rückweg

Saludo
Carlo

16.11.2005 ▲

Gehst Usted en el XProfan10 Rubrik el Biblioteca - hay gibts un hilo dafür.

16.11.2005 ▲