e4a升降排序代码(文本条件排序、直升序、直降序)

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直 降 序:" & 直降序(编辑框待处理.内容)
结束 事件
212 Views
分享你的喜爱
linwute
linwute

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

2 评论

留下评论

您的电子邮箱地址不会被公开。