[程序分享] 把汉字转换为对应拼音的宏 [推广有奖]

11楼

qcasrl 发表于 2015-8-21 14:49:00

看到分享的宏中有这一段 F:\GB2312汉字拼音对照表（6727字）.txt
是需要先下载一个汉字拼音对照表吗

12楼

teqel 发表于 2015-8-21 21:05:25

qcasrl 发表于 2015-8-21 14:49
看到分享的宏中有这一段 F:\GB2312汉字拼音对照表（6727字）.txt
是需要先下载一个汉字拼音对照 ...

下载主贴上的文件

13楼

teqel 发表于 2015-8-21 21:23:04

不过看上去是乱码?

14楼

统计2008陈利 发表于 2015-8-24 09:25:25

赞一下！！！

15楼

qcasrl 发表于 2015-8-25 14:32:34

teqel 发表于 2015-8-21 21:23
不过看上去是乱码?

随贴的txt是可以用的，但是出现了很多字是库里面没有的就无法转的情况

16楼

qcasrl 发表于 2015-8-25 14:42:06

teqel 发表于 2015-8-21 21:23
不过看上去是乱码?

用楼主随贴的txt是可以顺利运行的。但是为了解决部分字无法识别的情况，想着用GBK（2万多字）的字库替换GB（6000多字）的库，运行时采用的是楼上说的这种方法： QQ图片20140225144014.png

data _null_;
      set RHTPFT_HanziToPinyin;
      call symputx(RHTPFT_Hanzi,RHTPFT_Pinyin);
run;

proc sql noprint;
      select distinct RHTPFT_Hanzi into :hcl separated by "|" from RHTPFT_HanziToPinyin;
quit;

options noquotelenmax;

data ab;
set aa;
pinyin=resolve(prxchange("s/(&hcl)/&\1./",-1,name));
run;

运行后sas的log提示如下，是什么原因，怎么解决
QQ图片20140225143311.png