Como saber lo que contiene un TextBox

[jvegae]

Hola buen día estoy haciendo un trabajo de consultas que el resultado lo imprime en una caja de texto.
Mi propósito es saber si esta trayendo un numero X para imprimirlo y si no lo esta trayendo no imprimir nada.

[Aquaventus]

Hola jvegae! Si pudieras colocar tu código para saber de qué control obtienes el valor para así ayudarte. Saludos!.

[jvegae]

Hola. claro. bueno te explico un poco.
Yo tengo he hecho una conexion por TCP/IP a una central, y esa central por defecto imprime esto.

================================================== ================================================== =======================

EXT AUTH TRK MM/DD STT.TIME DURATION FG DIALED DIGIT ACCOUNT CODE MCNT COST CLIP NUMBER CLIP NAME

================================================== ================================================== =======================
Y cuando hago una llamada y cuelgo me imprime esto :
291 704 03/28 16:38:07 00:00:06 IR 0

Lo que yo quiero es saber si me esta trayendo el primer resultado o el otro.

[jvegae]

Vale mencionar que.. lo que recibo de la central lo he almacenado en la caja de texto..

[Aquaventus]

claro te entiendo pero necesito saber el mismo código de desarrollo no el resultado. Saludos!.

[jvegae]

Imports System.Net.Sockets
Imports System.Text

Public Class Form1
Dim clientSocket As New System.Net.Sockets.TcpClient()
Dim serverStream As NetworkStream

Sub msg(ByVal mesg As String)
TextBox1.Text = TextBox1.Text + Environment.NewLine + " >> " + mesg
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
msg("Iniciado cliente")
clientSocket.Connect("192.168.10.199", 5100)
Label1.Text = "Programa Cliente Socket - servidor conectado ..."
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim serverStream As NetworkStream = clientSocket.GetStream()
Dim outStream As Byte() = _
System.Text.Encoding.ASCII.GetBytes("Mensaje del cliente$")
serverStream.Write(outStream, 0, outStream.Length)
serverStream.Flush()

Dim inStream(13000) As Byte
serverStream.Read(inStream, 0, CInt(clientSocket.ReceiveBufferSize))
Dim returndata As String = _
System.Text.Encoding.ASCII.GetString(inStream)
msg("Los datos del servidor : " + returndata)
End Sub
End Class

[Aquaventus]

Hola jvegae Podrías hacer esto en tu metodo msg :

Código vb:

Sub msg(ByVal mesg As String)
'Si el mensaje NO es el de defecto que imprima
If Not mesg.Equals("EXT AUTH TRK MM/DD STT.TIME DURATION FG DIALED DIGIT ACCOUNT CODE MCNT COST CLIP NUMBER CLIP NAME ")
TextBox1.Text = TextBox1.Text + Environment.NewLine + " >> " + mesg
End If
End Sub
 

[jvegae]

Hola Aquaventus, gracias por tu respuesta. pero cuando tu haces el equals e igualas a ese contenido.. creo que seria necesario poner tambien lo guiones o no.?

[Aquaventus]

Hola jvegae, sí tienes razón había pasado por alto los guiones, pero no te preocupes que con otra condicion resuelves eso! ;) :

Código vb:

Sub msg(ByVal mesg As String)
'Si el mensaje NO contiene la siguiente trama entonces que imprima.
If Not mesg.Contains("EXT AUTH TRK MM/DD STT.TIME DURATION FG DIALED DIGIT ACCOUNT CODE MCNT COST CLIP NUMBER CLIP NAME ") = True Then
TextBox1.Text = TextBox1.Text + Environment.NewLine + " >> " + mesg
Else If
End Sub
 

Para no poner todos los guiones simplemente consultamos si la cadena que retorna no contiene esta cadena, entonces lo imprimimos. Todo OK ahora? . Saludos!.

[jvegae]

Hola Aquaventus, llame el método en mi botón y sigue imprimiendo.. lo mismo.
Disculpa que te pregunte cosas básicas. pero quiero ser preciso en este tema para poder también saber mas cosas.

[Aquaventus]

perdón me equivoqué al metodo en el If quitale el Not y cambiale a False :

Código vb:

Sub msg(ByVal mesg As String)
'Si el mensaje NO contiene la siguiente trama entonces que imprima.
If mesg.Contains("EXT AUTH TRK MM/DD STT.TIME DURATION FG DIALED DIGIT ACCOUNT CODE MCNT COST CLIP NUMBER CLIP NAME ") = False Then
TextBox1.Text = TextBox1.Text + Environment.NewLine + " >> " + mesg
Else If
End Sub
 

Saludos!.

[Aquaventus]

perdón me equivoqué al metodo en el If quitale el Not y cambiale a False :

Código vb:

Sub msg(ByVal mesg As String)
'Si el mensaje NO contiene la siguiente trama entonces que imprima.
If mesg.Contains("EXT AUTH TRK MM/DD STT.TIME DURATION FG DIALED DIGIT ACCOUNT CODE MCNT COST CLIP NUMBER CLIP NAME") = False Then
TextBox1.Text = TextBox1.Text + Environment.NewLine + " >> " + mesg
Else If
End Sub
 

Saludos!.