返回列表 上一主題 發帖

連續 & 不連續 之陣列處理方式ex:1~3,5,7,9~11

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2014-11-16 06:55 | 顯示全部帖子
各位大大如題,陣列內的數字已經會依照數字大小進行排序,由小至大
但要如何達到以下效果呢~?(陣列長度不一定 ...
PKKO 發表於 2014-11-16 05:04
  1. Sub nn()
  2.   Dim iI%
  3.   Dim lL&
  4.   Dim sStr$
  5.   Dim vA, vB
  6.   
  7.   'vA = Array(1, 2, 3, 5, 7, 9, 10, 11)
  8.   'vA = Array(1, 11)
  9.   vA = Array(5, 6, 8, 9)
  10.   ReDim vB(0)
  11.   lL = vA(0)
  12.   sStr = lL
  13.   For iI = 1 To UBound(vA)
  14.     If vA(iI) <> lL + 1 Then
  15.       If vA(iI - 1) <> sStr Then sStr = sStr & "~" & vA(iI - 1)
  16.         vB(UBound(vB)) = sStr
  17.         ReDim Preserve vB(UBound(vB) + 1)
  18.         sStr = vA(iI)
  19.     End If
  20.     lL = vA(iI)
  21.   Next
  22.   If vA(UBound(vA)) <> sStr Then sStr = sStr & "~" & vA(iI - 1)
  23.   vB(UBound(vB)) = sStr
  24. End Sub
複製代碼

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題