 |
Publicité 
|
L'exemple ci-dessous consiste simplement à lire la ligne de commande et à en extraire les paramètres lorsque l'utilisateur clique sur un bouton.
Le source du projet est disponible au téléchargement.
Source:
' Définition des variables
' Variable contenant la ligne de commande complète
Dim Ligne2Commande As String
' Tableau regroupant tous les paramètres
Dim Params() As String
' Information sur le nombre de paramètres
Dim NbParam As Long
' Variable de compteur intermédiaire
Dim I As Long
' Lecture de la ligne de commande.
' La fonction Command() retourne la partie de la ligne
' de commande située après le nom de l'exécutable.
' Par exemple lors de l'appel de:
' cmd.exe Test de lecture des paramètres
' command() retourne:
' Test de lecture des paramètres
Ligne2Commande = Command()
' Les paramètres étant séparés par des espaces, il faut
' diviser la chaîne de caractères Ligne2Commande.
' Le résultat est placé dans Params()
' Attention, la fonction Split() n'est disponible que
' depuis VB6
Params() = Split(Ligne2Commande, " ")
' La fonction UBound() retourne la valeur du dernier
' index du tableau Params()
NbParam = UBound(Params)
' Initialisation de la zone de texte de notre exemple
Me.Text1.Text = "Résultat de la lecture:" & vbCrLf & vbCrLf
' Il est possible d'appeler directemant un paramètre:
' Par exemple, Params(2) qui retourne "lecture"
' Il est également possible de boucler sur l'ensemble
' des paramètres:
For I = 0 To NbParam
' Mise à jour de la zone de texte "Paramètre 1 = Test" ...
Me.Text1.Text = Me.Text1.Text & "Paramètre " & (I + 1) & " = " & Params(I) & vbCrLf
Next
' Fin
|
