以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]转换数组  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120389)
--  作者：OKK
--  发布时间：2018/6/14 10:02:00
--  [求助]转换数组
Dim aa() As String = {"12","15","23","11"}   \'此数组为未知数

\'用以下代码找出数组内的数值:
Dim bb() As String = aa
Dim bc As Integer = aa.length
For k As Integer = 0 To bc - 1
output.show(bb(k))
Next

得出结果是：
12
15
23
11


如何把结果转换为这样（就是把竖排变为横排）：12152311
--  作者：有点甜
--  发布时间：2018/6/14 10:04:00
--  
Dim aa() As String = {"12","15","23","11"}  
Dim str As String = String.join("", aa)
msgbox(str)
--  作者：OKK
--  发布时间：2018/6/14 14:44:00
--  
能否把结果的竖排变为横排？
不在原来的数组变，在结果的数组变...

Dim aa() As String = {"12","15","23","11"}   \'此数组为未知数
\'用以下代码找出数组内的数值:
Dim bb() As String = aa
Dim bc As Integer = aa.length
For k As Integer = 0 To bc - 1
bb(0) = 11
Next

最终结果为：11152311
--  作者：有点甜
--  发布时间：2018/6/14 15:14:00
--  
Dim aa() As String = {"12","15","23","11"}   \'此数组为未知数
\'用以下代码找出数组内的数值:
Dim bb(aa.length-1) As String
Dim bc As Integer = aa.length
For k As Integer = 0 To bc - 1
    bb(k) = aa(k)
Next
--  作者：OKK
--  发布时间：2018/6/14 15:23:00
--  
谢谢