Extract file extension: Difference between revisions
m
→{{header|EasyLang}}
(Added Easylang) |
|||
Line 932:
=={{header|EasyLang}}==
<syntaxhighlight>
func isalphanum c$ .
c = strcode c$
.
func$ exext path$ .
for i = len path$ downto 1
c$ = substr path$ i 1
▲ if c >= 65 and c <= 90 or c >= 97 and c <= 122 or c >= 48 and c <= 57
ex$ = c$ & ex$
elif c$ = "."
Line 948 ⟶ 951:
print s$ & " -> " & exext s$
.
</syntaxhighlight>
=={{header|Emacs Lisp}}==
| |||