FindFirst i długie rozszerzenie

dziobu

unread,

Oct 27, 2009, 10:48:21 AM10/27/09

to

Witam,

Wďż˝aďż˝ciwie to nigdy na to nie zwracaďż˝em uwagi, ale pojawiďż˝ sie ciekawy
problem. Otďż˝ wyszukiwanie plikďż˝w (FindFirst...) oszukuje przy
wyszukiwaniu plikďż˝w z dďż˝ugim rozszerzeniem.

Mam takie 4 pliki:
1. c:\temp\test1.tx
2. c:\temp\test2.txt
3. c:\temp\test3.txtA
4. c:\temp\test3.txtB

FindFirst('c:\temp\*.*', ...
zwrďż˝ci wszystkie pliki

FindFirst('c:\temp\*.tx', ...
zwrďż˝ci #1

FindFirst('c:\temp\*.txt', ...
zwrďż˝ci #2, #3 i #4 !!!

FindFirst('c:\temp\*.txtA', ...
zwrďż˝ci #3

FindFirst('c:\temp\*.txtB', ...
zwrďż˝ci #4

D2007, Vista i XP (oba 32bit)

O czymďż˝ nie wiem czy ten typ tak ma?
Da sie coďż˝ poczarowaďż˝ ďż˝eby przy wyszukiwaniu *.txt znajdywaďż˝ tylko te z
3 znakowym rozszerzeniem TXT? Skoro funkcja szukajďż˝ca przyjmuje maske
pliku to byďż˝o by fajnie jakby to jeszcze dziaďż˝aďż˝o.

--
Pozdrawiam
dziobu
xyzyk.pl

GAD Zombie

unread,

Oct 27, 2009, 10:49:59 AM10/27/09

to

dziobu pisze:

> Witam,
>
> Wďż˝aďż˝ciwie to nigdy na to nie zwracaďż˝em uwagi, ale pojawiďż˝ sie ciekawy
> problem. Otďż˝ wyszukiwanie plikďż˝w (FindFirst...) oszukuje przy
> wyszukiwaniu plikďż˝w z dďż˝ugim rozszerzeniem.

To prawda, tez to zaobserwowalem na XP 32bit.

--
GAD Zombie
http://gad.art.pl/ (a email dosc podobny ;))

RyAn

unread,

Oct 27, 2009, 2:35:18 PM10/27/09

to

dziobu pisze:
> Witam,
>
> Właściwie to nigdy na to nie zwracałem uwagi, ale pojawił sie ciekawy
> problem. Otóż wyszukiwanie plików (FindFirst...) oszukuje przy
> wyszukiwaniu plików z długim rozszerzeniem.

>
> Mam takie 4 pliki:
> 1. c:\temp\test1.tx
> 2. c:\temp\test2.txt
> 3. c:\temp\test3.txtA
> 4. c:\temp\test3.txtB
>
> FindFirst('c:\temp\*.*', ...

> zwróci wszystkie pliki

>
> FindFirst('c:\temp\*.tx', ...

> zwróci #1

>
> FindFirst('c:\temp\*.txt', ...

> zwróci #2, #3 i #4 !!!

>
> FindFirst('c:\temp\*.txtA', ...

> zwróci #3

>
> FindFirst('c:\temp\*.txtB', ...

> zwróci #4

>
>
> D2007, Vista i XP (oba 32bit)
>

> O czymś nie wiem czy ten typ tak ma?
> Da sie coś poczarować żeby przy wyszukiwaniu *.txt znajdywał tylko te z
> 3 znakowym rozszerzeniem TXT? Skoro funkcja szukająca przyjmuje maske
> pliku to było by fajnie jakby to jeszcze działało.
>
Czytaj help files. Zainteresuj się tym
dwFileAttributes WIN32_FIND_DATA

--
pzdr
RyAn

Borneq

unread,

Oct 27, 2009, 2:41:07 PM10/27/09

to

Uďż˝ytkownik "dziobu" <xxx...@xxxx.xx> napisaďż˝ w wiadomoďż˝ci
news:hc717m$hk9$1...@news.onet.pl...

> Mam takie 4 pliki:
> 1. c:\temp\test1.tx
> 2. c:\temp\test2.txt
> 3. c:\temp\test3.txtA
> 4. c:\temp\test3.txtB
>

> FindFirst('c:\temp\*.txt', ...
> zwrďż˝ci #2, #3 i #4 !!!

Bďż˝ďż˝d Windows, czy teďż˝ dziaďż˝anie niezgodne z oczekiwanym
Moďż˝na filtrowaďż˝ samemu uďż˝ywajďż˝c funkcji ktďż˝rďż˝ kiedyďż˝ na tej grupie podaďż˝
Wojciech Spook Sura:

function StringMatchesMask(S, mask: string; CaseSensitive:
Boolean = false): Boolean;

function InternalStringMatchesMask(PS, PMask : PChar) : boolean;

begin
while PMask^<>#0 do
begin
// Trzy moďż˝liwoďż˝ci:
case PMask^ of
'?' : begin
// Znak zapytania zastďż˝puje dokďż˝adnie jeden znak.
if PS^=#0 then
begin
// Osiďż˝gniďż˝to koniec ciďż˝gu znakďż˝w - brakuje znaku
// pasujďż˝cego do znaku zapytania - czyli ciďż˝g
// nie pasuje do maski
result:=false;
exit
end;
inc(PMask);
inc(PS);
end;
'*' : begin
// Przy gwiazdce - zastďż˝pujďż˝cej dowolnďż˝ seriďż˝ zera lub
wiďż˝cej
// znakďż˝w - sprawa komplikuje siďż˝: nie moďż˝emy
uďż˝yďż˝strategii
// zachďż˝annej, bo funkcja powie, ďż˝e 'adas' nie pasuje do
'*as'.
// Dlatego dla kaďż˝dego potencjalnego trafienia trzeba
bďż˝dzie
// sprawdziďż˝, czy reszta ciďż˝gu i maski do siebie pasujďż˝.

// Najpierw sprawdzamy prosty warunek:
inc(PMask);
if PMask^=#0 then
begin
// Gwiazdka na koďż˝cu wyraďż˝enia - akceptujemy
wszystko,jak
// leci.
result:=true;
exit
end;

// Teraz PMask znajduje siďż˝ na pierwszym znaku za
gwiazdkďż˝.
while (PS^<>#0) do
begin
// Teraz mamy dwie moďż˝liwoďż˝ci.

// 1. PMask nie jest wildcardem i nie pasuje do
ciďż˝gu
// na tej pozycji. W tej sytuacji inkrementujemy
ciďż˝g.
// Potocznie: "gwiazdka zjada ten znak".
if not(PMask^ in ['?','*']) and (PMask^<>PS^) then
begin
inc(PS);
if PS^=#0 then
begin
// Osiďż˝gnďż˝liďż˝my koniec ciďż˝gu znakďż˝w, ale nie
// udaďż˝o siďż˝ znaleďż˝ďż˝ pasujďż˝cego znaku, czyli
// ciďż˝g nie pasuje do wzorca.
result:=false;
exit
end;
end else

// 2. PMask pasuje do ciďż˝gu na tej pozycji lub
// jest wildcardem. Wtedy jeďż˝li rekurencyjne
wywoďż˝anie
// zwrďż˝ci true - koďż˝czymy dziaďż˝anie z rezultatem
true.
// W przeciwnym wypadku inkrementujemy ciďż˝g.
begin
if InternalStringMatchesMask(PS, PMask) then
begin
result:=true;
exit
end else
begin
inc(PS);
if PS^=#0 then
begin
// Analogicznie, jak powyďż˝ej
result:=false;
exit
end;
end;
end;
end;

// Jeďż˝eli do tego miejsca nie udaďż˝o siďż˝ znaleďż˝ďż˝ pasujďż˝cej
// czďż˝ci wzorca, oznacza to, ďż˝e ciďż˝g nie pasuje do
wzorca.
result:=false;
exit
end;
else begin
// Na koniec najprostsze: badany znak maski nie jest
// wildcardem. Jeďż˝li pasuje do ciďż˝gu, to inkrementujemy
oba
if PMask^=PS^ then
begin
inc(PMask);
inc(PS);
end else

// Jeďż˝li nie, oznacza to, ďż˝e ciďż˝g nie pasuje do maski.
begin
result:=false;
exit
end;
end;
end;
end;

// Maska skoďż˝czyďż˝a siďż˝. Jeďż˝li ciďż˝g znakďż˝w rďż˝wnieďż˝ - oznacza to, ďż˝e pasuje
// do niej.
if PS^=#0 then
result:=true else
result:=false;
end;

begin
if CaseSensitive then
result:=InternalStringMatchesMask(PChar(s), PChar(mask)) else
result:=InternalStringMatchesMask(PChar(UpperCase(s)),
PChar(UpperCase(mask)));
end;

dziobu

unread,

Oct 27, 2009, 2:57:15 PM10/27/09

to

Dnia 10/27/2009 7:41 PM, Uďż˝ytkownik Borneq napisaďż˝:
(...)

>
> Bďż˝ďż˝d Windows, czy teďż˝ dziaďż˝anie niezgodne z oczekiwanym

No i wďż˝asnie chciaďż˝bym uzgodniďż˝ czy to bďż˝ďż˝d systemowy czy teďż˝ ja o czymďż˝
nie wiem.

> Moďż˝na filtrowaďż˝ samemu uďż˝ywajďż˝c funkcji ktďż˝rďż˝ kiedyďż˝ na tej grupie podaďż˝
> Wojciech Spook Sura:
>
> function StringMatchesMask(S, mask: string; CaseSensitive:
> Boolean = false): Boolean;

Takďż˝ funkcje mam, tylko chciaďż˝em jej nie uďż˝ywaďż˝.

--
Pozdrawiam
dziobu
xyzyk.pl

dziobu

unread,

Oct 27, 2009, 3:00:25 PM10/27/09

to

Dnia 10/27/2009 7:35 PM, Uďż˝ytkownik RyAn napisaďż˝:
>
> Czytaj help files. Zainteresuj siďż˝ tym
> dwFileAttributes WIN32_FIND_DATA

A moďż˝na coďż˝ wiďż˝cej?
Bo tam nie ma nic przydatnego.

--
Pozdrawiam
dziobu
xyzyk.pl

RyAn

unread,

Oct 27, 2009, 3:21:42 PM10/27/09

to

dziobu pisze:

> Dnia 10/27/2009 7:35 PM, Użytkownik RyAn napisał:
>>
>> Czytaj help files. Zainteresuj się tym
>> dwFileAttributes WIN32_FIND_DATA
>

> A można coś więcej?

> Bo tam nie ma nic przydatnego.
>

Jak to nie ma nic przydatnego ?
A to ?

cFileName

A null-terminated string that is the name of the file. Tu masz pełną
długą nazwę

cAlternateFileName a tu masz w formacie 8.3

A null-terminated string that is an alternative name for the file. This
name is in the classic 8.3 (filename.ext) filename format.

--
pzdr
RyAn

dziobu

unread,

Oct 27, 2009, 3:34:24 PM10/27/09

to

Dnia 10/27/2009 8:21 PM, Uďż˝ytkownik RyAn napisaďż˝:

> Jak to nie ma nic przydatnego ?
> A to ?
>
> cFileName
>

> A null-terminated string that is the name of the file. Tu masz peďż˝nďż˝
> dďż˝ugďż˝ nazwďż˝

>
> cAlternateFileName a tu masz w formacie 8.3
>
> A null-terminated string that is an alternative name for the file. This
> name is in the classic 8.3 (filename.ext) filename format.

No i...?
Bo dalej nie wiem co mi to daje.

--
Pozdrawiam
dziobu
xyzyk.pl

marfi

unread,

Oct 27, 2009, 4:30:48 PM10/27/09

to

Uďż˝ytkownik "dziobu" <xxx...@xxxx.xx> napisaďż˝ w wiadomoďż˝ci

news:hc7i01$4g9$1...@news.onet.pl...

Nazwďż˝ pliku - potrafisz sprawdziďż˝ czy Ci odpowiada?

--
marfi

dziobu

unread,

Oct 27, 2009, 4:41:24 PM10/27/09

to

Dnia 10/27/2009 9:30 PM, Uďż˝ytkownik marfi napisaďż˝:

>>
> Nazwďż˝ pliku - potrafisz sprawdziďż˝ czy Ci odpowiada?

Napierw chciaďż˝bym wiedzieďż˝ z czego to wynika ďż˝e on mi w jednym
konkretnym przypadku zwraca tak a nie inaczej.

Oprďż˝cz tego ďż˝e lubie wiedzieďż˝ jak coďż˝ dziaďż˝a, to przy okazji chciaďż˝bym
poznaďż˝ ewentualne inne wady tego rozwiďż˝zania. Zanim znowu spďż˝dze u
klienta pďż˝ dnia szukajďż˝c fajnego bďż˝ďż˝du.

--
Pozdrawiam
dziobu
xyzyk.pl

marfi

unread,

Oct 27, 2009, 5:02:01 PM10/27/09

to

Uďż˝ytkownik "dziobu" <xxx...@xxxx.xx> napisaďż˝ w wiadomoďż˝ci

news:hc7ltl$grr$1...@news.onet.pl...

> Dnia 10/27/2009 9:30 PM, Uďż˝ytkownik marfi napisaďż˝:
>>>
>> Nazwďż˝ pliku - potrafisz sprawdziďż˝ czy Ci odpowiada?
>
> Napierw chciaďż˝bym wiedzieďż˝ z czego to wynika ďż˝e on mi w jednym konkretnym
> przypadku zwraca tak a nie inaczej.
>

Zapewne z powodu braku testerďż˝w w MS lub ich maďż˝ej wyobraďż˝ni... Zgďż˝oďż˝ bďż˝ďż˝d
to za kilkanaďż˝cie lat poprawiďż˝ :)

--
marfi

dziobu

unread,

Oct 27, 2009, 5:14:09 PM10/27/09

to

Dnia 10/27/2009 10:02 PM, Uďż˝ytkownik marfi napisaďż˝:

>>
> Zapewne z powodu braku testerďż˝w w MS lub ich maďż˝ej wyobraďż˝ni... Zgďż˝oďż˝ bďż˝ďż˝d
> to za kilkanaďż˝cie lat poprawiďż˝ :)

No wďż˝aďż˝nie. Posprawdzaďż˝em tu i ďż˝wdzie i wychodzi faktycznie na to ďż˝e to
systemowy bďż˝ďż˝d. Na XP, Viďż˝cie i testowym W7.

Powiem w skrďż˝cie - ale SZIT.
Dzieďż˝ w plecy. Nawet nie ma kogo opierdoliďż˝.

Jak sie tak gďż˝ďż˝biej zastanowiďż˝ to w niektďż˝rych przypadkach moďż˝e to
stanowiďż˝ nawet luke w bezpieczeďż˝stwie systemu...

--
Pozdrawiam
dziobu
xyzyk.pl

Arivald

unread,

Oct 28, 2009, 2:18:56 AM10/28/09

to

dziobu pisze:
> Dnia 10/27/2009 10:02 PM, Użytkownik marfi napisał:
>>>
>> Zapewne z powodu braku testerów w MS lub ich małej wyobraźni...
>> Zgłoś błąd to za kilkanaście lat poprawią :)
>
> No właśnie. Posprawdzałem tu i ówdzie i wychodzi faktycznie na to że to
> systemowy błąd. Na XP, Viście i testowym W7.
>
> Powiem w skrócie - ale SZIT.
> Dzień w plecy. Nawet nie ma kogo opierdolić.
>
> Jak sie tak głębiej zastanowić to w niektórych przypadkach może to
> stanowić nawet luke w bezpieczeństwie systemu...
>

Podejrzewam raczej że nie jest to błąd ale "feature".
Może być to związane z potrzebą zapewnienia kompatybilności z krótkim
formatem nazw (8.3). System jak skraca nazwę, to z długiego rozszerzenia
robi 3-znakowe. W Twoim przypadku, jak system dostaje nazwę *.txt to
może założyć że jest to nazwa skrócona, i dlatego wyszukuje wszystkie
długie nazwy które po skróceniu pasowały by do wzorca. W przypadku jeśli
użyjesz nazwy z 2 lub 4 znakowym rozszerzeniem, to system ma pewność że
żadna skrócona nazwa by nie pasowała.

--

dziobu

unread,

Oct 28, 2009, 3:58:49 AM10/28/09

to

Dnia 10/28/2009 7:18 AM, Uďż˝ytkownik Arivald napisaďż˝:
>
> Podejrzewam raczej ďż˝e nie jest to bďż˝ďż˝d ale "feature".
> Moďż˝e byďż˝ to zwiďż˝zane z potrzebďż˝ zapewnienia kompatybilnoďż˝ci z krďż˝tkim
> formatem nazw (8.3).
(...)

Teďż˝ o tym myďż˝laďż˝em. Tylko jak sie tak gďż˝ďż˝biej zastanowiďż˝ - to nie ma
sensu. Windows od zawsze (<=3.11 pomijam) pozwalaďż˝ na dďż˝ugie nazwy
plikďż˝w. I dďż˝ugie rozszerzenia takďż˝e. Wiďż˝c jakoďż˝ nie widze tu miejsca na
takďż˝ "kompatybilnoďż˝ďż˝" bo nie wiem komu to miaďż˝o by sďż˝uďż˝yďż˝. Jeďż˝li juďż˝, to
powinno to mieďż˝ zupeďż˝nie osobnďż˝ funkcje operujďż˝cďż˝ na formacie 8.3,
nazywanym tu i tam AlternativeFileName. Ale tego w msdn'ie nie znalazďż˝em.

http://xyzyk.pl/inne/bug.jpg
:)

--
Pozdrawiam
dziobu
xyzyk.pl

Arivald

unread,

Oct 28, 2009, 4:36:06 AM10/28/09

to

dziobu pisze:

> Dnia 10/28/2009 7:18 AM, Użytkownik Arivald napisał:
>>
>> Podejrzewam raczej że nie jest to błąd ale "feature".
>> Może być to związane z potrzebą zapewnienia kompatybilności z krótkim
>> formatem nazw (8.3).

> (...)
>
> Też o tym myślałem. Tylko jak sie tak głębiej zastanowić - to nie ma
> sensu. Windows od zawsze (<=3.11 pomijam) pozwalał na długie nazwy
> plików. I długie rozszerzenia także. Więc jakoś nie widze tu miejsca na
> taką "kompatybilność" bo nie wiem komu to miało by służyć. Jeśli już, to
> powinno to mieć zupełnie osobną funkcje operującą na formacie 8.3,
> nazywanym tu i tam AlternativeFileName. Ale tego w msdn'ie nie znalazłem.
>

Eh, młodzież... Myśli że Windows miał długie nazwy "od zawsze" ;-)

Właśnie chodzi o to że sporo API windows pochodzi z czasów Win3 i nazw
8.3 . A MS stara się zawsze zachować kompatybilność, o ile się da.
Podejrzewam że kod realizujący FindFirstFile() pochodzi jeszcze z Win95,
który pierwszy miał długie nazwy... I skoro Ciągle działa zgodnie z
założeniami to nikt go nie próbował poprawić.

Widać nie musiałeś nigdy wprowadzać poprawek do już istniejącego,
starego systemu... gdzie sporo kodu służy tylko do obchodzenia już
naprawianych błędów w systemie czy bibliotekach ;-)

--
Arivald

dziobu

unread,

Oct 28, 2009, 4:51:59 AM10/28/09

to

Dnia 10/28/2009 9:36 AM, Uďż˝ytkownik Arivald napisaďż˝:
>
> Eh, mďż˝odzieďż˝... Myďż˝li ďż˝e Windows miaďż˝ dďż˝ugie nazwy "od zawsze" ;-)

Z tego mi sie podoba to "myďż˝li". nareszcie ktoďż˝ to zauwazyďż˝ ;p

> Wďż˝aďż˝nie chodzi o to ďż˝e sporo API windows pochodzi z czasďż˝w Win3 i nazw
> 8.3 . A MS stara siďż˝ zawsze zachowaďż˝ kompatybilnoďż˝ďż˝, o ile siďż˝ da.

To doďż˝c wybiďż˝rczo to robiďż˝.

> Podejrzewam ďż˝e kod realizujďż˝cy FindFirstFile() pochodzi jeszcze z Win95,
> ktďż˝ry pierwszy miaďż˝ dďż˝ugie nazwy... I skoro Ciďż˝gle dziaďż˝a zgodnie z
> zaďż˝oďż˝eniami to nikt go nie prďż˝bowaďż˝ poprawiďż˝.

Szkoda tylko ďż˝e nigdzie nie ma tych zaďż˝oďż˝eďż˝.

> Widaďż˝ nie musiaďż˝eďż˝ nigdy wprowadzaďż˝ poprawek do juďż˝ istniejďż˝cego,
> starego systemu... gdzie sporo kodu sďż˝uďż˝y tylko do obchodzenia juďż˝
> naprawianych bďż˝ďż˝dďż˝w w systemie czy bibliotekach ;-)

Na PC dopiero wchodze w taki etap ;)

--
Pozdrawiam
dziobu
xyzyk.pl

dziobu

unread,

Oct 28, 2009, 4:53:57 AM10/28/09

to

No nic. Czyli ten typ tak ma. Szkoda.
Poprawie sobie funkcje w biliotekach i bďż˝dzie OK.

Dzieki za pomoc.

--
Pozdrawiam
dziobu
xyzyk.pl