帮忙完善一个源码很容易的

从此形同陌路

这个源码是微凉大神做的。大家看第一张图片需要回车才可以。第二张图片如果不回车就只能取第一个拼音。大家帮忙完善一下谢谢大家了，源码已经发了。

爱过你的傻瓜

分割的地方改一下就好 了

HeiSir

[e]
.版本 2 .子程序 超级_取所有_发音, 文本型, , 输入一串汉字，对汉字进行拼音转换 .参数 汉字, 文本型 .局部变量 nLength, 整数型 .局部变量 nSite, 整数型 .局部变量 nData, 字节集 .局部变量 nText, 文本型 .局部变量 PinYin, 文本型, , "0" .局部变量 RetPinYin, 文本型 .局部变量 I, 整数型 .局部变量 Site, 整数型 nData ＝ 到字节集 (汉字) nLength ＝ 取字节集长度 (nData) nSite ＝ 1 .判断循环首 (nSite ≤ nLength)    Site ＝ nSite    .如果 (取字节集数据 (nData, 1, Site) ≥ 128)        nText ＝ 到文本 (取字节集中间 (nData, nSite, 2))        PinYin ＝ 取所有发音 (nText)        .如果 (取数组成员数 (PinYin) ＞ 0)            RetPinYin ＝ RetPinYin ＋ PinYin [1] ＋ “ ”         .否则             RetPinYin ＝ RetPinYin ＋ 到文本 (nText)        .如果结束         nSite ＝ nSite ＋ 2    .否则         RetPinYin ＝ RetPinYin ＋ 到文本 (取字节集中间 (nData, nSite, 1))        nSite ＝ nSite ＋ 1    .如果结束 .判断循环尾 () 返回 (RetPinYin)
[/e]

这个函数应该可以。

HeiSir

[e]
.版本 2.子程序 超级_取所有_发音, 文本型, , 输入一串汉字，对汉字进行拼音转换.参数 汉字, 文本型.局部变量 nLength, 整数型.局部变量 nSite, 整数型.局部变量 nData, 字节集.局部变量 nText, 文本型.局部变量 PinYin, 文本型, , "0".局部变量 RetPinYin, 文本型.局部变量 I, 整数型.局部变量 Site, 整数型nData ＝ 到字节集 (汉字)nLength ＝ 取字节集长度 (nData)nSite ＝ 1.判断循环首 (nSite ≤ nLength)    Site ＝ nSite    .如果 (取字节集数据 (nData, 1, Site) ≥ 128)        nText ＝ 到文本 (取字节集中间 (nData, nSite, 2))        PinYin ＝ 取所有发音 (nText)        .如果 (取数组成员数 (PinYin) ＞ 0)            RetPinYin ＝ RetPinYin ＋ PinYin [1] ＋ “ ”        .否则            RetPinYin ＝ RetPinYin ＋ 到文本 (nText)        .如果结束        nSite ＝ nSite ＋ 2    .否则        RetPinYin ＝ RetPinYin ＋ 到文本 (取字节集中间 (nData, nSite, 1))        nSite ＝ nSite ＋ 1    .如果结束.判断循环尾 ()返回 (RetPinYin)
[/e]

HeiSir

.版本 2

.子程序 超级_取所有_发音, 文本型, , 输入一串汉字，对汉字进行拼音转换
.参数 汉字, 文本型
.局部变量 nLength, 整数型
.局部变量 nSite, 整数型
.局部变量 nData, 字节集
.局部变量 nText, 文本型
.局部变量 PinYin, 文本型, , "0"
.局部变量 RetPinYin, 文本型
.局部变量 I, 整数型
.局部变量 Site, 整数型

nData ＝ 到字节集 (汉字)
nLength ＝ 取字节集长度 (nData)
nSite ＝ 1
.判断循环首 (nSite ≤ nLength)
    Site ＝ nSite
    .如果 (取字节集数据 (nData, 1, Site) ≥ 128)
        nText ＝ 到文本 (取字节集中间 (nData, nSite, 2))
        PinYin ＝ 取所有发音 (nText)
        .如果 (取数组成员数 (PinYin) ＞ 0)
            RetPinYin ＝ RetPinYin ＋ PinYin [1] ＋ “ ”
        .否则
            RetPinYin ＝ RetPinYin ＋ 到文本 (nText)
        .如果结束
        nSite ＝ nSite ＋ 2
    .否则
        RetPinYin ＝ RetPinYin ＋ 到文本 (取字节集中间 (nData, nSite, 1))
        nSite ＝ nSite ＋ 1
    .如果结束

.判断循环尾 ()
返回 (RetPinYin)

HeiSir

这附件事源码哦。楼主。