Voisko joku ystävällinen sielu kertoa miten Delphi 7 voi käydä läpi tietyn hakemiston kaikki tiedostot. Eli tarvittais esim. opendialog josta valitaan hakemisto joka sisältää tekstitiedostoja joista etsitään sanahaulla tiettyjä rivejä. Läpi pitäisi käydä kukin txttiedosto vuorollaan. Hakuhomman saan kyllä toimimaan mutta tiedostojen läpikäynti.
Hakemiston läpikäynti Delphi
aloittelija
3180
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 3
Vanhimmat
Katso Delphin ohjeesta tarkemmin Findfirst ja Findnext.
Niillä tuo homma onnistuu helposti.
esim:
FindFirst('c:cmd*.txt', faAnyFile, SearchRec);
Label1.Caption := SearchRec.Name;
hakee ensimmäisen .txt-tiedoston.
Sen jälkeen seuraavat haetaan Findnext:llä.
Tuo Findnext sitten suoritetaan niin monta kertaa kuin tarve. Kun uusia tiedostoja ei enää tule, niin se antaa tieston nimeksi saman kuin edellisellä kerralla.
Se on siten helppo verrata vaikka arraysta, onko tiedostot jo loppu.
//esim
if tiedosto[nyt]=tiedosto[nyt-1] then ...//nyt loppu tiedostot
Tulipa selitetttyä niin vaikeasti, ettei itsekään enää ymmärrä :)
Toivottavasti sait jotain selkoa...
jostain syystä kenoviivat ei näy.
korvataan ne nyt sitten esimerkissä kauttaviivoilla:
FindFirst('c:/cmd/*.txt', faAnyFile, SearchRec);
Kiitoksia vain Mikulle. Homma toimii hienosti. niin komee luettelo tiedostoista jotta. Ja ei muuta kuin funktiokutsu ja tiedostoja plaraamaan.