安卓按键精灵脚本命令-排序成员出现数量依次从大到小

//si为组合数组，成员数量不定

Dim si="|张三|小明|小明|小明|小明|小明|小明|张三|小黄|小黄|小黄|小红|小黄|张三|小红|小红|小红|小红"

Dim 成员1="张三"

Dim 成员2="小红"

Dim 成员3="小黄"

Dim 成员4="小明"

//多成员要用变量定义出来

Dim arr1=Split (si,"|")

Dim 成员组=Array (成员1,成员2,成员3,成员4)//添加成员到数组

Dim 数量=0

For Each 成员 In 成员组

    Dim arr=Split(si,成员)

    TracePrint 成员&" 出现数量："&UBound (arr)

    成员组(数量) = 成员 & UBOUND(arr)

    数量=数量+1

Next

TracePrint "以下为排列顺序："

For i=0 to UBOUND(arr1)

    数量=UBOUND(arr1)-i

    依次输出成员()

next

Function 依次输出成员()

    For 4

        For Each 成员 In 成员组

            If InStr(1, 成员, 数量) > 0 Then 

                TracePrint  Left(成员,Len (成员)-1)

                数量=数量-1

                Exit Function 

            End If

        Next

    Next

End Function