E4a取文本重复值函数写法

函数 取重(数据 为 文本型) 为 文本型
	数据 = 删首尾空(数据)
	变量 结果 为 文本型 = ""
	数据 = 排序(数据,真)
	变量 总长度 为 整数型 = 取文本长度(数据)
	变量 计次 为 整数型 = 0
	判断循环首 总长度 > 0
		变量 当前 为 文本型 = 取文本左边(数据,计次 + 1)
		当前 = 取文本右边(当前,1)
		如果 寻找文本(数据,当前,计次 + 1) > -1 则
			结果 = 结果 & 当前
		结束 如果
		数据 = 子文本替换(数据,当前,"")
		总长度 = 取文本长度(数据)
	判断循环尾
	取重 = 结果
结束 函数