Einsteigerfragen zur PROFAN Programmierung

| Suchen
| Zurück zur Übersicht

Autor | Thema: Listbox/Speichern
Volker
| Datum:18.07.02 00:39 (evkkrsaar@gmx.de) |
Hallo, ich will ein Programm schreiben, welches den Inhalt einer CD ausliest und die Daten dann in eine Datei schreibt. Hier muss es keine Datenbankdatei sein, es würde schon eine einfache Abspeicherung genügen (in Basic sagte man SEQ-Datei dazu). Das Auslesen habe ich so geschafft: ClearList ChDir "f:\movies\" AddFiles *"*.mp3" @ListBox$("MP3-Files / einlesen",1) Nun bekomme ich zwar den Inhalt angezeigt aber ich weiss nicht wie ich die Daten in eine Datei bekomme. Kann mir einer sagen wie es geht ? wäre echt nett ! Ich will nämlich nicht schon wieder auf mein altes Basic zurückgreifen um dieses Programm zu machen. Ich habe mir fest vorgenommen mich jetzt mal richtig mit Profan zu beschäftigen. Achja, ich habe Profan 7.0 Volker
Rolf Koch
| Datum:18.07.02 01:01 (webmaster@rokosoft.de) |
Hi vielleicht so:
    declare listbox1&,listbox2&,anzahl%,i%
    ClearList
    ChDir "f:\movies\"
    AddFiles *"*.mp3"
    cls 'oder WINDOW 0,0-0,0 unsichtbar
    listbox1&=createlistbox(%hwnd,"",0,0,0,0) 'Zum Füllen
    Listbox2&=@ListBox$("MP3-Files / einlesen",1)
    movelisttolist(Listbox1&)
    let anzahl%=@GetCount(Listbox1&)
    Assign #1,"C:\LISTE.TXT"  'Speicherort
    REWRITE #1
    whilenot equ(i%,anzahl%)
    inc i%
    print #1,@GetString$(listbox1&,i%)
    wend
    close #1
    PRINT "Fertig"
    Waitinput
Volker
| Datum: 20.07.02 20:32 (evkkrsaar@gmx.de) |
Hallo Rolf, vielen Dank für Deine Hilfe. Zwar habe ich das ganze noch nicht so richtig verstanden, aber es klappt einwandfrei. Genau so hatte ich es mir vorgestellt. Jetzt werde ich mal versuchen ob ich es schaffe aus der erstellten Datei was auszulesen bzw. etwas suchen zu lassen. Tja in Basic wuesste ich ja wie es geht, aber Profan ist doch einiges schwerer. Nochmals Danke und viele Gruesse aus dem Saarland Volker

| Zurück zur Übersicht

| Ein kostenloses WebMart Forum WebMart Homepage Tools kostenlos |