以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何合并两个数组  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8232)
--  作者：飞鱼
--  发布时间：2010/9/20 15:54:00
--  [求助]如何合并两个数组
假如有两个字符串数组names1(),names2(),使用什么命令,可以把两个数组合并为一个?或者说,有没有3=1+2这样的命令?
--  作者：mr725
--  发布时间：2010/9/20 16:20:00
--  
该问题可想象的情景很多，给个具体实例吧。
--  作者：飞鱼
--  发布时间：2010/9/20 16:30:00
--  
比如说,names1()中包括字符串"abc","edf",而names2()中包括字符串"123","456",通过什么办法能把这四个字符串合并到一个数组中?
--  作者：mr725
--  发布时间：2010/9/20 17:05:00
--  

Dim s1() As String = {"中国","美国","日本","俄罗斯"}
Dim s2() As String = {"好哇","恶梦","膏药","老毛子"}
Dim s As String
For s0 As Integer = 0 To s1.Length - 1
    s = s & s1(s0) & "," & s2(s0) & ","

Next
output.show(s.trim(","))

[此贴子已经被作者于2010-9-20 17:07:36编辑过]