|
SCANQ function works in SAS 9.2 but it is no longer in the
documentation.
I did find this reference in the 9.2 enhancements document:
The SCANQ function and the CALL SCANQ routine have been removed from
the documentation and replaced by the superior functionality of the
SCAN function and CALL SCAN routine.
I think they want you to use scan(str,n,dlm,'q') instead of scanq
(str,n,dlm).
On Nov 26, 6:29 pm, "data _null_;" <datan...@gmail.com> wrote:
> On Nov 26, 3:15 pm, xlr82sas <xlr82...@aol.com> wrote:
>
>
>
>
>
> > Oh how they struggle with PERL(except when using packages - just like
> > R)
>
> > The issue is dealing with commas within quotes. We don't want the
> > comma in "Cimetrix, Inc"
> > to be used as a separator.
>
> > SAR001,"","Cimetrix, Inc"
>
> > In SAS this does not work
>
> > data tst;
> > tst = 'SAR001,"","Cimetrix, Inc"';
> > put tst=;
> > tre=scan(tst,3,',');
> > put tre=;
> > run;
>
> > but this does
>
> > /* you can use the $quote with non-quoted strings */
> > data tst;
> > infile cards dsd delimiter=',';
> > format nam $quote10.
> > mty $quote3.
> > bus $quote16.;
> > input nam mty bus;
> > put bus= mty= nam=;
> > cards;
> > SAR001,"","Cimetrix, Inc"
> > ;
> > run;
>
> > Several modules can handle this sort of parsing--"Text::Balanced",
> > "Text::CSV", "Text::CSV_XS", and "Text::ParseWords", among
> > others.
>
> > Take the example case of trying to split a string that is
> > comma-separated into its different fields. You can't use "split
> > (/,/)"
> > because you shouldn't split if the comma is inside quotes. For
> > example,
> > take a data line like this:
>
> > SAR001,"","Cimetrix, Inc","Bob Smith","CAM",N,
> > 8,1,0,7,"Error, Core Dumped"
>
> > Due to the restriction of the quotes, this is a fairly complex
> > problem.
> > Thankfully, we have Jeffrey Friedl, author of *Mastering Regular
> > Expressions*, to handle these for us. He suggests (assuming your
> > string
> > is contained in $text):
>
> > @new = ();
> > push(@new, $+) while $text =~ m{
> > "([^\"\\]*(?:\\.[^\"\\]*)*)",? # groups the
> > phrase inside the quotes
> > | ([^,]+),?
> > | ,
> > }gx;
> > push(@new, undef) if substr($text,-1,1) eq ',';
>
> > If you want to represent quotation marks inside a
> > quotation-mark-delimited field, escape them with backslashes (eg,
> > "like
> > \"this\"".
>
> > Alternatively, the "Text::ParseWords" module (part of the standard
> > Perl
> > distribution) lets you say:
>
> > use Text::ParseWords;
> > @new = quotewords(",", 0, $text);
>
> scanQ
>
> 92 data tst;
> 93 tst = 'SAR001,"","Cimetrix, Inc"';
> 94 put tst=;
> 95 tre=scanq(tst,3,',');
> 96 put tre=;
> 97 run;
>
> tst=SAR001,"","Cimetrix, Inc"
> tre="Cimetrix, Inc"- Hide quoted text -
>
> - Show quoted text -
|
