Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何将数组转换为字符串？


  共有4436人关注过本帖树形打印复制链接

主题：[求助]如何将数组转换为字符串？
帅哥哟，离线，有人找我吗？
czy66ds
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1691 积分：16460 威望：0 精华：0 注册：2013/7/31 13:03:00 		[求助]如何将数组转换为字符串？  发帖心情 Post By：2014/2/9 16:09:00 [只看该作者]

如题，我把问题提清楚：

以下代码：
Dim s1() As String = {"中国","美国","日本","俄罗斯"}

定义了一个数组s1.

我的问题是：

如果已经有了数组s1,如何将其转换成一个字符串：

"中国,美国,日本,俄罗斯"
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/2/9 16:15:00 [只看该作者]

 

Dim Parts() As String = {"中国","上海","浦东"}
Dim Str1 As String
Str1 = String.Join(",", Parts)
Output.Show(Str1)
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1691 积分：16460 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2014/2/9 16:27:00 [只看该作者]

太感谢你了。那么对于一个已知集合如何转换成一个字符串（用逗号分隔）呢？

 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1691 积分：16460 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2014/2/9 16:42:00 [只看该作者]

是先将集合转换为数组，再转换为字符串吗？有直接转换的方法吗？

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4760 积分：34608 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2014/2/9 16:44:00 [只看该作者]

最笨的方法是循环

 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/2/9 16:49:00 [只看该作者]

Dim lst As List(Of String) = DataTables("表A").GetValues("编号")
Dim s As String = String.Join(",",lst.ToArray)
Output.Show(s)

 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1691 积分：16460 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2014/2/9 17:40:00 [只看该作者]

谢谢LSY和y2287958了。
下边这个有点难度了：
帮助：
“FoxTable还提供了一个Users集合，用于返回所有的用户，例如：

For Each us As UserInfo In Users
    Output.show("分组:" & us.Group)
    Output.Show("名称:" & us.Name)
Next”


如何将us转换成一个所有用户的一个字符串（逗号分隔）？


问题在于US只是一个“Users集合”，不是一个通常意义下的集合，不具备.ToArray这样的方法。


这可如何是好？

 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/2/9 18:21:00 [只看该作者]

Dim str As String
For Each us As UserInfo In Users
    str + = us.Name & ","
Next
Output.Show(str.Trim(","))

 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1691 积分：16460 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2014/2/9 18:39:00 [只看该作者]

你真的很棒。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询