求一算法或函数

[thunder1218]

请教各位,数据库有一表，表中有N个字段，其中一个如下：
fphm
01234
01234
01235
01236
01237
01239
01239
01239
01240
01241
01241
01245
01246
.......
求一算法或函数，得到如下结果：
01234-01237，01239-01241，01245-01246
谢谢帮助

[HoneyBenBen]

你的结果是什么意思？你到底想问什么？

[zhangzhijian]

Private Sub Command1_Click()

Dim a(9) As String
a(0) = "01"
a(1) = "02"
a(2) = "03"
a(3) = "04"
a(4) = "07"
a(5) = "08"
a(6) = "10"
a(7) = "11"
a(8) = "12"
Dim intIndex, i As Integer
Dim b() As String
Dim strStart As String
Dim strEnd As String
Dim strCom As String
strStart = a(0)
strEnd = a(0)
i = 0
For intIndex = 1 To 8
If (CInt(a(intIndex)) = CInt(strEnd)) Or (CInt(a(intIndex)) = CInt(strEnd) + 1) Then
Else
strCom = strStart & "-" & strEnd
i = i + 1
ReDim Preserve b(i)
b(i - 1) = strCom
strStart = a(intIndex)
End If
strEnd = a(intIndex)
If intIndex = 8 Then
strCom = strStart & "-" & strEnd
ReDim Preserve b(i + 1)
b(i) = strCom
End If
Next
End Sub

仅供参考.....