Help: with removing multiple spaces.

[skirmis]

Hello,

Can someone help with this, I need to remove multiple spaces from string. For example I have "hello I am bot". I need to get this format "hello I am bot". How can I replace two or more spaces into one ?

Thanks for advices.
SkIRmiS

[ppslim]

The forum, will not display spaces correctly, unless you place them in a "CODE" block.

However, this should remove the spaces.

Code: Select all

proc remspaces {string} {
  set a [list]
  foreach b [split $string] {
    if {$b == ""} { continue }
    lappend a $b
  }
  return [join $b]
}

Use like code

Code: Select all

set mytext "hello  with      multiple spaces"
set mytext [remspaces $mytext]

[skirmis]

Hi,
Something is wrong here, because I got only the last word of string.

-----------------------------------
proc remspaces {string} {
set a

• foreach b [split $string] {
  if {$b == ""} { continue }
  lappend a $b
  }
  return [join $b]
  }
  
  set dat ""
  set dat "here is a test"
  set dat [remspaces $dat]
  
  putnotc $nick $dat
  
  -----------------------------------
  
  And result is : test
  
  Thanks in advice
  [/code]

[ppslim]

My fault.

In that code, change the "return [join $b]" to "return [join $a]"

[strikelight]

I myself would just use something like:

Code: Select all

regsub -all {  [^ ]*} $text "" text

[ppslim]

I hate regular expressions.

I fully well understand there power, but I simply can't understand how to create/format them properly.

Most of the reasons why I do things a slightly hard, yet still simple way.

[skirmis]

Thanks to all who helped me everything is working fine now !

Bye
SkIRmiS