EFFACER
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Membre
Dernière intervention
7 juillet 2014
-
15 févr. 2002 à 03:05
cs_SysteM Messages postés 73 Date d'inscription samedi 27 avril 2002 Statut Membre Dernière intervention 14 juillet 2005 - 12 mai 2002 à 01:13
cs_SysteM Messages postés 73 Date d'inscription samedi 27 avril 2002 Statut Membre Dernière intervention 14 juillet 2005 - 12 mai 2002 à 01:13
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2602-effacer
https://codes-sources.commentcamarche.net/source/2602-effacer
12 mai 2002 à 01:13
18 avril 2002 à 14:14
2 mars 2002 à 05:39
20 févr. 2002 à 18:42
15 févr. 2002 à 16:13
on découpe quand on reçoit plusieur ligne
beeline (j'ai bcp travailler sur sujet ses dernenier temps
15 févr. 2002 à 03:05
Comme ceci
Public Sub Traitement(vsString As String)
Dim sCommand As String
Do While InStr(1, vsString, vbCrLf)
sCommand = Mid(vsString, 1, InStr(1, vsString, vbCrLf) - 1)
Select Case left(sCommand, 4)
Case "ping"
MsgBox "TA RECU UN PING !!!!!!!"
End Select
vsString = Mid(vsString, InStr(1, vsString, vbCrLf) + 2, Len(vsString))
Loop
End Sub