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

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

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

0

Responder

Pos: 51

Val: 50

Ayuda agregar datos recibidos de un TCP en cada Columnas

Publicado por Hugo (92 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 clara

No 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

-1

Comentar