PSYKOBOT : TRAITEMENT DE MESSAGE IRC

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