Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 6 odgovora
  • 5.185 pregleda

Najnovija ↓

ListBox - Snimanje txt fajl 12.03.2005. u 13:59 · pre 263 meseca #1
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
Potpis
There are only 10 types of people in the world:
those who understand binary, and those who don't.
Re: ListBox - Snimanje txt fajl 12.03.2005. u 16:05 · pre 263 meseca #2
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
Potpis
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
Re: ListBox - Snimanje txt fajl 12.03.2005. u 16:20 · pre 263 meseca #3
Onaj WriteLn moze i malo elegantnije:

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


I da,... end; za jednu liniju dole :)
Re: ListBox - Snimanje txt fajl 12.03.2005. u 22:23 · pre 263 meseca #5
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.
Re: ListBox - Snimanje txt fajl 12.03.2005. u 23:07 · pre 263 meseca #6
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 :)
Potpis
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
Re: ListBox - Snimanje txt fajl 13.03.2005. u 12:08 · pre 263 meseca #7
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
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme