E4A定量取文本 函数

E4A定量取文本 函数

函数 去重复(待处理 为 文本型) 为 文本型
	变量 表达式 为 文本型 = "(?s)(.)(?=.*\\1)"
	创建表达式(表达式,假,假)
	开始匹配(待处理)
	变量 结果 为 文本型 = 全部替换("")
	去重复 = 结果
结束 函数
函数 定量数据(欲取位置 为 文本型,定量 为 整数型)为 文本型
	变量 预存 为 文本型 = ""
	变量 记次 为 整数型 = 0
	变量 I 为 整数型 = 0
	变量 长度 为 整数型 = 取文本长度(欲取位置)
	判断循环首  I < 长度
		如果 取文本长度(预存) = 定量 则
			定量数据 = 预存
			否则
			预存 = 预存 & 取文本中间(欲取位置,I,1)
			''预存 = 去重复(预存)
			定量数据 = 预存
		结束 如果
		I = I + 1
	判断循环尾
	I = 0
结束 函数
事件 按钮1.被单击()
	结果编辑框.内容 = 定量数据(数据编辑框.内容,到整数(数量编辑框.内容))
结束 事件