Einsteigerfragen zur PROFAN Programmierung
  Suchen
 Zurück zur Übersicht
 AutorThema: Listbox/Speichern
Volker
Datum:18.07.02 00:39 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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
Shortwin - denn Glück ist kein Zufall!