E4A查找连续相同的数以上取出(取连续重复出现)

查找连续相同的数以上取出(取连续重复出现)

事件 按钮1.被单击()
	编辑框2.内容=连接数组成员(取文本1(编辑框1.内容),",")
	编辑框3.内容=连接数组成员(取文本2(编辑框1.内容),",")
	编辑框4.内容=连接数组成员(取文本3(编辑框1.内容),",")
	编辑框5.内容=连接数组成员(取文本4(编辑框1.内容),",")
	编辑框6.内容=连接数组成员(取文本5(编辑框1.内容,6),",")
结束 事件
函数 取文本1(文本 为 文本型) 为 文本型()
	变量 循环 为 整数型=0
	变量 文本1 为 文本型
	判断循环首 循环<10
		变量 文本x 为 文本型=整数到文本(循环)&整数到文本(循环)&整数到文本(循环)
		变量 文本x1 为 文本型=整数到文本(循环)&整数到文本(循环)&整数到文本(循环)&整数到文本(循环)
		如果 寻找文本(文本,文本x,0)<>-1 则
			如果 文本1="" 则
				文本1=整数到文本(循环)
				否则
				文本1=文本1&"-"&整数到文本(循环)
			结束 如果
		结束 如果
		循环=循环+1
	判断循环尾
	取文本1=分割文本(文本1,"-")
结束 函数
函数 取文本3(文本 为 文本型)为 文本型()
	变量 循环 为 整数型=0
	变量 文本1 为 文本型
	判断循环首 循环<10
		变量 文本x 为 文本型=整数到文本(循环)&整数到文本(循环)&整数到文本(循环)
		变量 文本x1 为 文本型=整数到文本(循环)&整数到文本(循环)&整数到文本(循环)&整数到文本(循环)
		文本=子文本替换(文本,文本x,"//前面放碰撞文本*******1**"&整数到文本(循环)&"//后面防碰撞文本*******1*****1****")
'		如果 寻找文本(文本,文本x,0)<>-1 则
'
'
'
'			如果 文本1="" 则
'				文本1=整数到文本(循环)
'				否则
'				文本1=文本1&"-"&整数到文本(循环)
'			结束 如果
'
'
'
'
'		结束 如果
	循环=循环+1
	判断循环尾
	取文本3=取指定文本(文本,"//前面放碰撞文本*******1**","//后面防碰撞文本*******1*****1****")
结束 函数
函数 取文本4(文本 为 文本型)为 文本型()
	变量 循环 为 整数型=0
	变量 文本1 为 文本型
	判断循环首 循环<10
		变量 文本x 为 文本型=整数到文本(循环)&整数到文本(循环)&整数到文本(循环)
		变量 文本x1 为 文本型=整数到文本(循环)&整数到文本(循环)&整数到文本(循环)&整数到文本(循环)
		文本=子文本替换(文本,文本x1,"//前面放碰撞文本*******1**"&整数到文本(循环)&"//后面防碰撞文本*******1*****1****")
'		如果 寻找文本(文本,文本x,0)<>-1 则
'
'
'
'			如果 文本1="" 则
'				文本1=整数到文本(循环)
'				否则
'				文本1=文本1&"-"&整数到文本(循环)
'			结束 如果
'
'
'
'
'		结束 如果
	循环=循环+1
	判断循环尾
	取文本4=取指定文本(文本,"//前面放碰撞文本*******1**","//后面防碰撞文本*******1*****1****")
结束 函数
函数 取文本5(文本 为 文本型,重复出现的次数 为 整数型)为 文本型()
	变量 循环 为 整数型=0
	变量 文本1 为 文本型
	判断循环首 循环<10
		变量 文本x1 为 文本型=构建字符串(整数到文本(循环),重复出现的次数)
		文本=子文本替换(文本,文本x1,"//前面放碰撞文本*******1**"&整数到文本(循环)&"//后面防碰撞文本*******1*****1****")
'		如果 寻找文本(文本,文本x,0)<>-1 则
'
'
'
'			如果 文本1="" 则
'				文本1=整数到文本(循环)
'				否则
'				文本1=文本1&"-"&整数到文本(循环)
'			结束 如果
'
'
'
'
'		结束 如果
	循环=循环+1
	判断循环尾
	取文本5=取指定文本(文本,"//前面放碰撞文本*******1**","//后面防碰撞文本*******1*****1****")
结束 函数
函数 构建字符串 (字符串 为 文本型 , 构建长度 为 整数型) 为 文本型
	变量 返回字符串 为 文本型
	变量 循环 为 整数型=0
	变量 文本1 为 文本型
	判断循环首 循环<构建长度
	如果 循环=0 则
		返回字符串=字符串
		否则
		返回字符串=返回字符串&字符串
	结束 如果
	循环=循环+1
	判断循环尾
	构建字符串=返回字符串
结束 函数
函数 取文本2(文本 为 文本型) 为 文本型()
	变量 循环 为 整数型=0
	变量 文本1 为 文本型
	判断循环首 循环<10
		变量 文本x 为 文本型=整数到文本(循环)&整数到文本(循环)&整数到文本(循环)
		变量 文本x1 为 文本型=整数到文本(循环)&整数到文本(循环)&整数到文本(循环)&整数到文本(循环)
		如果 寻找文本(文本,文本x1,0)<>-1 则
			如果 文本1="" 则
				文本1=整数到文本(循环)
				否则
				文本1=文本1&"-"&整数到文本(循环)
			结束 如果
		结束 如果
		循环=循环+1
	判断循环尾
	取文本2=分割文本(文本1,"-")
结束 函数
事件 编辑框4.内容被改变(新内容 为 文本型)
结束 事件
事件 编辑框6.内容被改变(新内容 为 文本型)
结束 事件