排除数据E4A
函数 确保位数(内容 为 文本型,长度 为 整数型) 为 文本型
确保位数 = 内容
变量 当前位数 为 整数型 = 取文本长度(内容)
变量 计次 为 整数型 = 0
判断循环首 计次 < (长度 - 当前位数)
确保位数 = "0" & 确保位数
计次 = 计次 + 1
判断循环尾
结束 函数
事件 按钮2.被单击()
编辑框2.内容 = ""
变量 行数 为 整数型 = 0
变量 计次 为 整数型 = 0
变量 位数 为 整数型 = 到整数(编辑框3.内容)
变量 最大值 为 整数型 = 取最大数值(位数)
变量 结果 为 文本型 = ""
判断循环首 计次 <= 最大值
变量 当前值 为 文本型 = 确保位数(计次,位数)
如果 寻找文本(编辑框1.内容,当前值,0) = -1 则
如果 结果 <> "" 则
结果 = 结果 & "\n"
结束 如果
行数 = 行数 + 1
结果 = 结果 & 当前值
结束 如果
计次 = 计次 + 1
判断循环尾
标签1.内容 = "共" & 行数 & "条数据"
编辑框2.内容 = 结果
结束 事件 861 Views
