Hbaer lo que quiero hacer es enviar un mensaje lo envio de esta forma:
Private Sub Command1_Click()
Dim enviar As String
enviar = mensaje
ws.SendData destino & mensaje
End Sub
El destino es otra caja de texto en donde envio un numero. y la otra envio el mensaje
lo recibo de esta forma:
Dim datos As String
Dim tripas As String
ws.GetData datos
tripas = Split(datos, "destino")
MsgBox (tripas(0))
recibir.Text = recibir.Text + datos + vbCrLf
End Sub
quiero que el mensaje tripas(0) solo sea el numero que introdujo al enviarlo no el numero mnas mensaje por ejmplo:
1rtrtrgfg sino solo "1" nose si alguien me podra ayudar con esto bueno cuidense saludos
recuerda que split te separa por palabras lo que debes hacer es meterle un espacio al mensaje
ws.SendData destino & " " & mensaje
Y asi funcionara ? bueno a probar
ws.SendData destino & " " & enviar <--me arroja error =( en esa linea xD
Envio:Citarws.SendData "00" & Mensaje
Data Arrival:CitarDim Data1 as string
ws.getdata data
Data1 = Right$(data, Len(data) - 2)
Select Case Left$(data, 2)
Case "00"
Case "01"
Case "02"
End Select
mira podrias enviar junto al paquete la longitud de los numeros que hay delante del texto(en este caso la longitud del numero es 36):
ws.senddata destino & mensaje & "36"
al recibirlo con la funcion right cojes los 2 caracteres del final y eso seria la longitud de la variable destino.
ws.getdata datos
leng = right(datos, 2)
msgbox mid(datos, 1, leng)
y te devolverá los numeros solos si lo haces bien.
PD: hacer esto no es programacion... es darle al coco.
Pones un caracter entre Destino y Mensaje. Algo asi:
'Lo envias asi
WS.SendData destino & "*" & mensaje
'Y lo recibes asi
Tripas = Split(Datos, "*")
'Tripas(0) es el destino y Tripas(1) es el mensaje
Saludos.-