|
发表于 2015-12-15 15:28:17
|
显示全部楼层
广西壮族自治区柳州市
查找替换超级列表框中的指定内容,代码如下:
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 置随机数种子 ()计次循环首 (10, 计数 )索引 = 超级列表框1. 插入表项 (, , , , , )超级列表框1. 置状态图片 (0, 1 )超级列表框1. 置标题 (索引, 0, 到文本 (索引 + 1 )) 超级列表框1. 置标题 (索引, 1, 取随机文本 (30 + 取随机数 (1, 10 )) )计次循环尾 ()置随机数种子 (1 )计次循环首 (文本长度, )处理事件 ()文本 = 文本 + 字符 (64 + 取随机数 (1, 26 )) 计次循环尾 ()返回 (文本 )变量名 | 类 型 | 静态 | 数组 | 备 注 | 表项数 | 整数型 | | | 计数 | 整数型 | | | 当前文本 | 文本型 | | | 所在位置 | 整数型 | | |
表项数 = 超级列表框1. 取表项数 ()计次循环首 (表项数, 计数 )当前文本 = 超级列表框1. 取标题 (计数 - 1, 1 )所在位置 = 寻找文本 (当前文本, 编辑框1.内容, , 假)如果真 (所在位置 ≠ -1 )当前文本 = 文本替换 (当前文本, 所在位置, 取文本长度 (编辑框1.内容 ), 编辑框2.内容 )超级列表框1. 置标题 (计数 - 1, 1, 当前文本 )计次循环尾 ()
|
|