🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #93

Re: Jak posortować pliki?

#93
From: Tomasz Jaruga
Date: Tue, 15 Dec 1998 21:34
26 lines
2133 bytes
Dnia Tue, 15 Dec 1998 12:24:13 +0100, Jarek Kucypera napisał(a):
>>FindFirst ('*.dat', AnyFile, info);
>[ciach]
>> FindNext (info);
>>Pliki, które uzyskuję w wyniku przeszukania są uporządkowane wg. daty
>>utworzenia.
>>Jak zrobić, aby posortować wyszukane pliki np. alfabetycznie?
>
>
>Z tego co wiem, to nie można zmienić sposobu przeszukiwania
>katalogów (FindFirst i FindNext odwołują się bezpośrednio do
>analogicznych funkcji DOSa, tam może coś znajdziesz) inaczej
>niż przez samodzielne posortowanie.

A czy ktoś może ma takie coś napisane w miarę zwięźle i krótko?
Plików jest max. 200. I wszystkie mają rozszrzenie .dat i są trzymane w
jednym katalogu. Chodzi tylko o posortowanie nazw po odczytaniu ich
poprzez FindFirst i FindNext (alfabetycznie).

Byłbym bardzo wdzięczny za coś takiego (na priva, żeby nie zasmiecać).

-- 
     Tomasz Jaruga     #     GED>E$ d- s+:-- a22 C++ UL++ P- L++ E+ W++ N++
   tmpj@friko.onet.pl   #       o? K? w(---) O? M? V? PS+ PE++ Y? PGP+ t 5?
  http://come.to/tmpj/   #         X- R- tv- b+ DI? D- G e h!>h--- r++ y+++
#########################  Powered by Linux 2.0.35 RedHat 5.1 Manhattan  ##
Technical Details
Message-ID: <slrn77dlbe.ft.tmpj@ava.adore.net>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!news.nask.pl!orion.cst.tpsa.pl!news.task.gda.pl!tmpj
References: <slrn77b20b.kp.tmpj@ava.adore.net> <755gu6$86d@gate-inet.insert.igo.wroc.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!news.nask.pl!orion.cst.tpsa.pl!news.task.gda.pl!tmpj
From: tmpj@friko.onet.pl (Tomasz Jaruga)
Newsgroups: pl.comp.lang.pascal
Subject: Re: Jak posortować pliki?
Date: 15 Dec 1998 21:34:46 GMT
Organization: Niezrzeszony :-)
Lines: 26
Message-ID: <slrn77dlbe.ft.tmpj@ava.adore.net>
References: <slrn77b20b.kp.tmpj@ava.adore.net> <755gu6$86d@gate-inet.insert.igo.wroc.pl>
Reply-To: tmpj@friko.onet.pl
NNTP-Posting-Host: ppp15.koszalin.tpnet.pl
Mime-Version: 1.0
X-Trace: korweta.task.gda.pl 913757686 9387 194.204.177.15 (15 Dec 1998 21:34:46 GMT)
X-Complaints-To: abuse@task.gda.pl
NNTP-Posting-Date: 15 Dec 1998 21:34:46 GMT
X-Geekcode-W-Sygnaturce: http://www.geekcode.com/
X-Operating-System: Linux 2.0.36 i586 ava.adore.net
User-Agent: slrn/0.9.5.4 (UNIX)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit