Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
uses RegExpr;
var
  s,t: string;
begin
  t := ReplaceRegExpr('[^\u0000-\u007F]+', s, '', False);
end.
var
  i: integer;
begin
  t := '';
  for i := 1 to length(s) do
    if s[i] < #128 then t := t + s[i];
end.
function Only_ASCII (S : String) return String is
   subtype ASCII is Character range
      Character'Val (0) .. Character'Val (127);
   T    : String (S'Range);
   Last : Natural := T'First - 1;
begin
   for Char of S loop
      if Char in ASCII then
         Last := Last + 1;
         T (Last) := Char;
      end if;
   end loop;
   return T (T'First .. Last);
end Only_ASCII;
(def s "098$&π2ru09fj😄")

(def t (clojure.string/replace s #"[^\x00-\x7F]" ""))
 copy_if(begin(src), end(src), back_inserter(dest),
         [](const auto c) { return static_cast<unsigned char>(c) <= 0x7F; });
string t = Regex.Replace(s, @"[^\u0000-\u007F]+", string.Empty);
import std.array;
import std.algorithm.iteration;
import std.ascii;
auto t = s.filter!(a => a.isASCII).array;
var t = '';
for(var c in s.runes) {
  if(c < 128){
    t = t + String.fromCharCode(c);
  }
}
t = 
  s 
  |> String.to_charlist()
  |> Enum.filter(&(&1 in 0..127))
  |> List.to_string
t = for <<c <- s>>, c in 0..127, into: "", do: <<c>>
n = 0
do i=1,len(s)
   if (iachar(s(i:i)) <= 127) n = n + 1
end do
allocate (character(len=n) :: t)
j = 0
do i=1,len(s)
   if (iachar(s(i:i)) <= 127) then
      j = j + 1
      t(j:j) = s(i:i)
   end if
end do
import (
	"fmt"
	"strings"
	"unicode"
)
t := strings.Map(func(r rune) rune {
	if r > unicode.MaxASCII {
		return -1
	}
	return r
}, s)
import "regexp"
re := regexp.MustCompile("[[:^ascii:]]")
t := re.ReplaceAllLiteralString(s, "")
import Data.Char
t = filter isAscii s
import Data.Char
f = filter isAscii
t = f s
const t = [...s].filter(c => c.charCodeAt(0) <= 0x7f).join('')
const t = s.replace(/[^\x00-\x7f]/gu, '')
String t = s.replaceAll("[^\\x00-\\x7F]", "");
(remove-if-not (lambda (i) (<= 0 i 127))
               s
               :key #'char-code)
$t = preg_replace('/[^[:ascii:]]/', '', $s);
($t = $s) =~ s/[^\x00-\x7f]+//g;
use utf8;
use Encode qw( encode decode );
$t = decode('ascii', encode('ascii', $s, sub { return '' } ) );
t = s.encode("ascii", "ignore").decode()
import re
t = re.sub('[^\u0000-\u007f]', '',  s)
t = s.gsub(/[[:^ascii:]]/, "")
t = s.gsub(/[^[:ascii:]]/, "")
let t = s.chars().filter(|c| c.is_ascii()).collect::<String>();
let t = s.replace(|c: char| !c.is_ascii(), "");
t := s select: [:character | character isAscii].

New implementation...
programming-idioms.org