Anonymous user
Extract file extension: Difference between revisions
→{{header|Tcl}}
Line 911:
assert {[file ext $file] eq $ext}
}</lang>
=={{header|VBScript}}==
<lang vb>
Function GetExtension(s)
If InStr(s,"/") Then
arr_s = Split(s,"/")
fname = arr_s(UBound(arr_s))
ElseIf InStr(s,"\") Then
arr_s = Split(s,"\")
fname = arr_s(UBound(arr_s))
Else
fname = s
End If
GetExtension = "''"
If InStr(fname,".") Then
arr_x = Split(fname,".")
If InStr(1,arr_x(UBound(arr_x)),"_") = 0 Then
GetExtension = "." & arr_x(UBound(arr_x))
End If
End If
End Function
'Testing the function
arr_t = Array("picture.jpg","http://mywebsite.com/picture/image.png",_
"myuniquefile.longextension","IAmAFileWithoutExtension",_
"/path/to.my/file","file.odd_one")
For i = 0 To UBound(arr_t)
WScript.StdOut.WriteLine arr_t(i) & " -> " & GetExtension(arr_t(i))
Next
</lang>
{{Out}}
<pre>
picture.jpg -> .jpg
http://mywebsite.com/picture/image.png -> .png
myuniquefile.longextension -> .longextension
IAmAFileWithoutExtension -> ''
/path/to.my/file -> ''
file.odd_one -> ''
</pre>
=={{header|zkl}}==
| |||