Srodne teme

24.05.2002. Kreiranje fajlova - ima li josh neki nachin?
22.09.2003. listbox update problem
21.10.2003. MultiColumn Listbox
21.02.2004. Kopiranje (TXT) fajla na udaljeni racunar (LAN)
14.12.2006. pisanje-citanje u tekstualni fajl
17.11.2004. Snimanje podataka iz StringGrid-a u fajl?
07.01.2005. Da li moze txt 2 EXE ?
07.02.2005. Snimanje texta u fajl u odredjenu liniju
09.04.2005. snimanje listbox-a u fajl

Navigacija

Brisanje liste

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

ListBox - Snimanje txt fajl

[es] :: Pascal / Delphi / Kylix :: ListBox - Snimanje txt fajl	[ Pregleda: 1304 \| Odgovora: 6 ]	Postavi temu Odgovori

Autor

shpiki
Zrenjanin - Novi Sad

Član broj: 50342
Poruke: 195
195.252.85.*

Sajt: www.justfuckinggoogleit.c..

Profil

ListBox - Snimanje txt fajl

^{12.03.2005. u 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

● Kad je neko lud, ne treba mu biti zbunjen!
● Dok ne probam lava, za mene je svinja kralj zivotinja!

^{12.03.2005. u 12:59}

bancika
Branislav Stojkovic
Nis, New York

Član broj: 24844
Poruke: 620
213.244.208.*

ICQ: 84215453
Sajt: www.storm-software.co.yu/..

Profil

Re: ListBox - Snimanje txt fajl

^{12.03.2005. u 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

Ride the rainbow, crack the sky

^{12.03.2005. u 15:05}

IgLo
Igor Lovric
Sremski Karlovci

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

Sajt: lovric.narod.ru

Profil

Re: ListBox - Snimanje txt fajl

^{12.03.2005. u 15:20}

Onaj WriteLn moze i malo elegantnije:

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

I da,... end; za jednu liniju dole

^{12.03.2005. u 15:20}

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3995
62.108.102.*

ICQ: 266136396
Sajt: www.avramovic.info

Profil

Re: ListBox - Snimanje txt fajl

^{12.03.2005. u 18:57}

za skidanje ekstenzije uradis jedan for loop (mada kod mnogo pesama to moze da traje...) i samo

listbox1.items:=changefileext(listbox1.items,'');
Moj sajt. Moj blog. Moj avatar. Moj grad. Moja frizura.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

^{12.03.2005. u 18:57}

morlic
Milos Orlic
Beograd

Moderator
Član broj: 6081
Poruke: 732
*.95.eunet.yu.

Profil

Re: ListBox - Snimanje txt fajl

^{12.03.2005. u 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.

^{12.03.2005. u 21:23}

bancika
Branislav Stojkovic
Nis, New York

Član broj: 24844
Poruke: 620
213.244.208.*

ICQ: 84215453
Sajt: www.storm-software.co.yu/..

Profil