Rosetta Code

Extract file extension: Difference between revisions

Page Discussion

Extract file extension (view source)

Revision as of 11:54, 10 December 2016

17 bytes added ,  7 years ago
Updated according to the task.
(Updated according to the task.)
Line 1,217:
 
=={{header|VBScript}}==
<lang vb>Function fileExt(fname)
set Set fso = CreateObject("Scripting.FileSystemObject")▼
Dim str, ret
 
str = fso.GetExtensionName(fname)
{{update|VBScript|The format of a suffix has been clarified, and the test-cases have been replaced with new ones.}}
If str = "" Or InStr(str,"_") <> 0 Then
ret = ""
Else
ret = "." & str
End If
 
fileExt = ret
<lang vb>
End Function
▲set fso = CreateObject("Scripting.FileSystemObject")
 
arr_t = Array("picture.jpg", _
arr_t = Array("http://mywebsiteexample.com/picture/imagedownload.tar.pnggz", _
"myuniquefileCharacterModel.longextension3DS", _
"IAmAFileWithoutExtension.desktop", _
"/path/to.my/filedocument", _
"filedocument.odd_onetxt_backup"), _
"/etc/pam.d/login")
 
forFor eachEach name inIn arr_t
Wscript.Echo "NAME:",name
Wscript.Echo " EXT:","<" & fso.GetExtensionNamefileExt(name) & ">"
Next</lang>
</lang>
 
{{Out}}
<pre>NAME: http://example.com/download.tar.gz
<pre>
EXT: <jpg.gz>▼
NAME: picture.jpg
NAME: CharacterModel.3DS
▲ EXT: <jpg>
EXT: <png.3DS>▼
NAME: http://mywebsite.com/picture/image.png
NAME: .desktop
▲ EXT: <png>
EXT: <.desktop>
NAME: myuniquefile.longextension
NAME: document
EXT: <longextension>
NAME: IAmAFileWithoutExtension
EXT: <>
NAME: /path/todocument.my/filetxt_backup
EXT: <>
NAME: file/etc/pam.odd_oned/login
EXT: <odd_one></pre>
</pre>
 
=={{header|zkl}}==
Simple9371
535

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/257519"