Logo

Programming-Idioms

# 219 Replace multiple spaces with single space
Create the string t from the value of string s with each sequence of spaces replaced by a single space.

Explain if only the space characters will be replaced, or the other whitespaces as well: tabs, newlines.
New implementation

Be concise.

Be useful.

All contributions dictatorially edited by webmasters to match personal tastes.

Please do not paste any copyright violating material.

Please try to avoid dependencies to third-party libraries and frameworks.

Other implementations 
(def t (clojure.string/replace s #"\s+" " "))
using System.Text.RegularExpressions;
string t = Regex.Replace(s, " +", " ");
using System.Text.RegularExpressions;
string t = Regex.Replace(s, @"\s+", " ");
var t = s.replaceAll(RegExp(r"\s+"), " ");
singleSpace(Text) ->
        singleSpace(0, Text).

singleSpace(_, []) -> [];
singleSpace(32, [32 | Rest]) ->
        singleSpace(32, Rest);
singleSpace(32, [Ch | Rest]) ->
        [Ch] ++ singleSpace(Ch,  Rest);
singleSpace(Last, [Ch | Rest]) ->
                [Ch] ++ singleSpace(Ch, Rest).


%%singleSpace("this is  a      text  with        multiple spaces").
import "regexp"
whitespaces := regexp.MustCompile(`\s+`)
t := whitespaces.ReplaceAllString(s, " ")
def t = s.replaceAll(/\s+/, ' ')
t= unwords $ words s
let t = s.replace(/\s+/g, ' ');
String t = s.replaceAll("\\s+", " ");
String t = s.replaceAll(" +", " ");
(defun words (str)
  (if (equalp str "") nil 
      (let ((p (position #\Space str )))
    (cond ((null p) (list str))
          ((zerop p ) (words (subseq str 1)))
          (T (cons (subseq str 0 p) (words (subseq str (+ 1 p ))))))))) 

(setf s " aa  bbb  cc1 ")

 (let ((ws (words s )))
   (setf t (car ws))
   (dolist (w (cdr ws ))
     (setf t (concatenate 'string t " " w ))))
 (print t)
 
local t = s:gsub("%s+", " ")
$t = $s;
do $t = str_replace('  ', ' ', $t, $count); while($count);
$t = preg_replace('/\s+/', ' ', $s);
regexpr
  t := ReplaceRegExpr('\s+',s,' ',False);
uses sysutils;
  t := s;
  while Pos('  ',t) > 0 do
    t := StringReplace(t, '  ', ' ', [rfReplaceAll]);

var
  i, j: integer;
  t,s: string;
const
  whitespace = [#32,#13,#10,#9];
begin
  ....
  t := '';
  j := 0;
  setlength(t, length(s));
  for i := 1 to length(s) do
    if not ((s[i] in whitespace) and 
            ((i < length(s)) and (s[i+1] in whitespace))) then
    begin
      inc(j);
      t[j] := s[i];
    end;
  setlength(t,j);
end.
my $t = $s;
$t =~ s/\s+/ /g;
my $t = $s;
$t =~ s/ +/ /g;
import re
t = re.sub(' +', ' ', s)
t: str = " ".join(s.split())
t = s.squeeze(" ")
use regex::Regex;
let re = Regex::new(r"\s+").unwrap();
let t = re.replace_all(s, " ");
Imports System.Text.RegularExpressions
Dim t As String = Regex.Replace(s, "\s+", " ")
Imports System.Text.RegularExpressions
Dim t As String = Regex.Replace(s, " +", " ")

Preview