Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Pascal

Idiom #151 Remove string trailing path separator

Remove last character from string p, if this character is the file path separator of current platform.

Note that this also transforms unix root path "/" into the empty string!

uses LazFileUtils;
begin
  p := ChompPathDelim(p);
end.

This one will leave unix root "/" untouched and likewise "\" on Windows and WinCE.
uses SysUtils;
begin
  p := ExcludeTrailingPathDelimiter(p);
end.
using System.IO;
p.TrimEnd(Path.DirectorySeparatorChar);
New implementation...
< > ⌨
programming-idioms.org 
begin
  p := ChompPathDelim(p);
end.
begin
  p := ExcludeTrailingPathDelimiter(p);
end.
p.TrimEnd(Path.DirectorySeparatorChar);

p = p.chomp(dirSeparator);
if (p.endsWith(path.separator)) p = p.substring(0, p.length - 1);
sep := fmt.Sprintf("%c", filepath.Separator)
p = strings.TrimSuffix(p, sep)
sep := fmt.Sprintf("%c", os.PathSeparator)
p = strings.TrimSuffix(p, sep)
p' = dropWhileEnd (== pathSeparator) p
p = p.endsWith(path.sep) ? p.slice(0, -path.sep.length) : p
int n = p.length() - 1;
while (n != 0 && p.charAt(n) == separatorChar)
    p = p.substring(0, n--);
if string.sub(p, -1, -1) == "/" then
	p=string.sub(p, 1, -2)
end
chomp $p, File::Spec->catdir('');
if p.endswith(os.sep):
    p = p[:-1]
p.chomp!("/")
p = p.strip_suffix(std::path::is_separator).unwrap_or(p);
let p = if ::std::path::is_separator(p.chars().last().unwrap()) {
    &p[0..p.len()-1]
} else {
    p
};