Re: RegExp.Replace

[Gianluigi <gradobag@xxxxxxxxxxx>]

If you're sure of that, then I'm in worse shape than I thought. LOL

Best Regards
Gianluigi

Il 02/12/25 10:51, Bruce Steers ha scritto:
> Use SPlit() with IgnorVoid parameter and Join again.
>
> InText = Split(InText, " \t", Null, True).Join(" ")
>
> This answer was provided by GianLuigi many moons ago as the fastest way 
> to make a multi spaced line have only 1 space between chars.
> Ps. i use \t in the Split to catch tab spaces too.
>
> Respects
> BruceS
>
>
> On Tue, 2 Dec 2025 at 09:19, Ian Roper <westozscribe@xxxxxxxxx 
> <mailto:westozscribe@xxxxxxxxx>> wrote:
>
>     __
>
>     Public Function ClearDuplicateSpaces(InText As String) As String
>
>        While (InStr(InText, "  ") > 0)
>          InText = Replace(InText, "  ", " ")
>        Wend
>        Return InText
>
>     End
>
>
>     On 2/12/25 3:13 pm, CD wrote:
> >     Hello,
> >
> >     I have a string like this:
> >
> >     Dim s As String = "A     B    C D   E"
> >
> >     s = RegExp.Replace(s, "\\s+", " ")
> >
> >     Print s
> >
> >     I would like to get "A B C D E"
> >
> >     What should I write in the Pattern string?
> >     I've tried many things, without success.
> >     So what should I change to get the desired result?
> >
> >     Regards