[ shpiki @ 12.03.2005. 12:59 ] @
Kako namestiti da fajlove iz ListBox (koje selektujem iz FileLista) snimim u textualni fajl?
Ovo mi je potrebno za "sejvovanje" pesama(.mp3).
Npr.
-------------------------------
KOSHEEN - Catch.mp3
KOSHEEN - Face in a crowd.mp3
ERIC PRYDZ - Call on me.mp3

itd.

Ili ako je jos bolje, kao da izbegnem prikazivanje ekstenzije(.mp3)???

KOSHEEN - Catch
KOSHEEN - Face in a crowd
ERIC PRYDZ - Call on me
[ bancika @ 12.03.2005. 15:05 ] @
Code:

var F:TextFile;
    i: Integer;
begin
  AssignFile(f, 'lista.txt'); Rewrite(F);
  for i := 0 to ListBox.Items.Count - 1 do
   if ListBox.Selected[i] then
     WriteLn(F, Copy(ListBox.Items[i], 1, Length(ListBox.Items[i]) - Length(ExtractFileExt(ListBox.Items[i])) + 1);
end;
  CloseFile(F);

to bi bilo otprilike to
[ IgLo @ 12.03.2005. 15:20 ] @
Onaj WriteLn moze i malo elegantnije:

Code:
WriteLn (F, ChangeFileExt(ListBox.Items [i], ''));


I da,... end; za jednu liniju dole
[ Nemanja Avramović @ 12.03.2005. 18:57 ] @
za skidanje ekstenzije uradis jedan for loop (mada kod mnogo pesama to moze da traje...) i samo

listbox1.items:=changefileext(listbox1.items,'');
[ morlic @ 12.03.2005. 21:23 ] @
A moze jos elegantnije :)

Code:

begin
  ListBox1.Items.Text:= StringReplace(ListBox1.Items.Text, 
     '.mp3', '', [rfReplaceAll,rfIgnoreCase]);
  ListBox1.Items.SaveToFile('c:\lista');
end;


Naravno ako je ekstenzija fajlova mp3.
[ bancika @ 12.03.2005. 22:07 ] @
a ako je wma? moras da uzmes u obzir sve slucajeve.
zgodno ono ChangeFileExt, nisam znao za to...i da, ne znam kako ode end; gore
[ IgLo @ 13.03.2005. 11:08 ] @
Citat:
 A moze jos elegantnije


ListBox1.Items.SaveToFile('c:\lista');


E bas ne moze!

Salim se,... moglo bi kada bi hteo da snimi sve, a on hoce samo selektovane