Comment passer et lire des paramètres passé à mon application VB

Version imprimable

27/11/2006, 11h54
ssakhri

Comment passer et lire des paramètres passé à mon application VB

Salut tout le monde,
cher amis, je cherche à recupérer les parametres passé à mon application VB 6,

en Delphi c'était par : paramCount et paramStr, mais comme je suis nouveau en VB, je ne connais pas comment ça se passe

Merci d'avance
27/11/2006, 12h20
avigeilpro

Il me semble que c'est quelque chose comme App.Commande mais cela contient toute l'adresse de commande c'est à dire l'adresse de l'executable ainsi que les paramètre il me semble.
27/11/2006, 12h59
mdriesbach

Bonjour.

Command() retourne la chaîne de caractères passée en paramètre à l'exécutable.
Après il faut utiliser les fonctions de traitement des chaînes de caractères : Split, InStr, Mid, ...

Je ne crois pas qu'il existe un moyen d'accéder directement au différents paramètres séparément.

Cordialement,

Mathieu Driesbach.

Salut

Voici ce que j'ai trouvé dans l'aide de VB (en anglais chez moi... désolée)

Citation:

Envoyé par MSDN

Command Function Example
This example uses the Command function to get the command line arguments in a function that returns them in a Variant containing an array.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Function GetCommandLine(Optional MaxArgs)
   'Declare variables.
   Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
   'See if MaxArgs was provided.
   If IsMissing(MaxArgs) Then MaxArgs = 10
   'Make array of the correct size.
   ReDim ArgArray(MaxArgs)
   NumArgs = 0: InArg = False
   'Get command line arguments.
   CmdLine = Command()
   CmdLnLen = Len(CmdLine)
   'Go thru command line one character
   'at a time.
   For I = 1 To CmdLnLen
      C = Mid(CmdLine, I, 1)
      'Test for space or tab.
      If (C <> " " And C <> vbTab) Then
         'Neither space nor tab.
         'Test if already in argument.
         If Not InArg Then
         'New argument begins.
         'Test for too many arguments.
            If NumArgs = MaxArgs Then Exit For
            NumArgs = NumArgs + 1
            InArg = True
         End If
         'Concatenate character to current argument.
         ArgArray(NumArgs) = ArgArray(NumArgs) & C
      Else
         'Found a space or tab.
         'Set InArg flag to False.
         InArg = False
      End If
   Next I
   'Resize array just enough to hold arguments.
   ReDim Preserve ArgArray(NumArgs)
   'Return Array in Function name.
   GetCommandLine = ArgArray()
End Function

27/11/2006, 16h50
ssakhri

Merci cher ami, c'est résolu ;)