e4a统计编辑框个数数量写法
函数 取指定右边(待取文本 为 文本型,左边文本 为 文本型) 为 文本型
变量 pos 为 整数型
pos = 寻找文本(待取文本,左边文本,0) + 1
取指定右边 = 取文本右边(待取文本,取文本长度(待取文本)-pos)
结束 函数
函数 取出现次数(被取内容 为 文本型,出现内容 为 文本型) 为 文本型
变量 位置 为 整数型
变量 出现 为 整数型
位置 = 寻找文本(被取内容,出现内容,0)
判断循环首 位置 <> -1
出现 = 出现 + 1
位置 = 寻找文本(被取内容,出现内容,位置+1)
判断循环尾
取出现次数 = 整数到文本(出现)
结束 函数
函数 统计十进制数(欲统计位置 为 文本型)为 文本型
变量 出现次数 为 文本型 = "0出现:" & 取出现次数(欲统计位置,"0")_
&"\n1出现:" & 取出现次数(欲统计位置,"1")_
&"\n2出现:" & 取出现次数(欲统计位置,"2")_
&"\n3出现:" & 取出现次数(欲统计位置,"3")_
&"\n4出现:" & 取出现次数(欲统计位置,"4")_
&"\n5出现:" & 取出现次数(欲统计位置,"5")_
&"\n6出现:" & 取出现次数(欲统计位置,"6")_
&"\n7出现:" & 取出现次数(欲统计位置,"7")_
&"\n8出现:" & 取出现次数(欲统计位置,"8")_
&"\n9出现:" & 取出现次数(欲统计位置,"9")
统计十进制数 = 出现次数
统计十进制数 = 删首尾空(统计十进制数)
统计十进制数 = 排序统计(统计十进制数)
结束 函数
函数 排序统计(欲排序位置 为 文本型)为 文本型
变量 待排列数组 为 文本型()
变量 局_临时 为 文本型
变量 局_比较数组 为 文本型()
变量 局_临时文本 为 文本型
变量 出现次数 为 文本型
变量 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
判断循环尾
排序统计 = 删首尾空(排序统计)
结束 函数
844 Views
