Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic.NET » Ayuda agregar datos recibidos de un TCP en cada Columnas

Visual Basic.NET - Ayuda agregar datos recibidos de un TCP en cada Columnas

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Ayuda agregar datos recibidos de un TCP en cada Columnas

Publicado por Benjamin Eliecer (8 intervenciones) el 19/01/2022 14:25:51
hola a todos, tengo el siguiente problema sucede que envió unos datos por medio de TCP y los recibo, pero sucede que estos datos todos se agregan en una sola columna




1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function Rutina()
        Do
            If Ejecuto = True Then
                Exit Do
            End If
            'miro si tcp tiene conexiones pendiente
            If TCP.Pending = True Then
                'Si tiene Pendientes lo asigno a el cliente del servidor que hara de escucha
                TCPSERVERCLI.Client = TCP.AcceptSocket
            End If
            If TCPSERVERCLI.Connected = True Then
                'Indica que hay datos pendientes de recoger
                If TCPSERVERCLI.Available > 0 Then
                    Dim DataBytes(1000) As Byte
                    'Ahora el decodificador
                    Dim decode As New ASCIIEncoding
                    TCPSERVERCLI.Client.Receive(DataBytes)
                    'ahora decodifico los bytes y los paso a el ListView
                    Me.LNetgames.Items.Add(decode.GetString(DataBytes))
                    End If
            End If
        Loop
    End Function
Screenshot_1
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Hugo
Val: 50
Ha disminuido su posición en 5 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Ayuda agregar datos recibidos de un TCP en cada Columnas

Publicado por Hugo (91 intervenciones) el 20/01/2022 01:59:32
Lo que puedes haces es separar el campo tomando como referenia el caracter |

Dim cadena = cadenacontodosloscamposjuntos
Dim longitud = cadena.ToString.Length
Dim x, xx, xxx As Integer
Dim arreglo As New ArrayList()
Dim valor_cadena As String
xx = 1
xxx = 0
Dim cuenta As Integer = 0

'separa los campos tomando como referenia el caracter |
For x = 1 To longitud
xxx = xxx + 1
If Mid(cadena, x, 1) = "|" Then
If xx = 1 Then
valor_cadena = Mid(cadena, xx, xxx - 1)
Else
valor_cadena = Mid(cadena, xx, xxx - 1)
End If
arreglo.Add(valor_cadena)
cuenta = cuenta + 1
xx = x + 1
xxx = 0
End If
Next

Visita : https://vbpuntonet.blogspot.com/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda agregar datos recibidos de un TCP en cada Columnas

Publicado por carlos (3 intervenciones) el 10/02/2022 19:40:24
Yo te puedo ayudar
por 3 dolares..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar