連續 & 不連續 之陣列處理方式ex:1~3,5,7,9~11
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2014-11-17 16:08 編輯
回復 3# PKKO
試試看- Option Explicit
- '1,2,3,5,7,9,10,11 =>1~3,5,7,9~11
- Sub Ex()
- Dim Ar(), i As Integer, S As String, Msg As Boolean
- Ar = Array(1, 2, 3, 5, 6, 9, 10, 11, 15)
- S = Ar(0)
- For i = 0 To UBound(Ar)
- If i = UBound(Ar) Then
- If Ar(i) - 1 = Ar(i - 1) Then S = S & Ar(i)
- ElseIf Ar(i) + 1 <> Ar(i + 1) Then
- If Msg Then S = S & Ar(i) & "," & Ar(i + 1)
- If Msg = False Then S = S & "," & Ar(i + 1)
- Msg = False
- ElseIf Ar(i) + 1 = Ar(i + 1) Then
- Msg = True
- S = S & IIf(Right(S, 1) <> "~", "~", "")
- End If
- Next
- MsgBox S
- End Sub
|
|
|
|
|
|
|
|
發表於 2014-11-17 16:06
| 