File extension is in extensions list: Difference between revisions
no edit summary
MaiconSoft (talk | contribs) (Added Delphi example) |
No edit summary |
||
Line 1,306:
MyData_v1.0.tar.bz2: true
MyData_v1.0.bz2: false</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>ClearAll[CheckExtension]
CheckExtension[fn_String, e : {_String ..}] := StringMatchQ[ToLowerCase[FileExtension[fn]], Alternatives @@ ToLowerCase[e]]
exts = {"zip", "rar", "7z", "gz", "archive", "A##"};
CheckExtension["MyData.a##", exts]
CheckExtension["MyData.tar.gz", exts]
CheckExtension["MyData.gzip", exts]
CheckExtension["MyData.7z.backup", exts]
CheckExtension["MyData..", exts]
CheckExtension["MyData", exts]</lang>
{{out}}
<pre>True
True
False
False
False
False</pre>
=={{header|Nim}}==
| |||