Visual Basic - Split

Life is soft - evento anual de software empresarial
   
Vista:

Split

Publicado por Carlos (3 intervenciones) el 06/02/2013 16:18:31
Hola a todos.
Alguien me puede ayudar y me explica que caracter es el Chr(0) en vb6.
Bueno mas bien tengo esto

Archivos = Split(caja_dialogo.FileName, Chr(0))

Pero no se que caracter se utiliza para realizar la division

Gracia
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Split

Publicado por Antoni Masana (88 intervenciones) el 07/02/2013 12:15:52
Hola carlos:

Hay varias respuestas implicitas en tu pregunta:

El caracter chr$(0) es el caracter 0 binario o 0 ascii.

La funcion split te convierte una cadena de caracteres (primer parametro) en una tabla utilizando un separador (segundo parametro).

El carecter que se usa depende de cada caso, no existe un separador unico y universal.

Un Ejemplo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
 
Private Sub Command1_Click()
 
    'Array o vector dinámico para almacenar las lineas mediante Split   
    Dim Lineas() As String
 
    Dim i As Integer
 
    ' borra el listbox   
    List1.Clear
 
    ' Le pasa el textobx (el dato ), y el caracter delimitador   
    Lineas = Split(Text1, vbNewLine)
 
    'Recorremos el arreglo y vamos insertando _   
    los elementos del array en el ListBox
    For i = LBound(Lineas) To UBound(Lineas)
 
        List1.AddItem Lineas(i)
 
    Next
 
End Sub
 
Private Sub Form_Load()
    Command1.Caption = " Aceptar "
 
    Text1.Text = "Lunes" & vbNewLine & _
                 "Martes" & vbNewLine & _
                 "Miercoles" & vbNewLine & _
                 "Jueves" & vbNewLine & _
                 "Viernes" & vbNewLine & _
                 "Sábado" & vbNewLine & _
                 "Domingo"
 
End Sub


El mismo Ejemplo con otro tipo de separador:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
Private Sub Command1_Click()
 
 
    'Array o vector dinámico para almacenar las lineas mediante Split   
    Dim Lineas() As String
 
    Dim i As Integer
 
    ' borra el listbox   
    List1.Clear
 
    ' Le pasa el textobx (el dato ), y el caracter delimitador   
    Lineas = Split(Text1, ";")
 
    'Recorremos el arreglo y vamos insertando _   
    los elementos del array en el ListBox
    For i = LBound(Lineas) To UBound(Lineas)
 
        List1.AddItem Lineas(i)
 
    Next
 
End Sub
 
Private Sub Form_Load()
    Command1.Caption = " Aceptar "
 
    Text1.Text = "Lunes;Martes;Miercoles;Jueves;Viernes;Sábado;Domingo"
 
End Sub


Para más información:


http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/51.htm
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar