- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [已解决]怎么把一串字符串导入表格？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42549)
-- 发布时间：2013/11/14 21:52:00
-- [已解决]怎么把一串字符串导入表格？
如有这么一个字符串：
*1*;1;第一列;第二列;第三列;第四列;第五列;**
*1*;2;第一列;第二列;第三列;第四列;第五列;**
*1*;3;第一列;第二列;第三列;第四列;第五列;**
*1*;4;第一列;第二列;第三列;第四列;第五列;**
我想实现如下功能，该怎么写代码：
根据字符串内容，分辨出共有几行数据（*1*为数据头，**为数据尾）
然后把每一行的各列的数据分别新建数据行，导入各单元格
谢谢帮忙
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导入数据.table |
[此贴子已经被作者于2013-11-14 22:09:40编辑过]
-- 发布时间：2013/11/14 22:09:00
--
-- 发布时间：2013/11/14 22:29:00
--
如下代码
Dim data As String = e.Form.Controls("TextBox1").Text
Dim reg As new System.Text.RegularExpressions.Regex("(?!(\\*1\\*)+).+(?=(\\*\\*)+)")
Dim mc As object = reg.Matches(data)
For i As Integer = 0 To mc.count - 1
Dim nr As Row = Tables("表A").AddNew
Dim cs() As String = mc(i).value.split(";")
For j As Integer = 1 To cs.Length - 2
nr(j-1) = cs(j)
Next
Next