e4a升降排序代码

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