Arguments d'entree dans un exe

Commenter

Contenu du snippet

bah tout est expliqué dans le code !

comme d'hab : divers@omnikod.fr.fm et www.omnikod.fr.fm

Source / Exemple : 


Public Function NomParam(STR_PARAM As String, BLIT As String, Indice As Integer) As String
'Fonction crée le 13/04/01 --> omnikod
'Renvoie le nom du parametre d'entrée du projet à l'indice donné
'Blit correspond au caractere de séparation des arguments.

Dim T, i As Integer
Dim TMP_PAR As String
Dim TMP_CHAR As String
i = 0
If BLIT = "" Then Exit Function
TMP_PAR = ""

For T = 1 To Len(STR_PARAM)
    TMP_CHAR = Left(Right(STR_PARAM, Len(STR_PARAM) - T), 1)
    If TMP_CHAR = BLIT Then
        V_PARAMS(i).NAME = TMP_PAR
        i = i + 1
        TMP_PAR = ""
    Else
        TMP_PAR = TMP_PAR & TMP_CHAR
    End If
Next T
If TMP_PAR <> "" Then V_PARAMS(i).NAME = TMP_PAR
V_PARAMS(0).COUNT = i

NomParam = V_PARAMS(Indice).NAME
EnumParam = NomParam
End Function
Public Function CptParam(STR_PARAM As String, BLIT As String) As Integer
'Fonction crée le 13/04/01 --> OMNIKOD
'Renvoie le nombre de parametres d'entrée du projet

Dim T, i As Integer
Dim TMP_CHAR As String
i = 0
If BLIT = "" Then Exit Function

For T = 1 To Len(STR_PARAM)
    If TMP_CHAR = BLIT Then
        i = i + 1
    End If
Next T
CptParam = i
End Function

Conclusion :


no way .... ;o)

A voir également

S'inscrire maintenant

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.

Du même auteur (omnikod)