Comunidad Gambas-es
Extendiendo la clase String - Title - 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 - Title (/showthread.php?tid=341)



Extendiendo la clase String - Title - tincho - 15-04-2021

Esta hace lo mismo que la función de Go que se llama igual.
GAMBAS
  1. '' <b>RAD Extension.</b><br>
  2. '' Converts the first character of each word to upper case.
  3. '' GO Package strings
  4.  
  5.  
  6.   Dim sTmp As String
  7.   Dim word As String
  8.   Dim aOut As New String[]
  9.  
  10.   sTmp = Trim(RTrim(s))
  11.   While InStr(sTmp, "  ")
  12.     sTmp = Replace(sTmp, "  ", " ")
  13.   Wend
  14.  
  15.   For Each word In Split(sTmp, " ")
  16.     aOut.Add(Upper(Mid(word, 1, 1)) & Mid(Lower(word), 2))
  17.   Next
  18.  
  19.   Return aOut.Join(" ")
  20.  


Saludos.