topic Re: Adding Dashes to Text in SAS Procedures

Adding Dashes to Text

altijani — Mon, 04 Mar 2019 18:27:07 GMT

Greetings community,

I have this type of dataset:

A123B12C123

Here is what I need:

A123-B12-C123

Can you please let me know how to convert this dataset?

Thank you,

Altijani

Re: Adding Dashes to Text

PaigeMiller — Mon, 04 Mar 2019 18:33:49 GMT

It's really hard to generalize from a single example.

Do you want dashes between numbers that are followed by a letter? Or dashes after the fourth character and after the 7th character? Or is there some other rule?

Re: Adding Dashes to Text

altijani — Mon, 04 Mar 2019 18:47:38 GMT

The rule has multiple combinations. What I want is to break down the field by 4 (characters/numbers) followed by a dash, then 3 (characters/numbers) followed by a dash, and then will be 4 (characters/Numbers) left at the end.

Re: Adding Dashes to Text

andreas_lds — Mon, 04 Mar 2019 18:47:34 GMT

Fully agree to @PaigeMiller : please post more examples or describe the rule to be implemented.

I guessed that a dash should be inserted between digit and letter. If "id" is 11 chars long, you can't store the version with dashes in it.

data narf;

    length id $ 11 want $ 30;

    input id;
    
    want = prxchange('s/([A-Z]\d+)([A-Z]\d+)([A-Z]\d+)/$1-$2-$3/', -1, trim(id));
    
    datalines;
A123B12C123
;
run;

Re: Adding Dashes to Text

PaigeMiller — Mon, 04 Mar 2019 18:48:45 GMT

data want;
    set have;
    length newstring $ 13;
    str1=substr(text,1,4);
    str2=substr(text,5,3);
    str3=substr(text,8,4);
    newstring = cats(str1,'-',str2,'-',str3);
run;

Re: Adding Dashes to Text

altijani — Mon, 04 Mar 2019 18:49:26 GMT

Sorry:

I need a dash on the 5th and 9th location within the variable.

Re: Adding Dashes to Text

PGStats — Mon, 04 Mar 2019 18:50:01 GMT

newId = catx("-", substr(id,1,4), substr(id,5,3), substr(id,8));

Re: Adding Dashes to Text

andreas_lds — Mon, 04 Mar 2019 18:52:08 GMT

As always, i thought to much 😉

Re: Adding Dashes to Text

Ksharp — Tue, 05 Mar 2019 12:45:52 GMT

data x;
x='A123B12C123';
want=prxchange('s/-$//',1,strip(prxchange('s/([a-z]+\d+)/$1-/i',-1,x)));

run;