Discussion :

[AdD92]

Bonjour,
Je "migre" un programme écrit en VBScript en VB.Net.
Ce programme batch reçoit des arguments nommés de la ligne de commande.
En VBScript, cela se code de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim OArgs, PN_Extrac, ERREUR
Set OArgs =WScript.Arguments.Named
If OArgs.Exists("extrac") Then
        PN_Extrac = Ucase(OArgs.Item("extrac"))
Else
        ERREUR = True
End If

Je n'arrive pas à trouver la correspondance en VB.Net.
Certes, il est possible de le faire dans une procédure (sub (toto:="aaa")), mais moi, c'est de la ligne de commande que je veux les récupérer.
Le programme .bat contient :

c:\windows\system32\cscript.exe %ARES_CPT_HOME%\ARCOGEFI.vbs /extrac:RECETTE

Sauriez-vous l'équivalent de "WScript.Arguments.Named" en VB.Net ?
Certes, je peux "travailler" sur la chaîne de caractères, mais, en réalité, j'ai une dizaine d'arguments, obligatoires et facultatifs, et la gestion d'arguments nommés simplifie énormément le code en plus de la lisibilité.
Grand merci pour votre coup de main.
Cordialement.

[mactwist69]

Bonjour,

Je crois qu'il y a un début d'explication là :

http://www.developpez.net/forums/d25...e-parametre-f/

[AdD92]

Bonjour,

Je crois qu'il y a un début d'explication là :

http://www.developpez.net/forums/d25...e-parametre-f/

Merci, mais la réponse donnée :

dit simplement qu'il faut "analyser" la chaîne de caractères transmise. Ceci dit, il donne, plus loin, des instructions que je ne connaissais pas et qui sont intéressantes.
Mais, qui ne résolve pas le problème posé.
À dire vrai, je m'attendais à un truc du genre "MonString.nammed("toto")".

En apparté, et qui n'a rien à voir le sujet : MonString.ToLower() Dans ce cas ToLower ne sert à rien, un String est TOUJOURS minuscule :+)

Merci quand même.
Cordialement.

[meziantou]

Dans ce cas il faut parser la ligne de commande:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
40
41
42
43
44
45
        Dim namedArguments = New Dictionary(Of String, String)(StringComparer.OrdinalIgnoreCase)
        Dim positionArguments = New Dictionary(Of Integer, String)()
        Dim helpRequested As Boolean = False
 
        Dim args As String() = Environment.GetCommandLineArgs()
        If args Is Nothing Then
            Return
        End If
 
        For i As Integer = 0 To args.Length - 1
            If i = 0 Then
                Continue For
            End If
 
            Dim arg As String = args(i).Trim()
            If String.IsNullOrEmpty(arg) Then
                Continue For
            End If
 
            Dim upper As String = arg.ToUpperInvariant()
            If (arg = "/?") OrElse (arg = "-?") OrElse (upper = "/HELP") OrElse (upper = "-HELP") Then
                helpRequested = True
            End If
 
            Dim named As Boolean = False
            If (arg(0) = "-"c) OrElse (arg(0) = "/"c) Then
                arg = arg.Substring(1)
                named = True
            End If
            Dim name As String
            Dim value As String
            Dim pos As Integer = arg.IndexOf(":"c)
            If pos < 0 Then
                name = arg
                value = Nothing
            Else
                name = arg.Substring(0, pos).Trim()
                value = arg.Substring(pos + 1).Trim()
            End If
            positionArguments(i - 1) = arg
 
            If named Then
                namedArguments(name) = value
            End If
        Next

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If (namedArguments("extrac") = "RECETTE") Then
End If

Tu peux retrouver ce code en plus complet dans CodeFluent Runtime (CommandLineUtilities)

[AdD92]

Merci.

Effectivement, j'avais pensé à utiliser le Dictionnary, mais sans aller jusqu'au bout de la démarche.
J'avoue que c'est pas mal, et je vais le mettre en oeuvre. Merci.
Je suis quand même surpris que, sur ce point, VBScript soit plus performant que VB.Net.

Merci encore à tous.
Cordialement.