topic Re: Split name vertically in SAS Programming

Split name vertically

pavank — Fri, 05 Apr 2024 10:41:46 GMT

data vertical_split;
    name = 'William Shakespeare';
    length character $30;
    do i = 1 to length(name);
        character = substr(name, i, 1);
        output; 
    end;
    drop i;
run;

proc print data=vertical_split noobs;
run;

required output

ame	character
William	W
William	i
William	l
William	l
William	i
William	a
William	m

Shakespeare	S
Shakespeare	h
Shakespeare	a
Shakespeare	k
Shakespeare	e
Shakespeare	s
Shakespeare	p
Shakespeare	e
Shakespeare	a
Shakespeare	r
Shakespeare	e

Re: Split name vertically

Patrick — Fri, 05 Apr 2024 10:58:21 GMT

@pavank The required output you show is what your code creates so what's the question?

Re: Split name vertically

pavank — Fri, 05 Apr 2024 11:01:20 GMT

Hi Patrick

i give required output below of my code

Re: Split name vertically

Patrick — Fri, 05 Apr 2024 11:04:57 GMT

@pavank wrote:

Hi Patrick

i give required output below of my code

@pavank The code you've posted already creates the output that you define as desired. Can you please be very specific what else you're asking for.

Re: Split name vertically

pavank — Fri, 05 Apr 2024 11:06:50 GMT

my code give below output but it's not required output


name	character
William Shakespeare	W
William Shakespeare	i
William Shakespeare	l
William Shakespeare	l
William Shakespeare	i
William Shakespeare	a
William Shakespeare	m
William Shakespeare
William Shakespeare	S
William Shakespeare	h
William Shakespeare	a
William Shakespeare	k
William Shakespeare	e
William Shakespeare	s
William Shakespeare	p
William Shakespeare	e
William Shakespeare	a
William Shakespeare	r
William Shakespeare	e

Re: Split name vertically

PaigeMiller — Fri, 05 Apr 2024 11:57:11 GMT

What is wrong with the output from your code? You haven't told us. Please be specific and detailed.

Re: Split name vertically

pavank — Fri, 05 Apr 2024 12:05:30 GMT

Hi Patrick

i want below output

name	character
William	W
William	i
William	l
William	l
William	i
William	a
William	m

Shakespeare	S
Shakespeare	h
Shakespeare	a
Shakespeare	k
Shakespeare	e
Shakespeare	s
Shakespeare	p
Shakespeare	e
Shakespeare	a
Shakespeare	r
Shakespeare	e

Re: Split name vertically

PaigeMiller — Fri, 05 Apr 2024 12:12:27 GMT

It would help if you explain in words, instead of pasting in the same output as before which we didn't understand. But I think I see why you said the output is wrong.

So let me ask you something. At no point in your code have you even tried to write code that splits William and Shakespeare. Could you take a crack at that?

Re: Split name vertically

Patrick — Fri, 05 Apr 2024 14:04:36 GMT

@pavank I missed to see that you only want part of the name. As a tip: If someone doesn't understand what you are saying/asking don't just repeat the same again but express it in different words.

data vertical_split;
  length name part_name $40;
  name = 'William  Shakespeare';

  length character $1;
  name=compbl(name);
  do i = 1 to length(name);
    character = substr(name, i, 1);
    if not missing(character) then part_name=scan(name,part_no+1,' ');
    else do; part_no+1; call missing(part_name); end;
    output;
  end;
  drop i part_no;
run;

proc print data=vertical_split noobs;
run;

Re: Split name vertically

ErikLund_Jensen — Fri, 05 Apr 2024 14:24:16 GMT

Hi @pavank

Just out out of curiosity, why do dou want to split the name in single letters while keeping embedded spaces without a name reference? - It beats me what that would lead to, so would you care to give some context information and tell us about your final goal?

Re: Split name vertically

ballardw — Fri, 05 Apr 2024 14:33:28 GMT

A slightly different approach:

data vertical_split;
    name = 'William Shakespeare';
    length nameword $ 30 character $ 1;
    do i = 1 to countw(name,' ');
       nameword=scan(name,i,' ');
       do j=1 to length(nameword);
          character = substr(nameword, j, 1);
          output;
       end;
       /* to put the blank row between "words" of the name*/
       if i < countw(name,' ') then do;
           call missing(nameword,character);
           output;
       end; 
    end;
    drop i j name;
run;

Using SCAN to get space-delimited "words" from the name to get the partial name and then write out the characters of that partial name.

Insert a space line between the words.

Re: Split name vertically

mkeintz — Sat, 06 Apr 2024 01:16:42 GMT

Here's an alternative whose primary (only?) advantage is that the code has fewer semicolons:

data vertical_split (drop=L name);
  name = 'William Shakespeare';  
  do L=1 to length(name);
    LTR=char(name,L);
    length subname $40;
    if subname=' ' and LTR^=' ' then subname=scan(substr(name,L),1);
    else if LTR=' ' then subname=' ';
    output;
  end;
run;

Code above is modified slightly to accommodate subnames separated by more than one blank.

Re: Split name vertically

pavank — Sat, 06 Apr 2024 06:39:26 GMT

Hi ballardw ,

Thank you veyr much for your solution

Re: Split name vertically

pavank — Sat, 06 Apr 2024 06:40:36 GMT

Hi @mkeintz ,

Thank you very much your solution