Anonymous user
Extract file extension: Difference between revisions
→{{header|TUSCRIPT}}
Line 1,253:
file.odd_one
thisismine
$$ MODE TUSCRIPT,{}
BUILD C_GROUP
DATA {&a}
DATA {\0}
BUILD S_TABLE legaltokens=*
DATA :.{1-00}{C:
LOOP
IF (extension=="") CYCLE
▲extension=STRINGS (test,legaltokens,0,0)
PRINT testcase, " has extension ", extension
ENDLOOP
</lang>
Output:
http://example.com/download.tar.gz has extension .gz
CharacterModel.3DS has extension .3DS▼
.desktop has extension .desktop
▲CharacterModel.3DS
picture.jpg has extension .jpg
http://mywebsite.com/picture/image.png has extension .png▼
myuniquefile.longextension has extension .longextension▼
</pre>
▲http://mywebsite.com/picture/image.png
▲myuniquefile.longextension
▲</pre>
=={{header|VBScript}}==
<lang vb>Function fileExt(fname)
|