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
