How to split a string when AND or OR is found?

[inavjots]

Sample string-

Hobbies= Reading and singing.

How to store Reading and singing in two separate variables such as Hobby 1 and Hobby 2? 

Hobby1= Reading

Hobby2= Singing

Thanks

[Shmuel]

Are you looking for verbs?

What would you subset into verbs having a text like:

  a = "I like to read books and to draw pictures" - ?

You should post more examples and try to define the rules of words to look for.

[inavjots]

The question has been updated. Please take a look now. I hope it is understandable now.

[Shmuel · Accepted solution]

You gave only one example and did not relate to the example I have posted.

For your specific example you can use next code, though it's not a complete, because

you will get a bad result for the 2nd example. Check output.

data test;
   infile cards truncover;
   input hobbies $char50. ;
cards;
Reading and Singing
I like to read books and to draw pictures
;
run;
data want;
 set test;
    do i=1 to countw(hobbies);
       if scan(lowcase(hobbies),i) in ('and', 'or') then do;
          hobby1 = scan(hobbies, i-1);
          hobby2 = scan(hobbies, i+1);
          output;
       end;
    end;
run;

To get a better code you need to post more examples with the desired output.

Assuming hobbies are usually verbs, it may be more difficult to decide by a program which word is a verb.

[inavjots]

This is perfect. Much obliged.

[Reeza]

You can use SCAN() and FINDW()

Use FINDW() to see if you have an AND/OR and then if you do, use SCAN() to portion them out. Or use SCAN to loop through the words and drop any and/or's.

[inavjots]

Thank you for your reply, Could you please explain it with an example? I am not familiar with FINDW().

[Reeza]

This is the closest example I have. You can add conditions to it.
https://gist.github.com/statgeek/bed5ea2c12903b38fdcf19f3f1f1aae9

If you need further assistance please show what you've tried and what issues you're having.