{"id":115,"date":"2007-05-12T14:27:37","date_gmt":"2007-05-12T12:27:37","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/check-if-file-matches-wildcards\/"},"modified":"2007-05-12T14:27:39","modified_gmt":"2007-05-12T12:27:39","slug":"check-if-file-matches-wildcards","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/check-if-file-matches-wildcards\/","title":{"rendered":"Check if File matches Wildcards"},"content":{"rendered":"

Q:
\n> i would like to make a function that return if the file is in that
\nwildcards
\n>
\n> e.g.
\n> wildcards(‘c:\\*.txt’,’c:\\test.txt’) = true
\n> wildcards(‘*.c?g’,’123.cfg’) = true
\n> wildcards(‘c*.doc’,’doc.doc’) = false
\n>
\n> thanks
\n<\/em>
\n
\nA:
\n[code lang=”delphi”]type
\n PathStr = string[128]; { in Delphi 2\/3: = string }
\n NameStr = string[12]; { in Delphi 2\/3: = string }
\n ExtStr = string[3]; { in Delphi 2\/3: = string }<\/p>\n

{$V-} { in Delphi 2\/ 3 to switch off “strict var-strings” }<\/p>\n

function WildComp(FileWild,FileIs: PathStr): boolean;
\nvar
\n NameW,NameI: NameStr;
\n ExtW,ExtI: ExtStr;
\n c: byte;<\/p>\n

function WComp(var WildS,IstS: NameStr): boolean;
\n var
\n i, j, l, p : Byte;
\n begin
\n i := 1;
\n j := 1;
\n while (i<=length(WildS)) do\n begin\n if WildS[i]='*' then\n begin\n if i = length(WildS) then\n begin\n WComp := true;\n exit\n end\n else\n begin\n { we need to synchronize }\n l := i+1;\n while (l < length(WildS)) and (WildS[l+1] <> ‘*’) do
\n inc (l);
\n p := pos (copy (WildS, i+1, l-i), IstS);
\n if p > 0 then
\n begin
\n j := p-1;
\n end
\n else
\n begin
\n WComp := false;
\n exit;
\n end;
\n end;
\n end
\n else
\n if (WildS[i]<>‘?’) and ((length(IstS) < i)\n or (WildS[i]<>IstS[j])) then
\n begin
\n WComp := false;
\n exit
\n end;<\/p>\n

inc (i);
\n inc (j);
\n end;
\n WComp := (j > length(IstS));
\n end;<\/p>\n

begin
\n c:=pos(‘.’,FileWild);
\n if c=0 then
\n begin { automatically append .* }
\n NameW := FileWild;
\n ExtW := ‘*’;
\n end
\n else
\n begin
\n NameW := copy(FileWild,1,c-1);
\n ExtW := copy(FileWild,c+1,255);
\n end;<\/p>\n

c:=pos(‘.’,FileIs);
\n if c=0 then
\n c:=length(FileIs)+1;
\n NameI := copy(FileIs,1,c-1);
\n ExtI := copy(FileIs,c+1,255);
\n WildComp := WComp(NameW,NameI) and WComp(ExtW,ExtI);
\nend;<\/p>\n

begin
\n if WildComp(‘a*.bmp’, ‘auto.bmp’) then ShowMessage(‘OK 1’);
\n if not WildComp(‘a*x.bmp’, ‘auto.bmp’) then ShowMessage(‘OK 2’);
\n if WildComp(‘a*o.bmp’, ‘auto.bmp’) then ShowMessage(‘OK 3’);
\n if not WildComp(‘a*tu.bmp’,’auto.bmp’) then ShowMessage(‘OK 4’);
\nend.
\n[\/code]<\/p>\n

[tags]Delphi, File[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

Q: > i would like to make a function that return if the file is in that wildcards > > e.g. > wildcards(‘c:\\*.txt’,’c:\\test.txt’)…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,99],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-1R","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/115"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=115"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/115\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=115"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=115"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=115"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}