E4a取文本重复值函数写法

E4a取文本重复值函数写法

 

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

 

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

留下评论