Psykobot : traitement de message irc

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 685 fois - Téléchargée 31 fois

Contenu du snippet

PsykoBot : Bot IRC
Je travail sur un bot, et je vais poster ici les fonctions petit à petit, et puis la version finale, complete :o)
(Le Bot comprend presque tous les raws et la plupart des commandes comme NICK, JOIN, QIUT, KILL, KICK...)

Les messages IRC sont de la forme :
:masque commande/raw nick param param (...) :dernier param avec espaces
Voici donc deux fonctions pour obtenir les paramètres
GetParam(message, n) renvoit le n ème paramètre
GetChaine(message, n) renvoit tous les paramètres a partir de la n ème position

Source / Exemple :


Public Function GetParam(ByVal Commande As String, Position As Long)
    Dim Tableau() As String
    Tableau = Split(Commande, " ")
    Dim StrChaine As String
    If Position - 1 > UBound(Tableau) Then
        GetParam = ""
        Exit Function
    End If
    StrChaine = Tableau(Position - 1)
    If Left(StrChaine, 1) = ":" Then StrChaine = GetChaine(Commande, Position)
    GetParam = StrChaine
End Function

Public Function GetChaine(ByVal Commande As String, Position As Long)
    Dim Tableau() As String, Chaine As String
    Tableau = Split(Commande, " ")
    Dim StrChaine As String
    If Position - 1 > UBound(Tableau) Then
        GetChaine = ""
        Exit Function
    End If
    StrChaine = ""
    For i = Position - 1 To UBound(Tableau)
        StrChaine = StrChaine & Tableau(i) & " "
    Next
    Chaine = Left(StrChaine, Len(StrChaine) - 1)
    If Left(Chaine, 1) = ":" Then Chaine = Right(Chaine, Len(Chaine) - 1)
    GetChaine = Chaine
End Function

Conclusion :


Je pense que c'est très claire...

A voir également

Ajouter un commentaire

Commentaire

cs_EBArtSoft
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
8
Le mieu serait :

- soit de mettre une source complete
- soit un zip contenant un exemple concret

Car deux fonctions comme celle si n'ont
aucune valeurs reel sorti de leurs contexte

@+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.