在字段1输入汉字词组，则在字段2自动生成由各汉字拼音的首位字母组成的简码，该功能如何实现？
例如：在字段1输入“我们爱编程论坛”，则在字段2自动生成“WMABCLT”

用RMH大师的Mydll.dll
Declare String topy IN "MyDll.dll" String
Replace 拼音字段 With topy("待转换字段")

[此贴子已经被作者于2006-8-4 8:34:46编辑过]

先建立每个字所对应的汉语拼音首字母表，然后将输入的汉字逐个进行转换。

楼上的,按你的方法这个程序还用的着做吗?汉字有多少你知道吗?

用任大侠的MYDLL确实是可以实现,也可以用以下的方法

FUNCTION CHRtoPY
*****给别人代码还被误会，我把代码删除，省得烦心
RETURN cPYCHR


调用方法为
?chrtopy("这里是你的汉字")

[此贴子已经被作者于2006-8-5 16:48:33编辑过]

感谢各位热心帮助！
但不知“RMH大师的Mydll.dll”到哪里找？
FOWN版主的方法我试过了，没有出结果，自定义函数中间过程不运行，直接跳到了末尾。

怎么不能用？我很少给别人代码，可给一次，还弄个像骗人的一样，下面的图就是我刚才实验的，你看一下图的左上角是执行结果，把汉字每个拼音头显示出来了。什么人啊，下次我再也不给别人代码了

fown斑竹辛苦了！
感谢你侠义给出了代码，但我实验的方法和你的一样，但就是出不来你实验的结果，很纳闷。
在“FUNCTION CHRtoPY”语句后任一行加入语句“？'感谢帮助'”，程序运行后并不显示该语句的输出结果，
但在“FUNCTION CHRtoPY”语句前加入上述语句，则程序运行后显示输出结果。所以我认为自定义函数中间过程没运行。
我现在对此还很纳闷。

*————————————chrtopy函数代码————————————————————————————————————
*参数“cHZCHR”，用来接收要转化的字符串
FUNCTION chtopy(cHZCHR)
LOCAL cPYCHR,i,j,C,HZ
cPYCHR=""
*设置排序方式为“拼音”，这个比较重要，否则程序无法正确运行
SET COLLATE TO "PINYIN"
*从b开始的每个拼音码的首字符
PYCode="八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗"
FOR i=1 TO LEN(cHZCHR)
*判断是否为汉字
IF ASC(SUBSTR(cHZCHR,i,1))>160
HZ=SUBSTR(cHZCHR,i,2)
C=""
FOR j=1 TO 26
IF SUBSTRC(HZ,1,1)<SUBSTRC(PYCode,j,1) &&进行汉字比较
C=CHR(96+j) &&得到首位拼音码
j=27
ENDIF
ENDFOR
cPYCHR=cPYCHR+UPPER(C)
i=i+1
ELSE
*如果不是汉字，返回原来的字符
cPYCHR=cPYCHR+UPPER(SUBSTR(cHZCHR,i,1))
ENDIF
ENDFOR
RETURN cPYCHR
ENDFUNC

程序对汉字的一级字库有效，而对二级字库好象无效?

这年头自以为是的人太多了