Autor
|
Tema: Data Arrival (Leído 4,222 veces)
|
Relapse
Desconectado
Mensajes: 12
|
Bueno tengo un pequeño problema que no se como resolver. Tengo estas líneas de codigo: 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: 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?
|
|
|
En línea
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
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.
|
|
« Última modificación: 7 Noviembre 2009, 22:01 pm por cΔssiΔni »
|
En línea
|
|
|
|
Relapse
Desconectado
Mensajes: 12
|
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'
|
|
|
En línea
|
|
|
|
seba123neo
|
Dim a as Boolean a = iif(Instr(info,"/")<> 0,True,False)
|
|
|
En línea
|
|
|
|
Relapse
Desconectado
Mensajes: 12
|
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..
|
|
|
En línea
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
baahh una simple condición If InStr(info, "/") Then
no acostumbro a decir esto, pero ya va siendo hora de leerte unos cuantos tutos *http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm
|
|
« Última modificación: 7 Noviembre 2009, 22:19 pm por cΔssiΔni »
|
En línea
|
|
|
|
Relapse
Desconectado
Mensajes: 12
|
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
|
|
|
En línea
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
devuelve 0 si no la encuentra
|
|
|
En línea
|
|
|
|
Relapse
Desconectado
Mensajes: 12
|
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 "/"..
|
|
« Última modificación: 7 Noviembre 2009, 22:24 pm por Relapse »
|
En línea
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
porque no le estas pasando la variable, si no una cadena..
está buscando en "info".. va si las comillas dobles!
|
|
|
En línea
|
|
|
|
|
|