文本_转拼音 使用时出现的问题

ab63333334

忘记从哪个版本开始了

文本_转拼音 这个方法少了个参数,不能设置是否使用正则,默认为使用

个人在使用时(大量数据循环匹配,插入列表框),出现CPU占用飙升,界面卡死情况,添加处理事件也无效,不知道是否是我使用问题

虽然我已经单独摘出来使用原来的逻辑了,但是还是提一下吧

现版本代码

  

子程序名	返回值类型	公开	备 注
文本_转拼音	文本型		把一段文本转换到拼音
参数名	类 型	参考	可空	数组	备 注
欲转拼音的文本	文本型
是否加空格	逻辑型				可空,默认为假,不加;
是否全角	逻辑型				可空，默认为假，半角

变量名	类 型	静态	数组	备 注
局_文本	文本型
局_字符数量	整数型
局_计次	整数型
局_结果	文本型

欲转拼音的文本 ＝ 到全角 (欲转拼音的文本)
局_字符数量 ＝ 取文本长度 (欲转拼音的文本) ÷ 2
计次循环首 (局_字符数量, 局_计次)
局_文本 ＝ 取文本中间 (欲转拼音的文本, 局_计次 × 2 － 1, 2)
如果 (文本_是否为汉字 (局_文本, 真))
判断 (是否加空格)
局_结果 ＝ 局_结果 ＋ 取拼音 (局_文本, 1) ＋ “ ”
局_结果 ＝ 局_结果 ＋ 取拼音 (局_文本, 1)

判断 (是否全角)
局_结果 ＝ 局_结果 ＋ 到全角 (局_文本)
局_结果 ＝ 局_结果 ＋ 到半角 (局_文本)


计次循环尾 ()
欲转拼音的文本 ＝ 到半角 (欲转拼音的文本)
返回 (局_结果)

.版本 2<br /> <br /> .子程序 文本_转拼音, 文本型, 公开, 把一段文本转换到拼音<br /> .参数 欲转拼音的文本, 文本型<br /> .参数 是否加空格, 逻辑型, 可空, 可空,默认为假,不加;<br /> .参数 是否全角, 逻辑型, 可空, 可空，默认为假，半角<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_字符数量, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_结果, 文本型<br /> <br /> 欲转拼音的文本 ＝ 到全角 (欲转拼音的文本)<br /> 局_字符数量 ＝ 取文本长度 (欲转拼音的文本) ÷ 2<br /> .计次循环首 (局_字符数量, 局_计次)<br />     局_文本 ＝ 取文本中间 (欲转拼音的文本, 局_计次 × 2 － 1, 2)<br />     .如果 (文本_是否为汉字 (局_文本, 真))<br />         .判断开始 (是否加空格)<br />             局_结果 ＝ 局_结果 ＋ 取拼音 (局_文本, 1) ＋ “ ”<br />         .默认<br />             局_结果 ＝ 局_结果 ＋ 取拼音 (局_文本, 1)<br />         .判断结束<br /> <br />     .否则<br />         .判断开始 (是否全角)<br />             局_结果 ＝ 局_结果 ＋ 到全角 (局_文本)<br />         .默认<br />             局_结果 ＝ 局_结果 ＋ 到半角 (局_文本)<br />         .判断结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 欲转拼音的文本 ＝ 到半角 (欲转拼音的文本)<br /> 返回 (局_结果)

以前代码

  

子程序名	返回值类型	公开	备 注
文本_转拼音	文本型		把一段文本转换到拼音
参数名	类 型	参考	可空	数组	备 注
欲转拼音的文本	文本型
是否加空格	逻辑型				可空,默认为假,不加;
是否全角	逻辑型				可空，默认为假，半角
正则方式	逻辑型				是否正则方式判断，可以判断生僻的汉字。默认为假

变量名	类 型	静态	数组	备 注
局_文本	文本型
局_字符数量	整数型
局_计次	整数型
局_结果	文本型

欲转拼音的文本 ＝ 到全角 (欲转拼音的文本)
局_字符数量 ＝ 取文本长度 (欲转拼音的文本) ÷ 2
计次循环首 (局_字符数量, 局_计次)
局_文本 ＝ 取文本中间 (欲转拼音的文本, 局_计次 × 2 － 1, 2)
如果 (文本_是否为汉字 (局_文本, 正则方式))
判断 (是否加空格)
局_结果 ＝ 局_结果 ＋ 取拼音 (局_文本, 1) ＋ “ ”
局_结果 ＝ 局_结果 ＋ 取拼音 (局_文本, 1)

判断 (是否全角)
局_结果 ＝ 局_结果 ＋ 到全角 (局_文本)
局_结果 ＝ 局_结果 ＋ 到半角 (局_文本)


计次循环尾 ()
欲转拼音的文本 ＝ 到半角 (欲转拼音的文本)
返回 (局_结果)

.版本 2<br /> <br /> .子程序 文本_转拼音, 文本型, 公开, 把一段文本转换到拼音<br /> .参数 欲转拼音的文本, 文本型<br /> .参数 是否加空格, 逻辑型, 可空, 可空,默认为假,不加;<br /> .参数 是否全角, 逻辑型, 可空, 可空，默认为假，半角<br /> .参数 正则方式, 逻辑型, 可空, 是否正则方式判断，可以判断生僻的汉字。默认为假<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_字符数量, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_结果, 文本型<br /> <br /> 欲转拼音的文本 ＝ 到全角 (欲转拼音的文本)<br /> 局_字符数量 ＝ 取文本长度 (欲转拼音的文本) ÷ 2<br /> .计次循环首 (局_字符数量, 局_计次)<br />     局_文本 ＝ 取文本中间 (欲转拼音的文本, 局_计次 × 2 － 1, 2)<br />     .如果 (文本_是否为汉字 (局_文本, 正则方式))<br />         .判断开始 (是否加空格)<br />             局_结果 ＝ 局_结果 ＋ 取拼音 (局_文本, 1) ＋ “ ”<br />         .默认<br />             局_结果 ＝ 局_结果 ＋ 取拼音 (局_文本, 1)<br />         .判断结束<br /> <br />     .否则<br />         .判断开始 (是否全角)<br />             局_结果 ＝ 局_结果 ＋ 到全角 (局_文本)<br />         .默认<br />             局_结果 ＝ 局_结果 ＋ 到半角 (局_文本)<br />         .判断结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 欲转拼音的文本 ＝ 到半角 (欲转拼音的文本)<br /> 返回 (局_结果)

800214

文本_转拼音 这个方法少了个参数,不能设置是否使用正则,默认为使用

项目部002

感谢建议，下个版本发布前优化此问题。