Programación General > Visual Basic para principiantes
Problema con TextBox y ListBox Resuelto..
F_Tanori:
Bueno , es posible que en relidad los datos que estas recibiendo, no esten separados por un espacio (como yo lo entendi) entonces es por eso que split no regresa el arreglo, el espacio es una tabulacion? u otro caracter?
Saludos
IAO:
Perdón dice:
El subindice está fuera de intervalo.. Disculpen pero ando colapsado.
--- Código: Text --- If Option1.Value = True Then Select Case MSComm1.CommEvent Case comEvReceive '''recibo 1 bytes '''Recibe y lo almacena en sData. sData = MSComm1.Input 'Datos que se quieren modificar. Los retiro de la Variable sData = Replace$(sData, "m", "") sData = Replace$(sData, "s", "") sData = Replace$(sData, "V", "") sData = Replace$(sData, Chr(9), "") Text1 = Text1 & sData 'Derecha Text2 = Text2 & sData Metodo2 Me.List1.AddItem Izquierda End Select End If End Sub Sub Metodo2() valores = Split(sData, " ") '<--- Obtener datos Derecha = valores(0) Izquierda = valores(1)End Sub
IAO:
Era una tabulación pero la quité, ahora entran pegados los datos.
asi:
" 0.1-00.6" un total de 15 carateres o longitud 15
" 0.2 00.3"
" 0.3-00.1"
" 0.4 00.8"
Al principio era diferente pero lo fui llevando a este punto.
cinco corresponden a los ultimos por el signo negativo
F_Tanori:
ok, entonces supongo que son 2 valores
separalos por el signo -
--- Código: Visual Basic ---Sub Metodo2() valores = Split(sData, "-") '<--- Obtener datos Derecha = valores(0) Izquierda = valores(1) End Sub
IAO:
Ahora acabo de entender, el Split(sData, " ").
Si es correcto no hay un espacio vacio, pero el signo negativo entra en algunos numeros en otros no.
Pero esta bien.
Voy a eliminar lo que quita la tabulación y agragarle un espacio sr. Tanori usted es un cerebro, un cerebro, yo soy pinky jajajaja.
Voy a probar, luego le comento.....Gracias, gracias, gracias
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa