E4a 取带点重复值,带点通过分割文本提取。
![](https://www.linwute.com/wp-content/uploads/2020/05/E4a-取重复带点.e4a-1.jpg)
函数 取重复带点(数据 为 文本型)为 文本型
变量 结果 为 文本型 = ""
变量 文本数据 为 文本型()
变量 总长度 为 整数型
变量 i 为 整数型 = 0
变量 j 为 整数型 = 0
文本数据 = 分割文本(数据,",")
总长度 = 取数组成员数(文本数据)''这里不能作为取文本长度,否则闪退
判断循环首 i < 总长度
判断循环首 j < i
如果 到数值(文本数据(i)) = 到数值(文本数据(j)) 则
结果 = 结果 & "," & 文本数据(j)
结束 如果
j= j+1
判断循环尾
j= 0
i= i+1
判断循环尾
i= 0
取重复带点 = 结果
结束 函数
事件 按钮1.被单击()
编辑框2.内容 = 取重复带点(编辑框1.内容)
结束 事件
732 Views