commaparms - Ajouter des virgules aux paramètres de macro

Cette macro traite une chaîne de caractères contenant des paramètres de macro (ex: 'param1=val1 param2=val2') où les virgules de séparation ont été omises. L'objectif est d'éviter de devoir protéger la chaîne entière avec %str() ou %nrstr() lors de l'appel. La macro utilise une expression régulière avec la fonction PRXCHANGE pour détecter les affectations de paramètres et insérer une virgule avant chacun d'eux. Le résultat est une chaîne de paramètres correctement formatée (ex: ',param1=val1,param2=val2') puis le premier caractère (la virgule initiale) est supprimé. Le résultat est retourné non quoté pour que les signes égal ne soient pas masqués.

Analyse des données

Type : CREATION_INTERNE

Cette macro ne manipule pas de jeu de données. Elle opère sur une chaîne de caractères passée en paramètre pour la transformer.

1 Bloc de code

MACRO

Explication :
Ce bloc définit la macro `%commaparms`. Elle prend un argument `str`. La fonction `%qsysfunc(prxchange(...))` est utilisée pour effectuer une substitution basée sur une expression régulière. L'expression `s·\s*(\w+)\s*=\s*·,\1=·` recherche les motifs 'mot=valeur' (avec des espaces optionnels autour du signe '=') et les remplace par ',mot=valeur'. La fonction `%qsubstr(..., 2)` supprime la première virgule superflue. Enfin, `%unquote` s'assure que la chaîne de caractères finale est retournée sans que ses caractères spéciaux (comme '=') soient masqués, la rendant directement utilisable dans un appel de macro.

Copié !

/* / Program : commaparms.sas / Version : 1.0 / Author : Roland Rashleigh-Berry / Date : 10-Jun-2014 / Purpose : Function-style macro to add back commas between macro parameters / where these have been deliberately omitted in a string. / SubMacros : none / Notes : The result will be returned macro UNQUOTED so that equals signs / are not macro quoted. / / Where a controlling macro allows the user to run other macros and / supply parameters values then it is common practice to not use / commas to separate the parameter values and to add these / programatically when the called macro is invoked. This is done to / avoid having to macro quote the whole string due to the presence / of commas. This macro adds back the commas to the parameter list / that are needed when the macro is called. / / The macro removes spaces either side of the equals sign and / precedes the parameter name with a comma (removing the very first / comma). / / Enclose the string for conversion inside %nrbquote() when calling / this macro otherwise the first parameter name in the string will / be interpreted as a macro parameter of the %commaparms macro. / / Usage : %let params=%commaparms(%nrbquote(&str)); /=============================================================================== / PARAMETERS: /-------name------- -------------------------description------------------------ / str (pos) String /=============================================================================== / AMENDMENT HISTORY: / init --date-- mod-id ----------------------description------------------------ / rrb 25Mar13 New (v1.0) / rrb 10Jun14 Header tidy (v1.0) /=============================================================================== / This is public domain software. No guarantee as to suitability or accuracy is / given or implied. User uses this code entirely at their own risk. /=============================================================================*/ %put MACRO CALLED: commaparms v1.0; %macro commaparms(str); %unquote(%qsubstr(%qsysfunc(prxchange(%nrbquote(s·\s*(\w+)\s*=\s*·,\1=·),-1, %nrbquote(&str))),2)) %mend commaparms;

1	/*
2	/ Program : commaparms.sas
3	/ Version : 1.0
4	/ Author : Roland Rashleigh-Berry
5	/ Date : 10-Jun-2014
6	/ Purpose : Function-style macro to add back commas between macro parameters
7	/ where these have been deliberately omitted in a string.
8	/ SubMacros : none
9	/ Notes : The result will be returned macro UNQUOTED so that equals signs
10	/ are not macro quoted.
11	/
12	/ Where a controlling macro allows the user to run other macros and
13	/ supply parameters values then it is common practice to not use
14	/ commas to separate the parameter values and to add these
15	/ programatically when the called macro is invoked. This is done to
16	/ avoid having to macro quote the whole string due to the presence
17	/ of commas. This macro adds back the commas to the parameter list
18	/ that are needed when the macro is called.
19	/
20	/ The macro removes spaces either side of the equals sign and
21	/ precedes the parameter name with a comma (removing the very first
22	/ comma).
23	/
24	/ Enclose the string for conversion inside %nrbquote() when calling
25	/ this macro otherwise the first parameter name in the string will
26	/ be interpreted as a macro parameter of the %commaparms macro.
27	/
28	/ Usage : %let params=%commaparms(%nrbquote(&str));
29	/===============================================================================
30	/ PARAMETERS:
31	/-------name------- -------------------------description------------------------
32	/ str (pos) String
33	/===============================================================================
34	/ AMENDMENT HISTORY:
35	/ init --date-- mod-id ----------------------description------------------------
36	/ rrb 25Mar13 New (v1.0)
37	/ rrb 10Jun14 Header tidy (v1.0)
38	/===============================================================================
39	/ This is public domain software. No guarantee as to suitability or accuracy is
40	/ given or implied. User uses this code entirely at their own risk.
41	/=============================================================================*/
42
43	%put MACRO CALLED: commaparms v1.0;
44
45	%macro commaparms(str);
46	%unquote(%qsubstr(%qsysfunc(prxchange(%nrbquote(s·\s(\w+)\s=\s*·,\1=·),-1,
47	%nrbquote(&str))),2))
48	%mend commaparms;

Ce matériel est fourni "tel quel" par We Are Cas. Il n'y a aucune garantie, expresse ou implicite, quant à la qualité marchande ou à l'adéquation à un usage particulier concernant le matériel ou le code contenu dans les présentes. We Are Cas n'est pas responsable des erreurs dans ce matériel tel qu'il existe maintenant ou existera, et We Are Cas ne fournit pas de support technique pour celui-ci.

Informations de Copyright : This is public domain software. No guarantee as to suitability or accuracy is given or implied. User uses this code entirely at their own risk.

Retour à la liste