| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 数据拆分 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196249) |
| -- 作者：ynhyxin -- 发布时间：2025/4/11 11:53:00 -- 数据拆分 数据列内容： 合同号： 2023-170 项目名称： 健康职业学院校区建设项目（J2023-24、J2024-02号地块）车位配比论证及交通影响评价 申请部门： 市政与交通所 现在需要按照：“合同号：、项目名称：，申请部门：” 拆分成3列数据存储。 如何可以实现。谢谢！
|
| -- 作者：y2287958 -- 发布时间：2025/4/11 12:10:00 -- Dim s As String = "合同号： 2023-170 项目名称： 健康职业学院校区建设项目（J2023-24、J2024-02号地块）车位配比论证及交通影响评价 申请部门： 市政与交通所" Output.Show(String.Join(vbcrlf, regex.Split(s, "合同号：|项目名称：|申请部门："))) Output.Show(regex.Replace(s, "(合同号|项目名称|申请部门)：\\s*", vbcrlf)) [此贴子已经被作者于2025/4/11 12:40:16编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2025/4/11 12:11:00 -- dim s as string = "合同号： 2023-170 项目名称： 健康职业学院校区建设项目（J2023-24、J2024-02号地块）车位配比论证及交通影响评价 申请部门： 市政与交通所 " s = s.replace("合同号：","$").replace("项目名称：","$").replace("申请部门：","$") dim ss() as string = s.split("$") msgbox(ss(1).trim) msgbox(ss(2).trim) msgbox(ss(3).trim)
|
| -- 作者：ynhyxin -- 发布时间：2025/4/11 18:15:00 -- 在foxtable数据表中需要如何实现？在DataColChanged中如何写？谢谢！ |
| -- 作者：有点蓝 -- 发布时间：2025/4/12 9:17:00 -- http://www.foxtable.com/webhelp/topics/0625.htm If e.DataCol.Name = "数据列" Then \'如果更改的是身份证号码列 If e.DataRow.IsNull("数据列") Then \'身份证号码是否为空 e.DataRow("合同号") = Nothing \'如果为空,则清除出生日期 e.DataRow("项目名称") = Nothing e.DataRow("申请部门") = Nothing
Else dim s as string = "合同号： 2023-170 项目名称： 健康职业学院校区建设项目（J2023-24、J2024-02号地块）车位配比论证及交通影响评价 申请部门： 市政与交通所 " s = s.replace("合同号：","$").replace("项目名称：","$").replace("申请部门：","$") dim ss() as string = s.split("$") e.DataRow("合同号") =ss(1).trim e.DataRow("项目名称") =ss(2).trim …… End IfEnd If |