Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

ListBox - Snimanje txt fajl

[es] :: Pascal / Delphi / Kylix :: ListBox - Snimanje txt fajl

[ Pregleda: 3969 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651



+62 Profil

icon ListBox - Snimanje txt fajl12.03.2005. u 12:59 - pre 231 meseci
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
There are only 10 types of people in the world:
those who understand binary, and those who don't.
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
213.244.208.*

Sajt: www.diy-fever.com


+1 Profil

icon Re: ListBox - Snimanje txt fajl12.03.2005. u 15:05 - pre 231 meseci
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
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

IgLo
Igor Lovric
Sremski Karlovci

Član broj: 19524
Poruke: 129
*.neobee.net.

Sajt: www.unicornsoft.net


Profil

icon Re: ListBox - Snimanje txt fajl12.03.2005. u 15:20 - pre 231 meseci
Onaj WriteLn moze i malo elegantnije:

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


I da,... end; za jednu liniju dole
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
62.108.102.*

Sajt: https://avramovic.info


+46 Profil

icon Re: ListBox - Snimanje txt fajl12.03.2005. u 18:57 - pre 231 meseci
za skidanje ekstenzije uradis jedan for loop (mada kod mnogo pesama to moze da traje...) i samo

listbox1.items:=changefileext(listbox1.items,'');
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.95.eunet.yu.



+1 Profil

icon Re: ListBox - Snimanje txt fajl12.03.2005. u 21:23 - pre 231 meseci
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.
 
Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
213.244.208.*

Sajt: www.diy-fever.com


+1 Profil

icon Re: ListBox - Snimanje txt fajl12.03.2005. u 22:07 - pre 231 meseci
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
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
 
Odgovor na temu

IgLo
Igor Lovric
Sremski Karlovci

Član broj: 19524
Poruke: 129
*.neobee.net.

Sajt: www.unicornsoft.net


Profil

icon Re: ListBox - Snimanje txt fajl13.03.2005. u 11:08 - pre 231 meseci
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
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: ListBox - Snimanje txt fajl

[ Pregleda: 3969 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.