Ayuda sobre Split
Publicado por damian (17 intervenciones) el 04/02/2004 23:10:57
Hola ye tengo este codigo:
Dim separa As String
Dim cadena() As String
Dim da As String
Dim sep As String
Dim linea
Dim interno
Dim numero
Dim hora
Dim duracion
Dim fecha
separa = " 01 31 42407510 17:32:44 00:00:21 13/01/04"
cadena() = split(separa, " ")
Text2.Text = cadena(0)
Text2.Text = linea
cadena(1) = interno
Text3.Text = interno
cadena(2) = numero
Text4.Text = numero
cadena(3) = hora
Text5.Text = hora
cadena(4) = duracion
Text6.Text = duracion
cadena(5) = fecha
Text7.Text = fecha
cadena = Join(separa, "N")
sep = Join(cadena, "N")
Text2.Text = sep
End Sub
Y no me muestra nada en el textbok, cual es el problema que no me sale
gracias
damian
Dim separa As String
Dim cadena() As String
Dim da As String
Dim sep As String
Dim linea
Dim interno
Dim numero
Dim hora
Dim duracion
Dim fecha
separa = " 01 31 42407510 17:32:44 00:00:21 13/01/04"
cadena() = split(separa, " ")
Text2.Text = cadena(0)
Text2.Text = linea
cadena(1) = interno
Text3.Text = interno
cadena(2) = numero
Text4.Text = numero
cadena(3) = hora
Text5.Text = hora
cadena(4) = duracion
Text6.Text = duracion
cadena(5) = fecha
Text7.Text = fecha
cadena = Join(separa, "N")
sep = Join(cadena, "N")
Text2.Text = sep
End Sub
Y no me muestra nada en el textbok, cual es el problema que no me sale
gracias
damian
Valora esta pregunta


0