Arguments nommés en ligne de commande

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:

---

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 :

Citation:

---

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.

Bonjour,

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

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

Citation:

---

Envoyé par mactwist69

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 :
Pièce jointe 150357
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")".

Citation:

---

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.

Dans ce cas il faut parser la ligne de commande:

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 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:

---

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

---

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

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.