Comunidad Gambas-es

Versión completa: Extendiendo la clase String - Title
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
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.