Comunidad Gambas-es
Extendiendo la clase String - Trim - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forumdisplay.php?fid=3)
+--- Foro: Controles/Librerías/Componentes (https://gambas-es.org/forumdisplay.php?fid=7)
+--- Tema: Extendiendo la clase String - Trim (/showthread.php?tid=342)



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).
GAMBAS
  1. '' <b>RAD Extension.</b><br>
  2. '' It removes the spaces at the beginning and the end of
  3. '' a <b>s</b> and if there are repeated spaces, it converts them into one.
  4.  
  5.  
  6.   Dim sOut As String
  7.  
  8.   sOut = Trim(RTrim(s))
  9.   While InStr(sOut, "  ")
  10.     sOut = Replace(sOut, "  ", " ")
  11.   Wend
  12.  
  13.   Return sOut
  14.  


Saludos.