- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]字符串到数组 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153085)
-- 发布时间：2020/7/30 16:45:00
-- [求助]字符串到数组
有一行字符串："单位名称","地址","邮编","电话","传真","邮箱","网址"
怎么让数组Cols()等于下面的结果，怎么表达？
Dim Cols() As String = {"单位名称","地址","邮编","电话","传真","邮箱","网址"}
-- 发布时间：2020/7/30 16:58:00
--
这所谓的一行字符串实际是什么值？截图看看
-- 发布时间：2020/7/30 17:14:00
--
此主题相关图片如下：55555555555.png
第一列和第二列都表示其它表的列名（因为要导入的第二列会变化）
目的是想导入数据,将cols2所有列导入到cols1所有列（其实要导入的列很多）
想着怎么直接由s到cols1()
Dim cols1() As String = {"单位名称","地址","邮编","电话","传真","邮箱","网址"}
Dim cols2() As String = {"单位","地址","邮编","电话","FAX","信箱","网址"}
Dim cols2() As String = {"单位","地址","邮编","电话","FAX","信箱","网址"}
Dim s As String
For Each r As Row In Tables("表A").RowsIf r.IsNull("第二列") = False Then
s = s & """" & r("第一列") & ""","
End If
Next
s = s.Trim(",")
s = "单位名称","地址","邮编","电话","传真","邮箱","网址"
-- 发布时间：2020/7/30 17:21:00
--
Dim s As String
For Each r As Row In Tables("表A").RowsIf r.IsNull("第二列") = False Then
s = s & "," & r("第一列")
End If
Next
s = s.Trim(",")
-- 发布时间：2020/7/30 17:23:00
--
非常谢谢！
-- 发布时间：2020/7/30 17:33:00
--
此主题相关图片如下：2222222222.png
测试了，不知哪里出了问题
-- 发布时间：2020/7/30 17:35:00
--
嗯，打错字了
| Split | 用指定的分隔符将字符串分隔成一个字符串数组 |
-- 发布时间：2020/7/30 17:36:00
--
好了
Dim cols1() As String = s.split(",")