ReplaceAllAllAll?

Brian_O_Brien · January 22, 2019, 5:18am

I’m having trouble getting rid of ‘repeating’ characters like spaces in a line…

dim s as string = "three spaces two spaces one space" s = s.ReplaceAll(" ", " ")

Ok… I know I’m pushing my luck but the above code replaces two spaces with one space.
If there are three spaces I want it replaced by 1 space… So I thought replacing two spaces with one would always do the trick… but it don’t.

Kem_Tekinay · January 22, 2019, 5:24am

dim rxSqueezeSpaces as new RegEx
rxSqueezeSpaces.SearchPattern = "\\x20{2,}"
rxSqueezeSpaces.ReplacementPattern = " " // Space
rxSqueezeSpaces.Options.ReplaceAllMatches = true

s = rxSqueezeSpaces.Replace( s )

My M_String module and StringUtils also have pretty fast Squeeze functions. (I think I lifted the one in StringUtils, IIRC.)

Tim_Jones · January 22, 2019, 5:30am

While InStrB(s, " ") s = s.ReplaceAllB(" ", " ") Wend

Markus_Winter · January 22, 2019, 8:58am

[quote=422079:@Kem Tekinay]rxSqueezeSpaces.SearchPattern = "\\x20{2,}"
[/quote]

Can someone explain that SearchPattern to me???

Sascha_S · January 22, 2019, 9:10am

SPACE (Whitespace?)

2 times or more

Markus_Winter · January 22, 2019, 9:12am

Found it:

\xnn Replaced with the character represented by nn in Hex, e.g., is .

Though that example in the language reference seems wrong

Kem_Tekinay · January 22, 2019, 1:08pm

I prefer that form rather than just using the invisible space.