CHAT WINSOCK CLIENT/SERVEUR A AMELIORER !!
AtomiKiller
Messages postés
127
Date d'inscription
lundi 28 juillet 2003
Statut
Membre
Dernière intervention
11 juin 2008
-
3 févr. 2004 à 22:49
AtomiKiller Messages postés 127 Date d'inscription lundi 28 juillet 2003 Statut Membre Dernière intervention 11 juin 2008 - 5 févr. 2004 à 16:25
AtomiKiller Messages postés 127 Date d'inscription lundi 28 juillet 2003 Statut Membre Dernière intervention 11 juin 2008 - 5 févr. 2004 à 16:25
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/20115-chat-winsock-client-serveur-a-ameliorer
https://codes-sources.commentcamarche.net/source/20115-chat-winsock-client-serveur-a-ameliorer
5 févr. 2004 à 16:25
5 févr. 2004 à 16:25
5 févr. 2004 à 09:45
4 févr. 2004 à 20:14
4 févr. 2004 à 09:32
4 févr. 2004 à 03:37
pis ai pas peur de mettre des espace pis des tabulation pour que tu puisse de reconnaitre ds ton code
example
select MYSTRING
case "condition 1"
'écris ici ce que tu veux qui se passe
case "condition 2"
'écris ici ce que tu veux qui se passe
end select
voici une petite fonction qui peut t'aider
Function funLeftMot(ByRef strMot As String) As String
Dim i As Integer
Dim siRetour As Integer
Dim strNewMot As String
siRetour = 0
strMot = Trim(strMot)
If strMot = "" Then Exit Function
i = 1
Do
strNewMot = strNewMot & Mid(strMot, i, 1)
If Mid(strMot, i + 1, 1) = " " Then Exit Do
If Len(strNewMot) = Len(strMot) Then Exit Do
If Mid(strMot, i + 1, 2) = vbCrLf Then
siRetour = 2
Exit Do
End If
i = i + 1
Loop
strMot = Trim(Right(strMot, Len(strMot) - (Len(strNewMot) - siRetour)))
funLeftMot = strNewMot
End Function
cela retourne le premier mot de ta chaine
et l'enlève a la chaine que tu as transmit à la fonction
je sais que ma fonction pourrais etre mieux
par example
msg = "123 456 789"
TypeMSG = funLeftMot(Msg)
le résultat va etre
typemsg = "123"
msg = "456 789"
Lache pas c de meme kon commence
si tu as des questions a propos des winsock pose lé moi pis j'vais faire de mon mieux.
bonne continuité
4 févr. 2004 à 00:44
3 févr. 2004 à 22:49