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



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

Esta función esta interesante porque permite lograr una lista de "Campos" a partir de una cadena de texto separada por espacios o tabuladores.
GAMBAS
  1. '' <b>RAD Extension.</b><br>
  2. '' Fields splits the string s around each instance of one or more consecutive white space characters returning a string[] of substrings of s or an empty string[] if s contains only white space.
  3. '' GO Package strings
  4.  
  5.   Dim sTmp As String
  6.   Dim word As String
  7.   Dim aOut As New String[]
  8.  
  9.   While InStr(sTmp, "\t")
  10.     sTmp = Replace(sTmp, "\t", " ")
  11.   Wend
  12.  
  13.   sTmp = Trim(RTrim(s))
  14.  
  15.   While InStr(sTmp, "  ")
  16.     sTmp = Replace(sTmp, "  ", " ")
  17.   Wend
  18.  
  19.   For Each word In Split(sTmp, " ")
  20.     aOut.Add(word)
  21.   Next
  22.  
  23.   Return aOut
  24.  


Saludos.