按键精灵安卓版去除重复数组然后排序排序

//可用于对一组坐标进行排序记录的是X坐标，后面跟随的是FindPic的图片对应值 ，已经验证

Dim str="228,1|406,1|274,0|326,0|352,3|249,5|480,5|453,6|300,7|378,7|427,8|" Dim strArrary=Split(str,"|") Dim JianGeFuHao="|" Dim i,j,X,str2 Dim DX,XD,dd,xx,JN,jj,PhoneNum Dim temp Dim txt="123|123|456|456|789|789"

//字符串删除重复

Call ShaiXuan(txt, JianGeFuHao)

Function ShaiXuan(fist,JianGeFuHao) Dim sArray = Split(fist, JianGeFuHao) Dim j,k,str1 For j = 0 to UBound(sArray) For i = 0 To j If sArray(j) = sArray(i) Then k = k + 1 End If If j = UBound(sArray) Then k = 0 End If Next If k = 1 Then str1 = str1 & sArray(j) & JianGeFuHao End If k = 0 Next TracePrint str1 End Function

//方法一：存在一定问题是借鉴网上资源 Call PaiXuXu(strArrary,JianGeFuHao)

//对字符串进行排序排序 Function PaiXu(str,JianGeFuHao) //UBOUND (strArrary) For i = 0 To UBOUND(strArrary) - 1 DX = Split(strArrary(i), ",") dd=DX(0) For j = 0 To UBOUND(strArrary) - 1 XD = Split(strArrary(j), ",") xx=XD(0) If Int(dd) < Int(xx) Then //TracePrint strArrary(i),strArrary(j) X = strArrary(i) : strArrary(i) = strArrary(j) : strArrary(j) = X End If Next Next For i = 0 To UBOUND(strArrary) - 1 str2 = str2 & strArrary(i) & "|" Next TracePrint str2 For i = 0 To UBOUND(strArrary) - 1 JN = Split(strArrary(i), ",") jj = JN(1) PhoneNum = PhoneNum & jj Next TracePrint PhoneNum End Function

//方法二：自己使用方法一发现不好用，自己改编通过冒泡排序方法实现

Function PaiXuXu(str, JianGeFuHao) //strArrary = Split(str, JianGeFuHao) For i = 0 To UBOUND(strArrary) - 1 For j = 0 To UBOUND(strArrary) - 2 - i DX = Split(strArrary(j), ",") dd = DX(0) XD = Split(strArrary(j+1), ",") xx = XD(0) If Int(dd) > Int(xx) Then //将>改成<，可实现从大到小排列 temp = strArrary(j) strArrary(j) = strArrary(j + 1) strArrary(j+1)=temp //X = strArrary(j) : strArrary(j) = strArrary(j+1) : strArrary(j+1) = X End If Next Next For i = 0 To UBOUND(strArrary) - 1 JN = Split(strArrary(i), ",") jj = JN(1) PhoneNum = PhoneNum & jj Next TracePrint PhoneNum End Function