ReDim Preserve 二维数组逐渐增加

放浪形骸

那你现在是REDIM数组还是说设置成一个很大的数组出来？
如果是设置成一个很大的数组出来的话，那你的行列表示就按照原来的(最早的表示方法来)

xdwy81129

回复 放浪形骸 的帖子

不想设置成很大的数组，只希望一步一步增加扩大

用了你的方法，虽然没有输入来，但我慢慢的看了运行过程
    ReDim Preserve arrbiao(jchazhao, arrisq(j, 1))
    arrbiao(j, arrisq(j, 1)) = arr(i, 1) & i
     arrisq(j, 1) = arrisq(j, 1) + 1
重新定义一行，前面赋值的就会被清空，所以不对

完整过程是:
jchazhao = 127
For i = n To 1 Step -1
    For j = 1 To jchazhao

    If InStr(arr(i, 1), arrchazhao(j, 1)) Then
   
    ReDim Preserve arrbiao(jchazhao, arrisq(j, 1))
    arrbiao(j, arrisq(j, 1)) = arr(i, 1) & i
     arrisq(j, 1) = arrisq(j, 1) + 1

GoTo 123456
    End If
   
    Next j

123456
Next i

放浪形骸

一步一步增加又费内存又费时间，吃力不讨好。

放浪形骸

xdwy81129 发表于 2011-1-20 22:28
回复 放浪形骸 的帖子

不想设置成很大的数组，只希望一步一步增加扩大

又多了好多不知道的数组啊。

吕?布

1. Redim只能改变最后一维
2. Redim是比较花时间的,但应该比把一个数组重新拷贝到另一个新数据组要省很多
3. 要想看到别人对你的问题的解决方法,不如把你的要求写清楚,然后看其它人怎么实现的,而不必一味的纠缠于Redim

xdwy81129

本问题没有最佳了，谢谢大家支持