Extract file extension: Difference between revisions
→{{header|Oforth}}
m (→{{header|sed}}) |
|||
Line 213:
│.jpg│.png│.longextension││││
└────┴────┴──────────────┴┴┴┘</lang>
=={{header|Oforth}}==
If extension is not valid, returns null, not "".
Easy to change if "" is required.
<lang Oforth>: fileExt(s)
{
| i |
s lastIndexOf('.') dup ->i ifNull: [ null return ]
s extract(i 1 +, s size) conform(#isAlpha) ifFalse: [ null return ]
s extract(i, s size)
} </lang>
{{out}}
<pre>
fileExt("picture.jpg") println
fileExt("http://mywebsite.com/picture/image.png") println
fileExt("myuniquefile.longextension") println
fileExt("IAmAFileWithoutExtension") println
fileExt("/path/to.my/file") println
fileExt("file.odd_one") println
</pre>
=={{header|Racket}}==
| |||