[Gambas-user] trimming extra spaces from within a string.
olivier.cruilles at yahoo.fr
Tue Nov 10 16:47:32 CET 2020
Just a question, why not just use SPLIT function to split all the text and next reassemble it by a JOIN
Public Sub TrimText(sText As String)
Dim aText As String
atext = Split(sText, " ", Chr(140), True)
Print atext.Join(" ")
Too simple maybe
> Le 10 nov. 2020 à 06:45, Rolf-Werner Eilert <rwe-sse at osnanet.de> a écrit :
> Am 10.11.20 um 12:28 schrieb Christof Thalhofer:
>> Am 10.11.20 um 11:56 schrieb Rolf-Werner Eilert:
>>> Your race was a bit about speed. Using Replace() over and over might be
>>> the drawback here, as it will certainly use a loop internally doing more
>>> or less the same as my function does. The same applies to regex, and
>>> even heavier.
>>> But I agree, the other solutions are more elegant than mine :)
>> Currently Brian G holds the price for max speed.
>> And yours needs about 1600 ms for one single(!) run* of the bobiba.txt
>> on my computer. I think it's one of the slowest. ;-)
>> The other ones run the text 500 times in about 2.5 seconds. Your code
>> would need about 13 minutes for the same task.
> Wow that's impressive. What is the reason? I would guess that compiled C-code is always faster than interpreted code, even if the function is more complex.
>> Alles Gute
> Dir auch :)
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
-------------- next part --------------
An HTML attachment was scrubbed...
More information about the User