|
楼主 |
发表于 2010-1-18 14:12:06
|
显示全部楼层
广东省深圳市
楼主应该是没看清楚我的问题呵呵 我说的是第一次插入的时候是正确的 但是第2次插入的时候位置就变成上面那样
[e].版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 前面关键字, 文本型
.子程序 _按钮1_被单击
.局部变量 文本次数, 整数型
.局部变量 后面关键字, 文本型
.局部变量 前面位置, 整数型
.局部变量 后面位置, 整数型
.局部变量 字符长度, 整数型
.局部变量 结果文本, 文本型
.局部变量 文本出现次数, 整数型
.局部变量 计数, 整数型
.局部变量 开始位置, 整数型
.局部变量 局部_结果, 文本型
.局部变量 i, 整数型
.局部变量 h, 文本型
.局部变量 表项索引, 整数型
前面关键字 = “MC=[”
后面关键字 = “]”
开始位置 = 1
文本出现次数 = 取文本出现次数 (编辑框1.内容, 前面关键字)
.计次循环首 (20, 计数)
前面位置 = 寻找文本 (编辑框1.内容, 前面关键字, 开始位置, 假)
后面位置 = 寻找文本 (编辑框1.内容, 后面关键字, 前面位置, 假)
字符长度 = 后面位置 - 前面位置
结果文本 = 取文本中间 (编辑框1.内容, 前面位置, 字符长度)
.如果真 (计数 < 10)
表项索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项索引, 0, 结果文本)
.如果真结束
.如果真 (计数 > 10)
前面关键字 = “电话:”
后面关键字 = “ ”
表项索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项索引, 1, 结果文本)
.如果真结束
开始位置 = 后面位置 + 取文本长度 (后面关键字)
.计次循环尾 ()
.子程序 取文本出现次数, 整数型
.参数 原文本, 文本型
.参数 关键字, 文本型
.局部变量 临时变量, 整数型
.局部变量 出现次数, 整数型
临时变量 = 寻找文本 (原文本, 关键字, , 假)
.如果真 (临时变量 = -1)
返回 (0)
.如果真结束
出现次数 = 出现次数 + 1
.判断循环首 (临时变量 ≠ -1)
临时变量 = 寻找文本 (原文本, 关键字, 临时变量 + 取文本长度 (关键字), 假)
.如果真 (临时变量 ≠ -1)
出现次数 = 出现次数 + 1
.如果真结束
.判断循环尾 ()
返回 (出现次数)[/e]
这是语句 |
|