[es] - Spisak MP3 sa folderima

AnaBaki

Član broj: 149618
Poruke: 36
*.my-trion.net.

Profil

^{17.01.2008. u 14:34 - pre 198 meseci}

Imam mali problem sa pravljenjem liste pesama
Kako i na koji nacin odraditi programce da skenira folder sa muzikom
sa svim podfolderima i da sastavi spisak u .txt ili .doc ili .xls
sledeceg oblika, na primer

ABBA
1973 Ring ring
Another town
...
1974 Waterloo
spisak pesama
Sledeci album
spisak pesama

Tj.

FOLDER
pesme
PODFOLDER
pesme
PODFOLDER
pesme

a da nema ogranicenja za broj pesama u folderu ili broj podfoldera u folderu

Valjda sam bio jasan.

Pozdrav

Odgovor na temu

mulaz
Ljubljana

Član broj: 47602
Poruke: 2239
*.dial-up.dsl.siol.net.

Jabber: mulaz@elitesecurity.org
Sajt: www.mulaz.org

+184 Profil

Re: Spisak MP3 sa folderima

^{17.01.2008. u 15:39 - pre 198 meseci}

na linuxu je to `ls -1R`
mozes da instaliras cygwin, i dobijes te komande :)
a sigurno postoji i laksi nacin, ali bolje ista nego nista :)

Bolje ispasti glup nego iz aviona
http://www.mulaz.org/

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Spisak MP3 sa folderima

^{17.01.2008. u 16:34 - pre 198 meseci}

Sledeća funkcija daje listu svih dirova i fajlova.

Code:

procedure TraversePath(ADir: string; AFiles: TStrings);
var
  lpFindFileData: TWIN32FindData;
  FileName: string;
  hFindFile: THandle;
begin
  ADir := IncludeTrailingPathDelimiter(ADir);

  hFindFile := FindFirstFile(PChar(ADir + '*'), lpFindFileData);
  if hFindFile <> INVALID_HANDLE_VALUE then
  repeat
    FileName := lpFindFileData.cFileName;

    if lpFindFileData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
      AFiles.Add(ADir + FileName)
    else begin
      if (FileName <> '.') and (FileName <> '..') then
        TraversePath(ADir + FileName, AFiles);
    end;
  until not Windows.FindNextFile(hFindFile, lpFindFileData);

  Windows.FindClose(hFindFile);
end;

Ako postaviš jedan Memo na formu možeš videti kako radi sa TraversePath('C:\Tmp', Memo1.Lines);

To što tebi treba možeš iskombinovati iz dva dela, prvo da dobiješ listu svih dirova u datoj putanji a potom ideš kroz listu dirova i pronalaziš fajlove koji odgovaraju datoj masci (npr. '*.mp3')

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

AnaBaki

Član broj: 149618
Poruke: 36
*.my-trion.net.

Profil

Re: Spisak MP3 sa folderima

^{26.01.2008. u 09:26 - pre 197 meseci}

Pronadjoh nesto sto zadovoljava neke moje kriterijume.
napisano je za Delphi 6, a dozvoljava se promena koda
za licnu upotrebu.

Pogledati na http://codecentral.borland.com/Item/20163
Valjda sam smeo da stavim link?
Ako ne sme neka ga moderatori uklone
Pozdrav

Odgovor na temu