hola espero alguien pueda ayudarme estoy leyendo datos de un scanner telxon (este tipo de scanner lees el codigo de barras y se almacena en una memoria luego tu lo descargas via puerto serial ) pero me da estos datos
********************************************************************
1°°°1°°µ°°°µ ¹84µ¹1¶ °1°188°°°414Š1°°°1°°µ°°°µ ¹84µ8¹7 °1°188°°°42°Š1°°°1°°µ°°°µ ¹84µ¹°7 °1°188°°°42¶Š1°°°1°°µ°°°µ ¹84µ¹°8 °1°188°°°427Š1°°°1°°µ°°°µ ¹84µ¹°¹ °1°188°°°428Š1°°°1°°µ°°°µ ¹84µ8¹1 °1°188°°°42¹Š1°°°1°°µ°°°µ ¹84µ8¹2 °1°188°°°4³1Š1°°°1°°µ°°°µ ¹84µ8¹¶ °1°188°°°4³8Š1°°°1°°µ°°°µ ¹8³¹°°µ °1°188°°°44µŠ1°°°1°°µ°°°µ ¹8³¹°°4 °1°188°°°44¶Š1°°°1°°µ°°°µ ¹8³8¹8¹ °1°188°°°447Š1°°°1°°µ°°°µ ¹8³8¹88 °1°188°°°44¹Š1°°°1°°µ°°°µ ¹8³8¹87 °1°188°°°4µ°Š
*******************************************************************
cuando en realidad me debe de dar algo parecido a esto.
*******************************************************************
1SCH103 0003 8532580 022688011137
1SCH103 0003 8532581 022688011149
1SCH103 0003 8532579 022688011205
*******************************************************************
otra cosa mas una vez que yo tenga estos datos me gustaria solotomar el valor de la columna 3 los demas numeros no me interesan solo el de la columna 3 espero me puedan ayudar aqui adjunto el codigo que uso para leer el puerto serial.
********************************************************************
Dim Buffer As Variant
Private Sub Command1_Click()
If MSComm1.PortOpen = False Then
Text2.Enabled = False
MSComm1.CommPort = 1
MSComm1.PortOpen = True
Else
Text2.Enabled = True
MSComm1.PortOpen = False
End If
Command1.Enabled = False
End Sub
Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
Buffer = MSComm1.Input
Text1.Text = Text1.Text & CStr(Buffer)
End If
End Sub
********************************************************************
les agradesco de antemano su ayuda
