Data Arrival

[Relapse]

  Bueno tengo un pequeño problema que no se como resolver. Tengo estas líneas de codigo:

Código [Seleccionar] Expandir

Dim info As String
Winsock1.GetData info
info = Replace(info, "/", vbspace)
RichTextBox1.Text = RichTextBox1.Text & vbNewLine & " Remote User: " & info

  Y funciona bien, pero a mi me gustaría que solo haga:

Código [Seleccionar] Expandir

RichTextBox1.Text = RichTextBox1.Text & vbNewLine & " Remote User: " & info

  Si el paquete tiene "/", y que si no lo tiene entonces ubique la información en un textbox. O que si tiene por ejemplo "@" lo ubique en el richtextbox2 y asi,, como se pude hacer.. cases?

[cassiani]

Usa la función InStr para buscar el caracter dentro de la cadena, lo demás es hacer uso de algunas condiciones o un select case.

[Relapse]

he encontrado algo y he pensado algo asi

Dim info As String
Dim isi As String
Winsock1.GetData info
isi = InStr("info", "/")
if isi = "/" then
info = Replace(info, "/", vbspace)
RichTextBox1.Text = RichTextBox1.Text & vbNewLine & " Remote User: " & info
end if

pero el tema, esque el valor que va a tomar isi es el de la posicion en la que esta (numerico), un valor que yo no se. Estaría bueno programarlo con una variable booleana en la que si instr encuentra "/" entonces se pone true y que sino lo encuentra se pone false.. mas ideas porfavor'

[seba123neo]

Código (vb) [Seleccionar] Expandir

Dim a as Boolean
a = iif(Instr(info,"/")<> 0,True,False)

[Relapse]

Código [Seleccionar] Expandir

Dim info As String
Dim a As Boolean
a = IIf(InStr(info, "/") <> 0, True, False)
If a = False Then
Winsock1.GetData info
info = Replace(info, "/", vbspace)
RichTextBox1.Text = RichTextBox1.Text & vbNewLine & " Remote User: " & info
ElseIf a = True Then
Text1.Text = info
End If

no logro que el hdp ponga la informacion en text1..  

[cassiani]

baahh una simple condición

Código (vb) [Seleccionar] Expandir

If InStr(info, "/") Then

no acostumbro a decir esto, pero ya va siendo hora de leerte unos cuantos tutos

Código [Seleccionar] Expandir

*http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm

[Relapse]

la funcion instr devuelve un valor numerico es decir la posicion de la palabra .. por eso no es un simple condicional .. bahh.. yo prefiero con byte o booleana

[cassiani]

devuelve 0 si no la encuentra  

[Relapse]

claro.. y e ltema esque no la encuentra por algun motivo.. solo funciona la condicion si el instr = 0... como si no encontrara "/" pero despues si hace el replace de "/".. 

[cassiani]

porque no le estas pasando la variable, si no una cadena..

está buscando en "info".. va si las comillas dobles!