Logo

Programming-Idioms

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

Idiom #168 Trim suffix

Create string t consisting of string s with its suffix w removed (if s ends with w).

  i = index(s,w,back=.true.) - 1
  if (i == len(s) - len(w) ) then
     allocate (t, source=s(:i))
  else
     allocate (t, source=s)
  end if

This assumes that t is unallocated before.
using System;
string t = s.TrimEnd(w);
New implementation...
< > ⌨
programming-idioms.org 
  i = index(s,w,back=.true.) - 1
  if (i == len(s) - len(w) ) then
     allocate (t, source=s(:i))
  else
     allocate (t, source=s)
  end if
string t = s.TrimEnd(w);
string t = s.chomp(w);
t := strings.TrimSuffix(s, w)
t :: String
t = if w `isSuffixOf` s then take (length s - length w) else s
const t = s.endsWith(w) ? s.slice(0, -w.length) : s
String t = s.replaceAll(quote(w) + '$', "");
int i = s.lastIndexOf(w),
    m = s.length(), n = w.length();
t = i == m - n ? s.substring(0, i) : s;
String t = s;
int index = s.lastIndexOf(w);
if (index + w.length() == s.length()) {
    t = s.substring(0, index);
}
local t = s:gsub(w.."$", "")
preg_replace("/{$w}$/u", '', $s);
if AnsiEndsStr(w, s) then
  t := copy(s, 1, length(s) - length(w))
else
  t :=s;
if (length $s == rindex($s, $w) + length $w) {
    my $t = substr $s, 0, rindex $s, $w;
}
t = s.removesuffix(w)
t = s.sub(/#{w}\z/, "")
t = s.delete_suffix(w)
let t = s.strip_suffix(w).unwrap_or(s);
let t = s.trim_end_matches(w);