Foro de programacion

Hola, a todos quisiera, eliminar los primeros 5 caracteres, estoy leyendo del puerto rs232 en un text box esto:
SE14N00001111 y SE24N00001110 la primera stringa representa el valor digital y el segundo el valor analogico, estos dos valores me los escribe uno debajo del otro (aclaro el text box es multilinias) y estos datos se refrescan cada 80ms osea que en pocos segundos tengo miles de lineas, la idea es separar estos datos asi: en un text box 00001111 y en el otro text box asi: 00001110. Sin SE14N e SE24N., Aqui mando un ejemplo para descriminar los dos datos solo que me da un error de sintaxis alguien me puede ayudar gracias, El otro problema es como hacer para transformar el valor hexadecimal que me da la stringa analogica del text box en un valor decimal de 0 a 10, agracias anticipadamente.

Private Sub Text1_Change()
Dim texto() As String = split(text1.text, vbcrlf) (AQUI ME DA ERROR DE SINTAXIS Y NO LOGRO ENTENDER POR QUE)


for each S AS string in texto
If Mid(S, 0, 5) = "SE14N" Then 'Es digital y los coloco en el textbox2
textbox2.Text = textbox2.Text + vbCrLf + Mid(S, 5, Len(S) - 5)
Else
'no lo es, y lo coloco en el textbox3
textbox3.Text = textbox3.Text + vbCrLf + Mid(S, 5, Len(S) - 5)
End If
Next
End Sub

Hola "Stringa",

Este codigo separa lo que tiene el Text1, si empieza por "SE14N" manda el resto de los caracteres al Text2, sino al Text3.

If Mid(Text1.Text, 1, 5) = "SE14N" Then

Text2.Text = Mid(Text1.Text, 6, Len(Text1.Text))

Else

Text3.Text = Mid(Text1.Text, 6, Len(Text1.Text))

End If

Eso por un lado.
Por el otro tu codigo muestra un error porque no se puede asignar un valor cuando se declara una variable:

Esto:

Dim texto() As String = split(text1.text, vbcrlf)

Hay que hacerlo así:

Dim texto() As String
texto = split(text1.text, vbcrlf)

Además VB 6.0 no permite declarar una variable dentro de un FOR EACH y la variable no puede ser String tiene que ser Variant:

Esto:

for each S AS string in texto

Hay que hacerlo así:

Dim S As Variant
For Each S in Texto
Next

Te recomendaría googlear un poco y leer algún tutorial de VB 6.0. Hay muchos y muy buenos.

Espero te sirva, saludos.

__________________
directorio web - check google pagerank - consultoria en sistemas - directorio web - fabrica pinturas - sistema para veterinarias - sistema backup