[XE2] Usage de l'unité CommandParser

Version imprimable

Bonjour !

Je voudrais utiliser dans une application console l'unité CommandParser qui se trouve dans les démos de XE2 :

http://sourceforge.net/p/radstudiode...RadStudio_XE2/

J'ai téléchargé ce projet utilisant l'unité :

http://bo.codeplex.com/SourceControl.../changes/71461

J'avais trouvé le lien (avec des explications) dans un message de cette discussion :

http://stackoverflow.com/questions/9...ine-parameters

Mais avec tout ça je n'ai pas réussi à faire pour moi-même un petit exemple qui fonctionne. Enfin si, j'ai fait ça, qui est un début et qui montre déjà l'intérêt de cette unité :
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 46 47 48 49 50 program CommandParser1; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, CommandParser; var cp: TCommandParser; begin try // Paramètres : // /longnames /infile='1.txt' /outfile="2.txt" cp := TCommandParser.Create(FALSE, 'Unit names convertor'); WriteLn(cp.SwitchChars = '/-'); cp.AddSwitch('s', stBoolean, FALSE, '', 'Conversion to short names', 'shortnames'); cp.AddSwitch('l', stBoolean, FALSE, '', 'Conversion to long names', 'longnames'); cp.AddSwitch('i', stString, TRUE, '', 'Input file', 'infile'); cp.AddSwitch('o', stString, FALSE, '', 'Output file', 'outfile'); WriteLn(cp.Syntax); //WriteLn(cp.HelpText); //WriteLn(cp.Description); cp.ProcessCommandLine(CmdLine); WriteLn(cp.IndexOf('s') = 0); WriteLn(cp.IndexOf('l') = 1); WriteLn(cp.IndexOf('i') = 2); WriteLn(cp.IndexOf('o') = 3); WriteLn(cp.Switches[3].Name = 'o'); WriteLn(cp.Switches[3].Value = '"2.txt"'); WriteLn(cp.Switches[3].HasValue); WriteLn(cp.Switches[1].HasValue = FALSE); cp.Free; ReadLn; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.
Mais je ne vois pas comment récupérer les valeurs booléennes. :roll:

J'ai essayé en m'inspirant du projet de suivre la méthode décrite dans la discussion mais c'est trop compliqué (pour moi). Doit-on nécessairement passer par un TComponent ? Si oui, cela peut-il se faire d'une façon relativement simple ?

Bonjour,

Citation:

Envoyé par Roland Chastain

Mais je ne vois pas comment récupérer les valeurs booléennes. :roll:

Personnellement, c'est cette remarque que je ne comprends pas... :weird:

Les résultats fournis correspondent à ce qui est attendu, non ?

Code:

1
2
3
4
5
6
7
8
9
10
11
    WriteLn(cp.SwitchChars = '/-');  // => TRUE car valeurs par défaut
 
    WriteLn(cp.IndexOf('s') = 0);  // => TRUE car 's' est le 1° paramètre défini
    WriteLn(cp.IndexOf('l') = 1);  // => TRUE car 'l' est le 2° paramètre défini
    WriteLn(cp.IndexOf('i') = 2);  // => TRUE car 'i' est le 3° paramètre défini
    WriteLn(cp.IndexOf('o') = 3);  // => TRUE car 'o' est le 4° paramètre défini
 
    WriteLn(cp.Switches[3].Name = 'o');  // => TRUE car le nom du 4° paramètre défini est 'o'
    WriteLn(cp.Switches[3].Value = '"2.txt"');  // => TRUE car 3° paramètre transmis correspondant au 4° paramètre défini est "2.txt"
    WriteLn(cp.Switches[3].HasValue);  // => TRUE car 3° paramètre transmis correspondant au 4° paramètre défini a une valeur
    WriteLn(cp.Switches[1].HasValue = FALSE);  // => TRUE car 1° paramètre transmis correspondant au 2° paramètre défini n'a pas de valeur

13/12/2015, 22h38
Roland Chastain
@Ph. B.

Bonjour et merci pour l'intérêt porté à mon problème. Oui, il est possible que la solution soit sous mon nez, mais ces deux lignes (la deuxième n'était pas dans l'exemple donné plus haut) donnent le même résultat :
Code:

1 2 WriteLn(cp.Switches[1].HasValue = FALSE); WriteLn(cp.Switches[0].HasValue = FALSE);
Si je comprends bien, ce résultat veut dire que ces options (contrairement aux deux autres) ne sont pas supposées avoir une valeur, mais sont simplement présentes ou absentes. Mais comment puis-je savoir si elles sont présentes, c'est ce que je ne vois pas encore.

Citation:
Envoyé par Roland Chastain
... mais ces deux lignes (la deuxième n'était pas dans l'exemple donné plus haut) donnent le même résultat :
Code:

1 2 WriteLn(cp.Switches[1].HasValue = FALSE); WriteLn(cp.Switches[0].HasValue = FALSE);
Pour moi :
Code:

1 2 WriteLn(cp.Switches[1].HasValue = FALSE); // => TRUE car 1° paramètre transmis correspondant au 2° paramètre défini n'a pas de valeur WriteLn(cp.Switches[0].HasValue = FALSE); // => TRUE car 1° paramètre défini n'a pas de valeur puisque non transmis
Citation:

Envoyé par Roland Chastain

Si je comprends bien, ce résultat veut dire que ces options (contrairement aux deux autres) ne sont pas supposées avoir une valeur, mais sont simplement présentes ou absentes. Mais comment puis-je savoir si elles sont présentes, c'est ce que je ne vois pas encore.

AMHA, vu comme est construit le parseur, on ne peut pas déterminer si un paramètre est transmis ou non, mais seulement si il a une valeur ou pas.

Il faut donc en l'état du parseur définir les paramètres différemment, en particulier ceux qui sont antagonistes :
Code:

1 2 3 4 cp.AddSwitch('s', stBoolean, FALSE, 'off', 'Conversion to short names', 'shortnames'); cp.AddSwitch('l', stBoolean, FALSE, 'on', 'Conversion to long names', 'longnames'); cp.AddSwitch('i', stString, TRUE, '', 'Input file', 'infile'); cp.AddSwitch('o', stString, FALSE, '', 'Output file', 'outfile');
En l'état, le paramètre 'Conversion to long names' sera activé par défaut. ;)

Citation:

Envoyé par Ph. B.

AMHA, vu comme est construit le parseur, on ne peut pas déterminer si un paramètre est transmis ou non, mais seulement si il a une valeur ou pas.

Merci pour ta réponse. Oui, tu as raison. Le switch booléen est fait pour avoir une valeur, une chaîne en fait. C'est ce que je n'avais pas compris.

Citation:

If a Boolean switch has a default value (as the code above sets), specifying that switch without a Boolean value will set the switch to the default value. You can use +, true, t, yes, y, or on to toggle a Boolean switch to true, and -, false, f, n, no, off to set it to false to avoid ambiguities.

https://community.embarcadero.com/ar...th-delphi-2010

Du coup je ne suis pas sûr qu'il y ait une vraie différence avec le switch de type chaîne.

Citation:

Envoyé par Ph. B.

Il faut donc en l'état du parseur définir les paramètres différemment, en particulier ceux qui sont antagonistes :

J'ai suivi ton conseil. Du coup je n'ai gardé que l'option "Conversion vers les noms courts", en considérant que par défaut le programme ferait la conversion vers les noms longs.

Voilà, le code est opérationnel (mais peut-être améliorable).
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 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 // https://community.embarcadero.com/article/technical-articles/149-tools/3589-writing-an-event-logger-with-delphi-2010 program CommandParser2; {$APPTYPE CONSOLE} {$WARN SYMBOL_PLATFORM OFF} {$R *.res} uses System.SysUtils, CommandParser; procedure WriteLnFalse(const aAssertion: boolean); begin if not aAssertion then WriteLn(aAssertion); end; var cp: TCommandParser; begin try // Paramètres : // /shortnames=on /infile='1.txt' /outfile="2.txt" // ou // /shortnames /infile='1.txt' /outfile="2.txt" cp := TCommandParser.Create( FALSE, // ACaseInsensitive 'Delphi unit names convertor' // ADescription ); WriteLnFalse(cp.TrueValues = '|y|t|on|yes|true|+|'); WriteLnFalse(cp.ArgChars = ':='); WriteLnFalse(cp.FalseValues = '|n|f|off|no|false|-|'); WriteLnFalse(cp.SwitchChars = '/-'); cp.AddSwitch('s', stBoolean, FALSE, 'on', 'Conversion to short names', 'shortnames'); cp.AddSwitch('i', stString, TRUE, '', 'Input file name', 'infile'); cp.AddSwitch('o', stString, FALSE, '', 'Output file name', 'outfile'); WriteLn(cp.Syntax); cp.ProcessCommandLine(CmdLine); WriteLnFalse(cp.IndexOf('s') = 0); WriteLnFalse(cp.IndexOf('i') = 1); WriteLnFalse(cp.IndexOf('o') = 2); WriteLnFalse(cp.Switches[1].Name = 'i'); WriteLnFalse(cp.Switches[1].HasValue); WriteLnFalse(cp.Switches[1].Value = '''1.txt'''); WriteLnFalse(cp.Switches[2].Name = 'o'); WriteLnFalse(cp.Switches[2].HasValue); WriteLnFalse(cp.Switches[2].Value = '"2.txt"'); //WriteLnFalse(cp.Switches[0].HasValue); WriteLnFalse(cp.Switches[0].Value = 'on'); WriteLnFalse(Pos('|' + cp.Switches[0].Value + '|', cp.TrueValues) > 0); cp.Free; except on E: Exception do WriteLn(E.ClassName, ': ', E.Message); end; end.
J'ai testé le programme avec les commandes suivantes :
Code:

1 2 3 4 5 6 7 8 9 10 11 @echo off set exe="C:\Users\Roland\Documents\RAD Studio\Projects\UnitNames\CommandLine\CommandParser\Win32\Debug\CommandParser2.exe" %exe% /shortnames=on /infile='1.txt' /outfile="2.txt" %exe% /shortnames /infile='1.txt' /outfile="2.txt" %exe% /shortnames /outfile="2.txt" /infile='1.txt' %exe% /outfile="2.txt" /infile='1.txt' %exe% /shortnames /outfile="2.txt" pause