e4a依据右边数量由小到大排列写法

e4a依据右边数量由小到大排列写法

函数 排序统计(欲排序位置 为 文本型)为 文本型
	变量 待排列数组 为 文本型()
	变量 局_临时 为 文本型
	变量 局_比较数组 为 文本型()
	变量 局_临时文本 为 文本型
	变量 出现次数 为 文本型
	变量 z 为 整数型
	变量 i 为 整数型
	变量 j 为 整数型
	变量 x 为 整数型
	变量 s 为 整数型
	待排列数组 = 分割文本(欲排序位置,"\n")
	判断循环首 z < 取数组成员数(待排列数组)
		出现次数 = 出现次数 & "-" & 取指定右边(待排列数组(z),":")
		z = z + 1
	判断循环尾
	局_比较数组 = 分割文本(出现次数,"-")
	判断循环首 x < 取数组成员数(局_比较数组) - 1
		判断循环首 i < 取数组成员数(局_比较数组) - 1
			如果 到整数(局_比较数组(x+1)) < 到整数(局_比较数组(i+1)) 则
				局_临时 = 局_比较数组(x+1)
				局_比较数组(x+1) = 局_比较数组(i+1)
				局_比较数组(i+1) = 局_临时
				局_临时文本 = 待排列数组(x)
				待排列数组(x) = 待排列数组(i)
				待排列数组(i) = 局_临时文本
			结束 如果
			i = i + 1
		判断循环尾
		容错处理首
		容错处理尾
		i = 0
		x = x + 1
	判断循环尾
	排序统计 = ""
	判断循环首 s < 取数组成员数(待排列数组)
		排序统计 = 排序统计 & (待排列数组(s) & "\n")
		s = s + 1
	判断循环尾
	排序统计 = 删首尾空(排序统计)
结束 函数
函数 取指定右边(待取文本 为 文本型,左边文本 为 文本型) 为 文本型
	变量 pos 为 整数型
	pos = 寻找文本(待取文本,左边文本,0) + 1
	取指定右边 = 取文本右边(待取文本,取文本长度(待取文本)-pos)
结束 函数
901 Views
分享你的喜爱
linwute
linwute

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

留下评论

您的电子邮箱地址不会被公开。 必填项已用*标注