请问如何截取字符

shiyiming

有一串字符序列：Z222222.47， T674.xx，........

我有两个规则，规则一：从左边第一个字符起开始保留，直到遇到.为止，不保留.，希望得到的结果是Z222222,   T674 ......
                       规则二：将字符串中间的.删除， 希望得到的结果是Z22222247， T674xx........

请问该如何写啊？

shiyiming

[code:24jfh304]data raw;
        input chr $15.;
        length chr1 $15;
        chr1=scan(chr,1,'.');
        chr2=compress(chr,'.');
datalines;
Z222222.47
T674.xx
;[/code:24jfh304]

shiyiming

谢谢了