Obtenir des paramètres de ligne de commande


(* GetParameterValue

GetParameterValue retourne la valeur associée à un paramètre de nom dans le formulaire

/paramname:paramvalue
-paramname:paramvalue

et

/paramname
-paramname

ParamName - Nom du paramètre (paramname)
SwitchChars - commutateur de Paramètre (identifiants/ ou -)
Séparateur - Le char qui se trouve entre paramname et paramvalue (:)
Valeur - La valeur du paramètre (paramvalue) si elle existe

Retourne - valeur Booléenne, true si le paramètre a été trouvé, false si le paramètre n'existe pas

utilisation typique

Paramètre
-P=c:\temp\
-S

GetParameterValue('p', ['/', '-'], '=', sValue)

sValue contiendra c:\temp\

*)
fonction de GetParameterValue(const ParamName: string SwitchChars: TSysCharSet
& nbsp élément de séparation: Char var Value: string): Boolean
var
& nbsp I, Sep: Longint
& nbsp S: string
begin
& nbsp Result := False
& nbsp Valeur := sBlank

& nbsp for I := 1 à ParamCount ne
& nbsp commencer
& nbsp & nbsp & nbsp S := ParamStr(I)
& nbsp & nbsp & nbsp si la Longueur(S) > 0, alors
& ! & ! & ! & ! & nbsp si S[1] dans SwitchChars puis
& ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & nbsp Sep := Pos(élément de séparation, S)

& ! & ! & ! & ! & ! & ! & nbsp cas de Sep de
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp 0:
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si CompareText(Copie(S, 2, Longueur(S) -1), ParamName) = 0, alors
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Résultat := True
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Pause
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& nbsp & ! & ! & ! & ! & ! & ! & ! & nbsp 1..exemple maxint:
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si CompareText(Copie(S, 2, Sep -2), ParamName) = 0, alors
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Valeur := Copy(S, Sep 1, Longueur(S))
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Résultat := True
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Pause
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& nbsp & ! & ! & ! & ! & ! & nbsp fin //
& ! & ! & ! & ! & nbsp fin
& nbsp fin
fin









Obtenir des parametres de ligne de commande


Obtenir des parametres de ligne de commande : Plusieurs milliers de conseils pour vous faciliter la vie.


(* GetParameterValue

GetParameterValue retourne la valeur associee a un parametre de nom dans le formulaire

/paramname:paramvalue
-paramname:paramvalue

et

/paramname
-paramname

ParamName - Nom du parametre (paramname)
SwitchChars - commutateur de Parametre (identifiants/ ou -)
Separateur - Le char qui se trouve entre paramname et paramvalue (:)
Valeur - La valeur du parametre (paramvalue) si elle existe

Retourne - valeur Booleenne, true si le parametre a ete trouve, false si le parametre n'existe pas

utilisation typique

Parametre
-P=c:\temp\
-S

GetParameterValue('p', ['/', '-'], '=', sValue)

sValue contiendra c:\temp\

*)
fonction de GetParameterValue(const ParamName: string SwitchChars: TSysCharSet
& nbsp element de separation: Char var Value: string): Boolean
var
& nbsp I, Sep: Longint
& nbsp S: string
begin
& nbsp Result := False
& nbsp Valeur := sBlank

& nbsp for I := 1 a ParamCount ne
& nbsp commencer
& nbsp & nbsp & nbsp S := ParamStr(I)
& nbsp & nbsp & nbsp si la Longueur(S) > 0, alors
& ! & ! & ! & ! & nbsp si S[1] dans SwitchChars puis
& ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & nbsp Sep := Pos(element de separation, S)

& ! & ! & ! & ! & ! & ! & nbsp cas de Sep de
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp 0:
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si CompareText(Copie(S, 2, Longueur(S) -1), ParamName) = 0, alors
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Resultat := True
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Pause
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& nbsp & ! & ! & ! & ! & ! & ! & ! & nbsp 1..exemple maxint:
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si CompareText(Copie(S, 2, Sep -2), ParamName) = 0, alors
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Valeur := Copy(S, Sep 1, Longueur(S))
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Resultat := True
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Pause
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& nbsp & ! & ! & ! & ! & ! & nbsp fin //
& ! & ! & ! & ! & nbsp fin
& nbsp fin
fin


Obtenir des paramètres de ligne de commande

Obtenir des paramètres de ligne de commande : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation