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

//可用于对一组坐标进行排序记录的是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

如果对你有帮助请点赞

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

猜你喜欢