- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请帮忙写一段代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175675)
-- 发布时间：2022/3/15 10:12:00
-- 请帮忙写一段代码
有一段数组，如下
AWE|WE|!QWEE|QWEQE|!
“！”的个数为列数，如上有2列， 第一列：AWE|WE|!，第二列：QWEE|QWEQE|!
每一列中有2行：AWE|WE|，QWEE|QWEQE|
把！前面的字符组填到相应的行中，每个“|”之间的数组填充到一个单元格中。
如下所示表格：
[此贴子已经被作者于2022/3/15 10:14:15编辑过]
-- 发布时间：2022/3/15 10:30:00
--
先根据“！”拆分：http://www.foxtable.com/webhelp/topics/0245.htm
在根据|拆分即可
-- 发布时间：2022/3/15 10:32:00
--
请帮助修改一下
Dim Values() As String = Multi.Split("！")
Dim Mul As String = Multi
Mul = Mul.Trim("|")
For n As Integer = 1 To Values.Length
If n<=Values.Length-1 Then
Dim cn As String = "第" & (n) & "列"
Tables("table1").Cols("第" & (n) & "列").Visible = True
Tables("table1").Cols(cn).Width=22
End If
Next
Dim r As Row
For Each s As String In Values
r = Tables("table1").addnew
For i As Integer = 0 To s.Length -1
r(i) = s(i)
Next
[此贴子已经被作者于2022/3/15 10:32:45编辑过]
-- 发布时间：2022/3/15 10:36:00
--
Dim Values() As String = Multi.Split("！")
Dim r As Row
For Each s As String In Values
r = Tables("table1").addnew
dim ss() as string = s.split("|")
For i As Integer = 0 To ss.Length -1
r(i) = ss(i)
Next
Next