Visual Basic : For et Fonction Gettok Help me !

skryptz Messages postés 10 Date d'inscription mardi 21 novembre 2000 Statut Membre Dernière intervention 8 août 2005 - 29 juil. 2005 à 06:29
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 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..

Quelqu'un peu m'aider ?

5 réponses

skryptz Messages postés 10 Date d'inscription mardi 21 novembre 2000 Statut Membre Derniè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
0
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 18
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 !?
0
skryptz Messages postés 10 Date d'inscription mardi 21 novembre 2000 Statut Membre Derniè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
0
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 18
29 juil. 2005 à 20:58
Il y a une source à ce sujet sur le site qui peut t'aider :

[ http://www.vbfrance.com/forum.v2.aspx?ID=522387]

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 9
30 juil. 2005 à 06:53
Salut,

Essais comme ça



Public Function GetTok(chaine As String, ByVal nb As Integer, char As String)

...


++

Zlub
0