E4A排除数据

排除数据E4A


排除数据.e4a


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

我要像梦一样自由,像大地一样宽容;
在艰辛放逐的路上,点亮生命的光芒;
我要像梦一样自由,像天空一样坚强;
在曲折蜿蜒的路上,体验生命的意义;

留下评论

您的电子邮箱地址不会被公开。 必填项已用*标注