请问如何合并多列字符变量为一列。（相同则合并，不同则保留）

请问如何合并多列字符变量为一列，相同的就只记录一次，不同的则保留。
举个例子。

4列的值分别为：
A          B         C          D
Car      Car      Car      Car
Love    Peace  Fight   Fight
5         5           5          6

合并完的结果应该是

A|B|C|D
Car
Love|Peace|Fight
5|6

多谢！

1. data raw;
   
2.     input A $ B $ C $ D $;
   
3. datalines;
   
4. Car Car Car Car
   
5. Love Peace Fight Fight
   
6. 5 5 5 6
   
7. ;
   
8. data out;
   
9.     length result $100;
   
10.     set raw;
    
11.     array arr $20 a--d;
    
12.     do over arr;
    
13.         if indexw(result,arr)=0 then result=catx('|',result,arr);
    
14.     end;
    
15. run;

复制代码

请问可不可以解释下indexw的用法 比如下面这些例子，我看不太明白。。
s='asdf adog dog';
p='dog  ';
x=indexw(s,p);
put x;

result:
11

s='abcdef x=y';
p='def';
x=indexw(s,p);
put x;

result:
0

x="abc,def@ xyz";
abc=indexw(x, " abc ", "@");
put abc;

result:
0

x="abc,def@ xyz";
comma=indexw(x, ",", "@");
put comma;

result:
0

x='abc,def% xyz';
def=indexw(x, 'def', '%,');
put def;


result:
5

x="abc,def@ xyz";
at=indexw(x, "@", "@");
put at;

result:
0

x="abc,def@ xyz";
xyz=indexw(x, " xyz", "@");
put xyz;


result:

9


另外如果这段想写进macro里面应该怎么改写阿
多谢！

hopewell 发表于 2012-7-23 08:18

请问可不可以解释下indexw的用法 比如下面这些例子，我看不太明白。。
s='asdf adog dog';
p='dog  ';
x=indexw(s,p);
put x;

result:
11

s='abcdef x=y';
p='def';
x=indexw(s,p);
put x;

result:
0

x="abc,def@ xyz";
abc=indexw(x, " abc ", "@");
put abc;

result:
0

x="abc,def@ xyz";
comma=indexw(x, ",", "@");
put comma;

result:
0

x='abc,def% xyz';
def=indexw(x, 'def', '%,');
put def;


result:
5

x="abc,def@ xyz";
at=indexw(x, "@", "@");
put at;

result:
0

x="abc,def@ xyz";
xyz=indexw(x, " xyz", "@");
put xyz;


result:

9


另外如果这段想写进macro里面应该怎么改写阿
多谢！

可以再试试find函数：

1. data have;
   
2.     input (var1-var4) ($);
   
3. datalines;
   
4. A B C D
   
5. Car Car Car Car
   
6. Love Peace Fight Fight
   
7. 5 5 5 6
   
8. ;
   
9. 
   
10. data want;
    
11.         set have;
    
12.         length char $ 100;
    
13.         array tmp[*] var1-var4;
    
14.         do i=1 to dim(tmp);
    
15.                 if find(char,tmp[i])=0 then char=catx("|",char,tmp[i]);
    
16.         end;
    
17.         drop i;
    
18. run;

复制代码

huangyao05 发表于 2012-7-23 08:59
请问可不可以解释下indexw的用法 比如下面这些例子，我看不太明白。。
s='asdf adog dog';
p='dog  ';
...

indexw()是从字符串中查找一个word，这个word是前后有分隔符分隔的。返回第一次出现这个word的位置。
第一个例子 在s中查找dog这个word，虽然第一次出现dog是在第7个位置，但是这个dog前面没有分隔符，所以算第二个。


第二个例子，def没有被分隔出来。所以没有找到

第三个例子，指定分隔符是@,abc后面的符号是"," 不是由指定的分隔符分割，所以没有找到。

第四个例子，同第三个例子。

第五个例子，用%和“,”分隔。 def前面是","后面是"@".前后都有分隔符，是一个word.

第六个例子，用@分隔，查找@。

最后一个，前面有@,后面是字符串末尾，是合法的word.