Question

vb中如何将字符串中连续的数字分组

比如说我有一个字符串a = " 3 4 5 8 9 10 14 15 16"
c =split（a，“ ”）

我想判断字符串a 中有几组连续的数字，并按照顺序分成相应的几组

比如说 “ 3 4 5”和“ 8 9 10”以及“ 14 15 16”这三组

最好这几组用数组的方式呈现

Answer 1

这个问题比较繁，而且难度在于使用二维动态数组，且不知道数组的规模；
首先，我的理解，你的原始数据，应该是已经从小到大排序了的？
第1步：你已经会了，使用Split()函数，把它拆分存放到数组c里了。
第2步：
当然，采用循环，进行对数组从头到尾的扫描，一一保存到新的数组里，本题的关键是难点前面已经叙述：
我的处理，先扫描一次数组c，找到二维数组中，需要的最大规模（因为两个维度的值都不知道），为了使得程序能够灵活适应实际的情况，又不浪费空间。先获得数组第1个维度的值，和第2个维度的值，考虑到可能第2个维度的值还不一样，采用最大值。举例：你列举的情况，需要一个3*3的二维数组，但是也有可能数据为：“1 2 3 4 5 67 8 9 10”
代码如下：

Option Explicit

Private Sub Command1_Click()
Dim a As String
Dim c
Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim K As Integer '数组个数
Dim L As Integer
Dim MyMax As Integer '每个数组的规模
Dim SJ As String
Dim d() As String

a = "3 4 5 8 9 10 14 15 16"
c = Split(a, " ")
n = UBound(c) '获取数组c的最大下标

'首先求出需要几个数组以及每个数组的规模
K = 1
L = 1
SJ = c(0)
MyMax = 0
For i = 1 To n
If CInt(c(i)) <> CInt(c(i - 1)) + 1 Then
If L > MyMax Then MyMax = L
K = K + 1
L = 0
End If
L = L + 1
Next i
ReDim d(K, MyMax) As String

'开始
K = 1
L = 1
SJ = c(0)
d(K, L) = SJ
For i = 1 To n
If CInt(c(i)) = CInt(SJ) + 1 Then
L = L + 1
SJ = c(i)
d(K, L) = SJ
Else
SJ = c(i)
K = K + 1
L = 1
d(K, L) = SJ
End If
Next i

'输出
For i = 1 To K
For j = 1 To UBound(d, 2)
Print d(i, j); " ";
Next j
Print
Next i

End Sub

代码经过测试，已经通过，你可以直接复制使用。
说明：你的数据" 3 4 5 8 9 10 14 15 16"里，3前面的空格要删除，否则代码适当修改！！！

追问

辛苦了，再提个问题
如果并非3*3 这样的结构而每组数组的个数并不相等的情况下怎么办，测试以后再数组数量相等或者数组中的数值总数小于最后数组的总数时候有效，而如果超过最后的数组中的数字总数按照最后数组的总数陈列

追答

我的这个代码，应该考虑了这个因素，我也测试过的，例如：
a = "3 4 5 8 9 10 11 14 15 20 21 22 23 24 25 26 27 100"
也是通过测试的？？？

Answer 2

用Left$() 或 Mid$()函数去截取你需要的内容，然后再继续你说的下一步处理。
还有就是用 CoptMemory()函数来实现数组的复制！