|
发表于 2011-8-14 12:07:50
|
显示全部楼层
河北省保定市
命令名称: 【精易模块2.57】【文本区分_只取汉字】
BUG描述:文本多次被取出(里边计次问题)
我的建议:我把我修改后的源码奉上
请把测试有BUG或问题的【源码】一起上传上来。
.版本 2
.程序集 窗口程序集1
.程序集变量 文本, 文本型
.子程序 _按钮1_被单击
编辑框1.内容 = 文本区分_只取汉字 (编辑框1.内容)
下面是我做的取汉字源码,斑竹给奖励吧
.版本 2
.子程序 文本_取汉字和符号, 文本型, 公开, 取一段文本中的汉字和符号,返回取到的汉字和符号。
.参数 原文本, 文本型, , 原始文本
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本, 文本型
.局部变量 文本长度, 整数型
.局部变量 要的文本, 文本型
.局部变量 要的, 整数型
.局部变量 计数, 整数型
.局部变量 计次, 整数型
文本数组 = 分割文本 (原文本, #换行符, )
.计次循环首 (取数组成员数 (文本数组), 计数)
文本 = 文本数组 [计数]
.计次循环首 (取文本长度 (文本), 计次)
要的 = 取代码 (文本, 计次)
.如果真 (要的 < 0)
要的文本 = 要的文本 + 字符 (要的)
.如果真结束
.计次循环尾 ()
要的文本 = 要的文本 + #换行符
.计次循环尾 ()
返回 (要的文本)
{:3_244:} |
评分
-
查看全部评分
|