sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-14 20:10:05 +00:00
Code Issues Projects Releases Wiki Activity

fix: using byte codes to tidy up apostrophe logic, and new param for mf_getquotedstr macro

Browse Source
This commit is contained in:
munja
2021-12-06 00:12:36 +00:00
parent 6906f025d6
commit b13c33cbde
3 changed files with 22 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
all.sas
View File

@@ -626,12 +626,12 @@ https://github.com/yabwon/SAS_PACKAGES/blob/main/packages/baseplus.md#functionex
for: for:
> "these","words","are","double","quoted" > "these","words","are","double","quoted"
@param in_str the unquoted, spaced delimited string to transform @param [in] in_str The unquoted, spaced delimited string to transform
@param dlm= the delimeter to be applied to the output (default comma) @param [in] dlm= The delimeter to be applied to the output (default comma)
@param indlm= the delimeter used for the input (default is space) @param [in] indlm= (,) The delimeter used for the input (default is space)
@param quote= the quote mark to apply (S=Single, D=Double). If any other value @param [in] quote= (S) The quote mark to apply (S=Single, D=Double, N=None).
than uppercase S or D is supplied, then that value will be used as the If any other value than uppercase S or D is supplied, then that value will
quoting character. be used as the quoting character.
@return output returns a string with the newly quoted / delimited output. @return output returns a string with the newly quoted / delimited output.
@version 9.2 @version 9.2
@@ -641,9 +641,10 @@ https://github.com/yabwon/SAS_PACKAGES/blob/main/packages/baseplus.md#functionex
%macro mf_getquotedstr(IN_STR,DLM=%str(,),QUOTE=S,indlm=%str( ) %macro mf_getquotedstr(IN_STR,DLM=%str(,),QUOTE=S,indlm=%str( )
)/*/STORE SOURCE*/; )/*/STORE SOURCE*/;
%if &quote=S %then %let quote=%str(%'); /* credit Rowland Hale - byte34 is double quote, 39 is single quote */
%else %if &quote=D %then %let quote=%str(%"); %if &quote=S %then %let quote=%qsysfunc(byte(39));
%else %let quote=%str(); %else %if &quote=D %then %let quote=%qsysfunc(byte(34));
%else %if &quote=N %then %let quote=;
%local i item buffer; %local i item buffer;
%let i=1; %let i=1;
%do %while (%qscan(&IN_STR,&i,%str(&indlm)) ne %str() ) ; %do %while (%qscan(&IN_STR,&i,%str(&indlm)) ne %str() ) ;
@@ -7946,7 +7947,7 @@ run;
%let tempvw=%mf_getuniquename(prefix=&sysmacroname); %let tempvw=%mf_getuniquename(prefix=&sysmacroname);
proc sql; proc sql;
create view work.&tempvw as select * from &lib..&ds create view work.&tempvw as select * from &lib..&ds
order by %mf_getquotedstr(&sortkey,quote=%str()); order by %mf_getquotedstr(&sortkey,quote=N);
/* append sorted data */ /* append sorted data */
proc append base=&lib..&tempds2 data=work.&tempvw; proc append base=&lib..&tempds2 data=work.&tempvw;

19
base/mf_getquotedstr.sas
View File

@@ -15,12 +15,12 @@
for: for:
> "these","words","are","double","quoted" > "these","words","are","double","quoted"
@param in_str the unquoted, spaced delimited string to transform @param [in] in_str The unquoted, spaced delimited string to transform
@param dlm= the delimeter to be applied to the output (default comma) @param [in] dlm= The delimeter to be applied to the output (default comma)
@param indlm= the delimeter used for the input (default is space) @param [in] indlm= (,) The delimeter used for the input (default is space)
@param quote= the quote mark to apply (S=Single, D=Double). If any other value @param [in] quote= (S) The quote mark to apply (S=Single, D=Double, N=None).
than uppercase S or D is supplied, then that value will be used as the If any other value than uppercase S or D is supplied, then that value will
quoting character. be used as the quoting character.
@return output returns a string with the newly quoted / delimited output. @return output returns a string with the newly quoted / delimited output.
@version 9.2 @version 9.2
@@ -30,9 +30,10 @@
%macro mf_getquotedstr(IN_STR,DLM=%str(,),QUOTE=S,indlm=%str( ) %macro mf_getquotedstr(IN_STR,DLM=%str(,),QUOTE=S,indlm=%str( )
)/*/STORE SOURCE*/; )/*/STORE SOURCE*/;
%if &quote=S %then %let quote=%str(%'); /* credit Rowland Hale - byte34 is double quote, 39 is single quote */
%else %if &quote=D %then %let quote=%str(%"); %if &quote=S %then %let quote=%qsysfunc(byte(39));
%else %let quote=%str(); %else %if &quote=D %then %let quote=%qsysfunc(byte(34));
%else %if &quote=N %then %let quote=;
%local i item buffer; %local i item buffer;
%let i=1; %let i=1;
%do %while (%qscan(&IN_STR,&i,%str(&indlm)) ne %str() ) ; %do %while (%qscan(&IN_STR,&i,%str(&indlm)) ne %str() ) ;

2
base/mp_sortinplace.sas
View File

@@ -89,7 +89,7 @@ run;
%let tempvw=%mf_getuniquename(prefix=&sysmacroname); %let tempvw=%mf_getuniquename(prefix=&sysmacroname);
proc sql; proc sql;
create view work.&tempvw as select * from &lib..&ds create view work.&tempvw as select * from &lib..&ds
order by %mf_getquotedstr(&sortkey,quote=%str()); order by %mf_getquotedstr(&sortkey,quote=N);
/* append sorted data */ /* append sorted data */
proc append base=&lib..&tempds2 data=work.&tempvw; proc append base=&lib..&tempds2 data=work.&tempvw;