Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Split

Visual Basic - Split

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
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
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Split

Publicado por Antoni Masana (565 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