help!!!HOW TO REPLACE??

shiyiming

[b:e93vstfg]以下数据所要做的就是把每个数字从左到右数，第4位若为“1”，则替换为“.”，否则什么也不做，如13416=134.6[/b:e93vstfg][code:e93vstfg]data niubi;
input x@@;
cards;
13416 14615 13719 14112 14414 146 14511 14514 14712 14519 14318 14412
143 14711 14719 14912 15012 15113 15115 15018 149 14517 14517 146
14519 144 14311 14117 13915 13814 13619 13614 13619 13714 13814 14115
13919 14012 141 14115 141 14115 14114 14115 14117 14316 14715 149
15714 15919 16215 16417 166 16617 16811 16918 17417 180 18414 19014
19318 19715 19912 20013 199 19711 19317 191 19516 19612 19411 19318
19016 18615 18316 182 19017 19112 19118 18918 19015 19116 19719 19618
19413 19213 19012 18815 18215 17516 17313 16813 16811 16417 16512 16716
16118 16018 16018 15819 15611 15214 15111 14818 14717 15717 15215 15618
15919 16519 16817 17111 17115 17017 16716 165 16916 17312 17212 17614
17619 18215 18415 18511 18417 18313 18017 17719 18314 18414 18119 184
18315 188 18918 18917 18813 18417 18013 17611 18015 18416 18111 18116
17917 18511 18716 18811 18619 18419 18312 180 18514 19013 18215 19212
19318 20015 20212 20719 20718 21017 20211 20113 20815 20616 20717 21017
20616 21411 21519 21613 21215 20518 20013 19613 20214 20113 19714 20411
19215 19819 20019 20011 19314 19618 18617 18115 18316 18618 18715 18913
18519 19114 19416 19211 18911 18618 18015 17914 18312 18618 18919 19315
18516 18914 19012 19116 18915 18717 185 183 18617 191 19216 19619
18818 19817 19911 19814 19612 19213 18811 18114 19317 19713 19814 19016
;
/***以上数据所要做的就是把每个数字从左到右数，第三位若为“1”，则替换为“.”，否则什么也不做，如13416=134.6****/[/code:e93vstfg]

shiyiming

[code:3eewotn9]data niubi(drop=temp);
        input temp $ @@;
        if substr(temp,4,1)='1' then substr(temp,4,1)='.';
        x=input(temp,8.);
cards;
13416 14615 13719 14112 14414 146 14511 14514 14712 14519 14318 14412
143 14711 14719 14912 15012 15113 15115 15018 149 14517 14517 146
14519 144 14311 14117 13915 13814 13619 13614 13619 13714 13814 14115
13919 14012 141 14115 141 14115 14114 14115 14117 14316 14715 149
15714 15919 16215 16417 166 16617 16811 16918 17417 180 18414 19014
;[/code:3eewotn9]

shiyiming

谢谢 hopewell ,