+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Extendiendo la clase String - Trim (/thread-342.html)
Extendiendo la clase String - Trim - tincho - 15-04-2021
Esta la hizo Christof, de la lista internacional de Gambas, y yo la adapte.
Fue la que obtuvo la marca de velocidad mas alta (con FAST).
Código:
'' <b>RAD Extension.</b><br>
'' It removes the spaces at the beginning and the end of
'' a <b>s</b> and if there are repeated spaces, it converts them into one.
Static Public Function Trim(s As String) As String
Dim sOut As String
sOut = Trim(RTrim(s))
While InStr(sOut, " ")
sOut = Replace(sOut, " ", " ")
Wend
Return sOut
End