e4a升降排序代码

文本排序（条件排序、直升序、直降序）

函数 条件排序(待处理 为 文本型,升序 为 逻辑型) 为 文本型
	待处理 = 删首尾空(待处理)
	变量 长度 为 整数型 = 取文本长度(待处理)
	变量 结果 为 文本型 = ""
	变量 计次 为 整数型 = 0
	变量 数组 为 整数型(长度)
	判断循环首 计次 < 长度
		数组(计次) = 到整数(取文本中间(待处理,计次,1))
		计次 = 计次 + 1
	判断循环尾
	数组 = 数组排序(数组)
	结果 = ""
	如果 升序 = 真 则
		计次 = 0
		判断循环首 计次 < 取数组成员数(数组)
			结果 = 结果 & 整数到文本(数组(计次))
			计次 = 计次 + 1
		判断循环尾
	否则
	    计次 = 取数组成员数(数组) -1
		判断循环首 计次 > -1
			结果 = 结果 & 整数到文本(数组(计次))
			计次 = 计次 - 1
		判断循环尾
	结束 如果
	条件排序 = 结果
结束 函数

函数 直升序(待处理 为 文本型) 为 文本型
	待处理 = 删首尾空(待处理)
	变量 长度 为 整数型 = 取文本长度(待处理)
	变量 结果 为 文本型 = ""
	变量 计次 为 整数型 = 0
	变量 数组 为 整数型(长度)
	判断循环首 计次 < 长度
		数组(计次) = 到整数(取文本中间(待处理,计次,1))
		计次 = 计次 + 1
	判断循环尾
	数组 = 数组排序(数组)
	结果 = ""
	计次 = 0
	判断循环首 计次 < 取数组成员数(数组)
		结果 = 结果 & 整数到文本(数组(计次))
		计次 = 计次 + 1
	判断循环尾
	直升序 = 结果
结束 函数

函数 直降序(待处理 为 文本型) 为 文本型
	待处理 = 删首尾空(待处理)
	变量 长度 为 整数型 = 取文本长度(待处理)
	变量 结果 为 文本型 = ""
	变量 计次 为 整数型 = 0
	变量 数组 为 整数型(长度)
	判断循环首 计次 < 长度
		数组(计次) = 到整数(取文本中间(待处理,计次,1))
		计次 = 计次 + 1
	判断循环尾
	数组 = 数组排序(数组)
	结果 = ""
	计次 = 取数组成员数(数组) -1
	判断循环首 计次 > -1
		结果 = 结果 & 整数到文本(数组(计次))
		计次 = 计次 - 1
	判断循环尾
	直降序 = 结果
结束 函数

事件 按钮1.被单击()
	编辑框选择.内容 = "条件排序：" & 条件排序(编辑框待处理.内容,选择框升序.选中)
	编辑框结果.内容 = "\n条件排序：" & 条件排序(编辑框待处理.内容,选择框升序.选中)
	编辑框结果.内容 = 编辑框结果.内容 & "\n\n直 升 序：" & 直升序(编辑框待处理.内容)
	编辑框结果.内容 = 编辑框结果.内容 & "\n\n直 降 序：" & 直降序(编辑框待处理.内容)
结束 事件