skryptz
Messages postés10Date d'inscriptionmardi 21 novembre 2000StatutMembreDernière intervention 8 août 2005
-
29 juil. 2005 à 06:29
Zlub
Messages postés809Date d'inscriptionmercredi 11 octobre 2000StatutMembreDernière intervention29 septembre 2010
-
30 juil. 2005 à 06:53
If GetTok(data, 2, Chr(32)) = "353" Then
Dim allnicks As String
Dim num As String
If ServIP = "metserv.ath.cx" Then
allnicks = GetTok(data, 47, ":") + Chr(32) + Chr(96)
End If
If ServIP = "freechat.ath.cx" Then
allnicks = GetTok(data, 26, ":") + Chr(32) + Chr(96)
End If
num = FindTok(allnicks, Chr(96), 1, Chr(32)) - 1
For x = 1 To num
'LstNICK.AddItem GetTok(allnicks, x, Chr(32))
Next x
End If
End Sub
Bon ok je suis nouveau mais debrouillard dans mon gettok sa me fait l'erreur :
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:
ByRef argument type mismatch
---------------------------
OK Aide
---------------------------
allnicks = H,U,PX,nick1 H,U,PX,nick2 H,U,PX,nick3
num = 3 (pour dire qui a trois nick...)
GetTok(allnicks, x, Chr(32))
Il fait l'erreur sur le X et j'aimerais inserer toute les nicks dans la nick list..
skryptz
Messages postés10Date d'inscriptionmardi 21 novembre 2000StatutMembreDernière intervention 8 août 2005 29 juil. 2005 à 06:38
salut...
je vien de lire un text sur les posteurs polit... désolé je suis juste frustrer quand sa marche pas et javais beaucoup besoin d'aide s.t.p. sa serais gentil tk merci d'avance a celle qui va m'aider
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 29 juil. 2005 à 09:12
Salut,
Tu t'es trompé de forum, ici c'est vb et la function GetTok n'est pas du vb.
A moins que ce soit une function que tu as créée toi-même auquel cas, ce serait bien que tu montres le code. Sinon impossible de t'aider.
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
skryptz
Messages postés10Date d'inscriptionmardi 21 novembre 2000StatutMembreDernière intervention 8 août 2005 29 juil. 2005 à 19:53
Salut !
Voila ma fonction Gettok
Public Function GetTok(chaine As String, nb As Integer, char As String)
Dim x, y, d As Integer
chaine = TrimTok(chaine, char)
x = 1
Do
y = y + 1If Mid(chaine, y, 1) char Then x x + 1
Loop While x < nb And y <= Len(chaine)d IIf(nb 1, y, y + 1)
y = y + 1
While Mid(chaine, y, 1) <> char And y <= Len(chaine)
y = y + 1
Wend
GetTok = Mid(chaine, d, (y - d))
End Function