irc mensajes

[LixKeÜ]

 La pregunta que les tengo es como hacer para que los mensajes que me llegan los copie en el Text8.text
  Aqui en la imagen les muestro con dos clientes Irc

[SheKeL_C$]

No t e entendido muy bien d k kieres pero m ago una idea....

#causal :HOLA JEJEJJEEJ555

Esto es lo q recibes, asi k podrias acer un split al signo d los dos puntos y como lo q seria el hola jejej se meteria en el array en al posicon uno

Otra cosa q podrias acer es un poco mas chapucero y seria q si simpre se recibe lo mismo #causal : mensaje. Pues q leas x la derexa restado las primeras letras.. No se si m entiendes y tmpoco si era esto lo q pedias 

[LixKeÜ]

 si siempre se recibe #caudal: Mensajey la idea que me das es buena pero me podrias dar un ejemplo con codigo

[SheKeL_C$]

Código [Seleccionar] Expandir


cadena = "#caudal: Este es el mensaje"

separa = split(cadena,":")
text8 = separa(1)


El unico error q tendrias es q si el mensaje tendria algun :
asi k como dices q siempre s recibira lo d caudal..

Código [Seleccionar] Expandir



cadena = "#caudal: Este es el mensaje"
text8 = right(cadena,len(cadena) - 8)



[LixKeÜ]

  Ma espesifico:
  lo que necesito es que un timer vaya leyendo lo que va apareciendo en el text1 (cada 3seg ejemplo) y luego copie solo los mensajes que aparecen despues de #casual: y les ponga en el text8
  esto lo quiero hacer asi para que los mensajes queden mas visibles y entendibles
  Con respecto a tu codigo le entendi pero como ago para que lea del text1.text

[SheKeL_C$]

Tendrias q hacerlo desde la llegada de datos del winsock

Código [Seleccionar] Expandir


....
....'data serian los datos q llegan
If Left(data, 9) = "#causal :" Then Text2.Text = Right(Text1, Len(Text1) - 9)
...
...

[LixKeÜ]

asi es como lo tengo pero tampoco funciona
yo pensaria que seria mejor si existe algo que lee permanentemente el Text1.Text y si encuentra un #casual: copie luego lo que este despues de el y lo ponga en el Text8.Text

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Buffer As String
Dim Buff() As String
Winsock1.GetData Buffer
Buff = Split(Buffer, " ")
If Left(Buffer, 9) = "#causal :" Then Text8.Text = Right(Text1, Len(Text1) - 9)
Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & "Servidor >" & Buffer
Text1.SelStart = Len(Text1.Text)
Winsock1.SendData "PONG :" & Buff(UBound(Buff())) & vbCrLf
End Sub

[elmaro]

yo creo que deberias  acer esto

en ves de poner asi:

Código [Seleccionar] Expandir

If Left(Buffer, 9) = "#causal :" Then Text8.Text = Right(Text1, Len(Text1) - 9)


poner asi:

Código [Seleccionar] Expandir

If Left(Buffer, 9) = "#causal :" Then Text8.Text = Right(Buffer, Len(Buffer) - 9)


creo que si copias l contenido del txt1 al txt8 no copiaria solo el nick o kisas no copiaria nada xq no cumple las condiciones,. ya que en el txt1 esta todo lo que recibe el bufer (txt1 = txt1 & buffer)

si me ekivoco aganmelo saber,.




El MaRo!

[LixKeÜ]

 lo intente pero nada 
  Despreocupense que voy a poner a andar el motor de mi cabeza y lo saco

[elmaro]

mmmm que raro,. bueno fijate bien
suerte



El MaRo!