irc mensajes

[-POLACO-]

Haber si esto te sirve ,debes colocarlo en el evento change del text1

Código [Seleccionar] Expandir

Private Sub Text1_Change()
Dim VAriable As Integer
If InStrRev(Text1, "#causal :") <> 0 Then
VAriable = InStrRev(Text1, "#causal :") + 9
Text8 = Text8 & Mid(Text1, VAriable)
End If
End Sub

Lo que hace la funcion InstrRev es buscar coincidencias perooo de atras para adelante ,si la encuentra le suma "9" caracteres y te pasa al Text8 solo lo hablado.

Esto es como lo que querias vos de poner un Timer que lea el text1 cada X segundos ,pero leera el text1 cada vez que cambie o sea cuando recibe Data nueva.

NOTA: los dos textos tanto el text1 como el text8 deben esta Multiline=true ,asi te copia los "Enter"="vbCrLf".
Para mi opinion sera mejor sacar los strings desde el DataArrival del Winsock ,como dice el amigo.
Espero te sirva Saludos .-.

[LeandroA]

Hola me parece que la forma mas facil y no arroja error si no se encuentra la palabra "#causal :" seria de esta forma

Private Sub Text1_Change()
Text8 = Replace(Text1, "#causal :", "")
End Sub

Saludos

[LixKeÜ]

  Ninguna de las dos formas funciono.

Pero aca les dejo un ejemplo mas espesifico de lo querido y bueno espero sus ayuda.
  Yo tambien estoy trabajando en un coder pero hasta el momento no funca bien.

  Aca les dejo:

>>>>http://rapidshare.de/files/26627545/EJEMPLO.rar.html>>>>

[elmaro]

pero man... tonces no es que llega primero la cadena #casual

en el code que pusiste aparece esto PRIVMSG #casual :HOLASSS

tonces es ovbio que ningun ejemplo te va a funcionar,.
prueva otra vez cualkiera pero con esa cadena PRIVMSG #casual




El MaRo!

[-POLACO-]

Hola ElMaro si te fijas bien mi codigo dice "InstrRev" por mas que la cadena sea "PRIVMSG #casual :" o "#casual :" la tiene que encontrar igual.

[LixKeÜ]

 lo malo es que no lo encuentra

[-POLACO-]

Aca te envio el codigo pero tu problema esta aca :NO es Text1 lo que vos tenes ,si no que es Text1(1) ,o sea un array de text1.
este codigo lo probe y funciona bien

Código [Seleccionar] Expandir


Private Sub Text1_Change(Index As Integer)
     Dim Identificador As Integer
     Dim Data As String
     Identificador = InStrRev(Text1(1), "#casual :")
     Data = Identificador + 9
     Data = Mid(Text1(1), Data)
     Text8 = Data
End Sub

Espero te sea util : fijate que pongo Text1(1) y NO Text1 ok ?
Cualquier cosa avisa si funca o NO funca ,pero sigo opinando que es mejor agarrar la data desde el Data_Arrival del Winsock.
Trata de usar OptionExplicit te sera util.

"Podemos ser lo mejor y tambien lo peor con la misma facilidad"
Bersuit Vergarabat

[LixKeÜ]

  gracias amigo de maravilla lo hice asi

Código [Seleccionar] Expandir

Private Sub Text1_Change()
     Dim Identificador As Integer
     Dim Data As String
     Identificador = InStrRev(Text1, "#casual :")
     Data = Identificador + 9
     Data = Mid(Text1, Data)
     Text8 = Data
End Sub

  con esto ya podre hacer un buen cliente IRC el cual ademas le quiero dar otra utilidad
   No me olvidare de ti amigo y cuando publique mi proxima creasion no me olvidare de Darte los mejores agradesimientos para TIII y a LeandroA otro gran amigo.

  Salu2 LixKeÜ  >>>>>>>>>>>>>>>>>>>>><