Split

Matriz de Cadenas = Split ( Cadena AS String [ , Separadores AS String , Escape AS String ,  

Ignorar nulos AS Boolean ] )

Matriz de Cadenas = Split ( Cadena AS String [ , Separadores AS String , Escape AS String , 

IgnorarNulos AS Boolean , MantenerEscape AS Boolean ] )

Divide una cadena en subcadenas delimitadas por separadores y caracteres de escape.

• Cadena es la cadena a dividir.
• Separadores es la lista de caracteres separadores.
• Escape es un caracter de escape. Cualquier separador rodeado de dos caracteres de escape es ignorado en el proceso de división. Si Escape contiene dos caracteres, el primero se considera el caracter inicial de escape, y el segundo el final.
• Ignore nulos indica a Split() que no debe devolver elementos vacíos.

• MantenerEscape mantiene en las cadenas devueltas los caracteres de escape encontrados.

Esta función devuelve una matriz de cadenas rellenada con las subcadenas detectadas. Los separadores y caracteres de escape no se devuelven.
Esta función devuelve una matriz de cadenas rellenada con las subcadenas detectadas. Los separadores y caracteres de escape se devuelven o no de acuerdo al valor de MantenerEscape.
Por defecto, el caracter "coma" es el separador, y no hay caracteres de escape.

Si una cadena contiene caracteres de escape, entonces estos caracteres de escape deben ser duplicados.

Separador y caracteres de escape son solo un simple byte de caracteres ASCII. No puede utilizar esta función para separar cadenas que contengan caracteres no ASCII o alguna cadena determinada. Por ejemplo: Split(MiCadena, "\r\n") dividirá Micadena utilizando "\r" o "\n" como separadores, pero no "\r\n" en conjunto como si fuera una cadena separadora.

http://gambasdoc.org/help/lang/split?es&v3

' Gambas class file


Public Sub Form_Open()
Me.Center
End

Public Sub btnSplit1_Click()
    Dim CadenaX As String[]
    Dim color As String
     TextArea2.Text = File.Load("textoSplit1")
    TextArea1.Clear
    CadenaX = Split(btnSplit1.Text, ",")
    For Each Color In CadenaX
      TextArea1.Text = TextArea1.Text & Color & "\n"
      Wait 1
    Next
End

Public Sub btnSplit2_Click()
    Dim CadenaX As String[]
    Dim palabra As String
     TextArea2.Text = File.Load("textoSplit2")
    TextArea1.Clear
    CadenaX = Split(btnSplit2.Text, " ", "()")
    For Each palabra In CadenaX
      TextArea1.Text = TextArea1.Text & palabra & "\n"
      Wait 1
    Next
End

Public Sub btnSplit3_Click()
    Dim CadenaX As String[]
    Dim IPyPuerto As String
     TextArea2.Text = File.Load("textoSplit3")
    TextArea1.Clear
    CadenaX = Split(btnSplit3.Text, "Mesa")
    IPyPuerto = CadenaX[0]
    TextArea1.Text = TextArea1.Text & IPyPuerto & "\n"
End

Public Sub btnSplit4_Click()
   Dim CadenaX, CadenaZ As String[]
   Dim a, partesX As Integer
   Dim palabras, numerosX As String
    TextArea2.Text = File.Load("textoSplit4")
    TextArea1.Clear
    CadenaX = Split(btnSplit4.Text, ",")
    partesX = CadenaX.Count
    Print partesX
    For Each palabras In CadenaX
      TextArea1.Text = TextArea1.Text & palabras & "\n"
      Wait 1
    Next
     TextArea1.Clear
     Wait 1
    For a = 0 To (partesX - 1) Step 1
      Print a
      CadenaZ = Split(CadenaX[a], "-")
      For Each numerosX In CadenaZ
         TextArea1.Text = TextArea1.Text & numerosX & "\n"
      Wait 1
      Next
    Next
End

Código fuente: Split-0.0.1.tar.gz