E4a – 取重复带点.e4a

E4a 取带点重复值，带点通过分割文本提取。

函数 取重复带点(数据 为 文本型)为 文本型
	变量 结果 为 文本型 = ""
	变量 文本数据  为 文本型()
	变量 总长度 为 整数型
	变量 i 为 整数型 = 0
	变量 j 为 整数型 = 0
	文本数据 = 分割文本(数据,",")
	总长度 = 取数组成员数(文本数据)''这里不能作为取文本长度,否则闪退
	判断循环首 i < 总长度
		判断循环首 j < i
			如果 到数值(文本数据(i)) = 到数值(文本数据(j)) 则
				结果 = 结果 & "," & 文本数据(j)
			结束 如果
			j= j+1
		判断循环尾
		j= 0
		i= i+1
	判断循环尾
	i= 0
	取重复带点 = 结果
结束 函数
事件 按钮1.被单击()
	编辑框2.内容 = 取重复带点(编辑框1.内容)
结束 事件