E4A七星彩采集遗漏源码(含排序)

E4A七星彩采集遗漏源码(含排序)


 

变量 万位截取 为 文本型
	变量 千位截取 为 文本型
	变量 百位截取 为 文本型
	变量 十位截取 为 文本型
	变量 个位截取 为 文本型
	变量 特1位截取 为 文本型
	变量 特2位截取 为 文本型
事件 主窗口.创建完毕()
	多线程1.开始取网页源码("https://datachart.500.com/qxc/omit/wzyl.shtml","GBK")
结束 事件
事件 按钮1.被单击()
	标签2.标题 = ""
	标签3.标题 = ""
	标签4.标题 = ""
	标签5.标题 = ""
	标签6.标题 = ""
	标签7.标题 = ""
	标签8.标题 = ""
	多线程1.开始取网页源码("https://datachart.500.com/qxc/omit/wzyl.shtml","GBK")
结束 事件
事件 多线程1.取网页源码完毕(源码 为 文本型)
	万位截取 = 取指定文本2(源码,"第1位遗漏:  ","")
	千位截取 = 取指定文本2(源码,"第2位遗漏:  ","")
	百位截取 = 取指定文本2(源码,"第3位遗漏:  ","")
	十位截取 = 取指定文本2(源码,"第4位遗漏:  ","")
	个位截取 = 取指定文本2(源码,"第5位遗漏:","")
	特1位截取 = 取指定文本2(源码,"第6位遗漏:","")
	特2位截取 = 取指定文本2(源码,"第7位遗漏:","参数说明")
	万位号码()
	千位号码()
	百位号码()
	十位号码()
	个位号码()
	特1位号码()
	特2位号码()
	排序遗漏值()
结束 事件
过程 万位号码()
	创建表达式("(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)",真,真)
	开始匹配(万位截取)
	判断循环首 匹配下一个() = 真
		'弹出提示(取匹配文本())
		标签2.标题 = 标签2.标题   & 取子匹配文本(3) &  "遗漏:"  & 取子匹配文本(10) & "\n"
	判断循环尾
结束 过程
过程 千位号码()
	创建表达式("(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)",真,真)
	开始匹配(千位截取)
	判断循环首 匹配下一个() = 真
		'弹出提示(取匹配文本())
		标签3.标题 = 标签3.标题   & 取子匹配文本(3) &  "遗漏:"  & 取子匹配文本(10) & "\n"
	判断循环尾
结束 过程
过程 百位号码()
	创建表达式("(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)",真,真)
	开始匹配(百位截取)
	判断循环首 匹配下一个() = 真
		'弹出提示(取匹配文本())
		标签4.标题 = 标签4.标题   & 取子匹配文本(3) &  "遗漏:"  & 取子匹配文本(10) & "\n"
	判断循环尾
结束 过程
过程 十位号码()
	创建表达式("(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)",真,真)
	开始匹配(十位截取)
	判断循环首 匹配下一个() = 真
		'弹出提示(取匹配文本())
		标签5.标题 = 标签5.标题   & 取子匹配文本(3) &  "遗漏:"  & 取子匹配文本(10) & "\n"
	判断循环尾
结束 过程
过程 个位号码()
	创建表达式("(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)",真,真)
	开始匹配(个位截取)
	判断循环首 匹配下一个() = 真
		'弹出提示(取匹配文本())
		标签6.标题 = 标签6.标题   & 取子匹配文本(3) &  "遗漏:"  & 取子匹配文本(10) & "\n"
	判断循环尾
结束 过程
过程 特1位号码()
	创建表达式("(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)",真,真)
	开始匹配(特1位截取)
	判断循环首 匹配下一个() = 真
		'弹出提示(取匹配文本())
		标签7.标题 = 标签7.标题   & 取子匹配文本(3) &  "遗漏:"  & 取子匹配文本(10) & "\n"
	判断循环尾
结束 过程
过程 特2位号码()
	创建表达式("(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)",真,真)
	开始匹配(特2位截取)
	判断循环首 匹配下一个() = 真
		'弹出提示(取匹配文本())
		标签8.标题 = 标签8.标题   & 取子匹配文本(3) &  "遗漏:"  & 取子匹配文本(10) & "\n"
	判断循环尾
结束 过程
函数 取指定右边(待取文本 为 文本型,左边文本 为 文本型) 为 文本型
	变量 pos 为 整数型
	pos = 寻找文本(待取文本,左边文本,0) + 1
	取指定右边 = 取文本右边(待取文本,取文本长度(待取文本)-pos)
结束 函数
过程 排序遗漏值()
	遗漏1()
	遗漏2()
	遗漏3()
	遗漏4()
	遗漏5()
结束 过程
过程 遗漏1()
	变量 待排列数组 为 文本型()
	变量 出现次数 为 文本型
	变量 局_临时 为 文本型
	变量 局_比较数组 为 文本型()
	变量 局_临时文本 为 文本型
	变量 z 为 整数型
	变量 i 为 整数型
	变量 j 为 整数型
	变量 x 为 整数型
	变量 s 为 整数型
	待排列数组 = 分割文本(标签2.标题,"\n")
	判断循环首 z < 取数组成员数(待排列数组)
		出现次数 = 出现次数 & "-" & 取指定右边(待排列数组(z),":")
		'信息框("0",取指定右边(待排列数组(z),":"),"0")
		z = z + 1
	判断循环尾
	局_比较数组 = 分割文本(出现次数,"-")
	判断循环首 x < 取数组成员数(局_比较数组) - 1
		判断循环首 i < 取数组成员数(局_比较数组) - 1
			如果 到整数(局_比较数组(x+1)) < 到整数(局_比较数组(i+1)) 则
				局_临时 = 局_比较数组(x+1)
				局_比较数组(x+1) = 局_比较数组(i+1)
				局_比较数组(i+1) = 局_临时
				局_临时文本 = 待排列数组(x)
				待排列数组(x) = 待排列数组(i)
				待排列数组(i) = 局_临时文本
			结束 如果
			'信息框("0",局_临时,"0")
			i = i + 1
		判断循环尾
		容错处理首
		容错处理尾
		i = 0
		x = x + 1
	判断循环尾
	标签2.标题 = ""
	判断循环首 s < 取数组成员数(待排列数组)
		'编辑框2.内容 = 编辑框2.内容 & "\n" & 待排列数组(s)
		标签2.标题 = 标签2.标题 & "\n" & 待排列数组(s)
		s = s + 1
	判断循环尾
结束 过程
过程 遗漏2()
	变量 待排列数组 为 文本型()
	变量 出现次数 为 文本型
	变量 局_临时 为 文本型
	变量 局_比较数组 为 文本型()
	变量 局_临时文本 为 文本型
	变量 z 为 整数型
	变量 i 为 整数型
	变量 j 为 整数型
	变量 x 为 整数型
	变量 s 为 整数型
	待排列数组 = 分割文本(标签3.标题,"\n")
	判断循环首 z < 取数组成员数(待排列数组)
		出现次数 = 出现次数 & "-" & 取指定右边(待排列数组(z),":")
		'信息框("0",取指定右边(待排列数组(z),":"),"0")
		z = z + 1
	判断循环尾
	局_比较数组 = 分割文本(出现次数,"-")
	判断循环首 x < 取数组成员数(局_比较数组) - 1
		判断循环首 i < 取数组成员数(局_比较数组) - 1
			如果 到整数(局_比较数组(x+1)) < 到整数(局_比较数组(i+1)) 则
				局_临时 = 局_比较数组(x+1)
				局_比较数组(x+1) = 局_比较数组(i+1)
				局_比较数组(i+1) = 局_临时
				局_临时文本 = 待排列数组(x)
				待排列数组(x) = 待排列数组(i)
				待排列数组(i) = 局_临时文本
			结束 如果
			'信息框("0",局_临时,"0")
			i = i + 1
		判断循环尾
		容错处理首
		容错处理尾
		i = 0
		x = x + 1
	判断循环尾
	标签3.标题 = ""
	判断循环首 s < 取数组成员数(待排列数组)
		'编辑框2.内容 = 编辑框2.内容 & "\n" & 待排列数组(s)
		标签3.标题 = 标签3.标题 & "\n" & 待排列数组(s)
		s = s + 1
	判断循环尾
结束 过程
过程 遗漏3()
	变量 待排列数组 为 文本型()
	变量 出现次数 为 文本型
	变量 局_临时 为 文本型
	变量 局_比较数组 为 文本型()
	变量 局_临时文本 为 文本型
	变量 z 为 整数型
	变量 i 为 整数型
	变量 j 为 整数型
	变量 x 为 整数型
	变量 s 为 整数型
	待排列数组 = 分割文本(标签4.标题,"\n")
	判断循环首 z < 取数组成员数(待排列数组)
		出现次数 = 出现次数 & "-" & 取指定右边(待排列数组(z),":")
		'信息框("0",取指定右边(待排列数组(z),":"),"0")
		z = z + 1
	判断循环尾
	局_比较数组 = 分割文本(出现次数,"-")
	判断循环首 x < 取数组成员数(局_比较数组) - 1
		判断循环首 i < 取数组成员数(局_比较数组) - 1
			如果 到整数(局_比较数组(x+1)) < 到整数(局_比较数组(i+1)) 则
				局_临时 = 局_比较数组(x+1)
				局_比较数组(x+1) = 局_比较数组(i+1)
				局_比较数组(i+1) = 局_临时
				局_临时文本 = 待排列数组(x)
				待排列数组(x) = 待排列数组(i)
				待排列数组(i) = 局_临时文本
			结束 如果
			'信息框("0",局_临时,"0")
			i = i + 1
		判断循环尾
		容错处理首
		容错处理尾
		i = 0
		x = x + 1
	判断循环尾
	标签4.标题 = ""
	判断循环首 s < 取数组成员数(待排列数组)
		'编辑框2.内容 = 编辑框2.内容
		标签4.标题 = 标签4.标题 & "\n" & 待排列数组(s)
		s = s + 1
	判断循环尾
结束 过程
过程 遗漏4()
	变量 待排列数组 为 文本型()
	变量 出现次数 为 文本型
	变量 局_临时 为 文本型
	变量 局_比较数组 为 文本型()
	变量 局_临时文本 为 文本型
	变量 z 为 整数型
	变量 i 为 整数型
	变量 j 为 整数型
	变量 x 为 整数型
	变量 s 为 整数型
	待排列数组 = 分割文本(标签5.标题,"\n")
	判断循环首 z < 取数组成员数(待排列数组)
		出现次数 = 出现次数 & "-" & 取指定右边(待排列数组(z),":")
		'信息框("0",取指定右边(待排列数组(z),":"),"0")
		z = z + 1
	判断循环尾
	局_比较数组 = 分割文本(出现次数,"-")
	判断循环首 x < 取数组成员数(局_比较数组) - 1
		判断循环首 i < 取数组成员数(局_比较数组) - 1
			如果 到整数(局_比较数组(x+1)) < 到整数(局_比较数组(i+1)) 则
				局_临时 = 局_比较数组(x+1)
				局_比较数组(x+1) = 局_比较数组(i+1)
				局_比较数组(i+1) = 局_临时
				局_临时文本 = 待排列数组(x)
				待排列数组(x) = 待排列数组(i)
				待排列数组(i) = 局_临时文本
			结束 如果
			'信息框("0",局_临时,"0")
			i = i + 1
		判断循环尾
		容错处理首
		容错处理尾
		i = 0
		x = x + 1
	判断循环尾
	标签5.标题 = ""
	判断循环首 s < 取数组成员数(待排列数组)
		'编辑框2.内容 = 编辑框2.内容 & "\n" & 待排列数组(s)
		标签5.标题 = 标签5.标题 & "\n" & 待排列数组(s)
		s = s + 1
	判断循环尾
结束 过程
过程 遗漏5()
	变量 待排列数组 为 文本型()
	变量 出现次数 为 文本型
	变量 局_临时 为 文本型
	变量 局_比较数组 为 文本型()
	变量 局_临时文本 为 文本型
	变量 z 为 整数型
	变量 i 为 整数型
	变量 j 为 整数型
	变量 x 为 整数型
	变量 s 为 整数型
	待排列数组 = 分割文本(标签6.标题,"\n")
	判断循环首 z < 取数组成员数(待排列数组)
		出现次数 = 出现次数 & "-" & 取指定右边(待排列数组(z),":")
		'信息框("0",取指定右边(待排列数组(z),":"),"0")
		z = z + 1
	判断循环尾
	局_比较数组 = 分割文本(出现次数,"-")
	判断循环首 x < 取数组成员数(局_比较数组) - 1
		判断循环首 i < 取数组成员数(局_比较数组) - 1
			如果 到整数(局_比较数组(x+1)) < 到整数(局_比较数组(i+1)) 则
				局_临时 = 局_比较数组(x+1)
				局_比较数组(x+1) = 局_比较数组(i+1)
				局_比较数组(i+1) = 局_临时
				局_临时文本 = 待排列数组(x)
				待排列数组(x) = 待排列数组(i)
				待排列数组(i) = 局_临时文本
			结束 如果
			'信息框("0",局_临时,"0")
			i = i + 1
		判断循环尾
		容错处理首
		容错处理尾
		i = 0
		x = x + 1
	判断循环尾
	标签6.标题 = ""
	判断循环首 s < 取数组成员数(待排列数组)
		'编辑框2.内容 = 编辑框2.内容 & "\n" & 待排列数组(s)
		标签6.标题 = 标签6.标题 & "\n" & 待排列数组(s)
		s = s + 1
	判断循环尾
结束 过程
事件 按钮2.被单击()
	排序遗漏值()
结束 事件

 

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

留下评论