Question

vb 三个数组怎样合并为一个 如“1，2，3”“0”“4，5，6”和为“1，2，3，0，4，5，6”？

第一个和第三个数组不是手写输入的 是电池生成的数组（软件环境为grasshopper里的vb ）；
也就是想问 三个以上数组怎样顺序合并？请给个代码，谢谢！

Answer 1

'定义个合并两个数组的函数，返回合并后的数组。

'如果有多个数组需要合并，可以调用多次来实现。

Function ConnectArray(a As Variant, b As Variant) As Variant()
    Dim temp()
    ReDim temp((UBound(a) - LBound(a)) + (UBound(b) - LBound(b) + 1))
    Dim index As Integer
    Dim item
    For Each item In a
        temp(index) = item
        index = index + 1
    Next
    For Each item In b
        temp(index) = item
        index = index + 1
    Next
    ConnectArray = temp
End Function

Answer 2

Dim a, b, c, d() As Variant
Dim na, nb, nc, i As Integer
a = Array("1", "2", "3")
b = Array("0")
c = Array("4", "5", "6")
na = UBound(a)
nb = UBound(b)
nc = UBound(c)
ReDim d(0 To na)
For i = 0 To na
d(i) = a(i)
Next
ReDim Preserve d(0 To na + nb + 1)’na+nb+1为合并后的最后一项
'数组是从0开始的哦
For i = na + 1 To na + nb + 1
d(i) = b(i - na - 1)
Next
ReDim Preserve d(na + nb + nc + 2)
For i = na + nb + 2 To na + nb + nc + 2
d(i) = c(i - na - nb - 2)
Next
For i = 0 To na + nb + nc + 2 ‘输出结果
Print d(i)
Next
'这样写

Answer 3

你好，什么是 “电池生成的数组“
如果是已经有数组 A B C 那么要合成D=【A，B，C】 我的想法如下：
比如A有10个元素 B有11个元素 C有15个元素，那么D就有10+11+15=36个元素；
用循环语句对D数组进行依次赋值就可以了
dim D(ubound(A)+ubound(B)+ubound(C)+2) as integer'声明数组D ubound(A) 是A的最大下标
dim i as integer'
for i=0 to ubound(D) step 1
if i<=ubound(A) then
D(i)=A(i)'
end if
if i<=ubound(A) +ubound(B)+1 and i>ubound(A) then
D(i)=B(i-ubound(A)-1)'
end if
if i>=ubound(A) +ubound(B)+1 then
D(i)=C(i-ubound(A)-2-ubound(B))'
end if
next i

Answer 4

最简单的做法 替换 吧”“替换成 ，
str=replace(str,"”“","，"）