Formatage de Chaîne avec Délimiteurs et Quoting

La macro `%mf_getquotedstr` prend une chaîne de caractères en entrée (`IN_STR`) et la transforme en une nouvelle chaîne où chaque élément est entouré de guillemets (simples, doubles ou aucun) et séparé par un délimiteur spécifié. Les paramètres incluent:

`IN_STR`: La chaîne d'entrée non guillemetée, délimitée par des espaces (par défaut).
`DLM`: Le délimiteur à appliquer à la chaîne de sortie (virgule par défaut).
`QUOTE`: Le type de guillemets à appliquer (S pour simple, D pour double, N pour aucun). Toute autre valeur sera utilisée comme caractère de guillemet.
`indlm`: Le délimiteur utilisé dans la chaîne d'entrée (espace par défaut).

Le processus consiste à parcourir chaque 'mot' de la chaîne d'entrée, à appliquer les guillemets spécifiés, à supprimer les espaces superflus autour de chaque mot (`%qtrim`), puis à assembler la nouvelle chaîne avec le délimiteur de sortie. Si la chaîne d'entrée est vide, elle retourne deux guillemets vides (selon le type spécifié).

Analyse des données

Type : AUCUNE

La macro opère exclusivement sur des chaînes de caractères fournies en paramètres. Elle n'accède ni ne crée de datasets SAS, ni ne dépend de données externes (fichiers, tables).

1 Bloc de code

MACRO

Explication :
Ce bloc définit la macro `%mf_getquotedstr` qui traite une chaîne d'entrée. Elle commence par déterminer le caractère de guillemet à utiliser, en convertissant 'S' en guillemet simple (`byte(39)`) et 'D' en guillemet double (`byte(34)`) via `%qsysfunc`. Elle initialise une variable locale `i` pour parcourir la chaîne d'entrée `IN_STR` en utilisant une boucle `%do %while` et la fonction `%qscan` pour extraire chaque élément selon le délimiteur d'entrée `indlm`. Chaque élément est ensuite guillemeté et nettoyé des espaces excédentaires avec `%qtrim`. Le premier élément initialise le `buffer`, les suivants sont ajoutés avec le `DLM` spécifié. Enfin, `%sysfunc(coalescec())` est utilisé pour gérer le cas où la chaîne d'entrée est vide, en retournant deux guillemets. Le résultat final est la chaîne `&buffer`.

Copié !

1	%macro mf_getquotedstr(IN_STR
2	,DLM=%str(,)
3	,QUOTE=S
4	,indlm=%str( )
5	)//STORE SOURCE/;
6	/* credit Rowland Hale - byte34 is double quote, 39 is single quote */
7	%IF "e=S %THEN %let quote=%qsysfunc(byte(39));
8	%ELSE %IF "e=D %THEN %let quote=%qsysfunc(byte(34));
9	%ELSE %IF "e=N %THEN %let quote=;
10	%local i item buffer;
11	%let i=1;
12	%DO %while (%qscan(&IN_STR,&i,%str(&indlm)) ne %str() ) ;
13	%let item=%qscan(&IN_STR,&i,%str(&indlm));
14	%IF %bquote("E) ne %THEN %let item="E%qtrim(&item)"E;
15	%ELSE %let item=%qtrim(&item);
16
17	%IF (&i = 1) %THEN %let buffer =%qtrim(&item);
18	%ELSE %let buffer =&buffer&DLM%qtrim(&item);
19
20	%let i = %eval(&i+1);
21	%END;
22
23	%let buffer=%sysfunc(coalescec(%qtrim(&buffer),"E"E));
24
25	&buffer
26
27	%mend mf_getquotedstr;

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 : Auteur: Allan Bowe

Retour à la liste