数据列内容：
合同号： 2023-170 项目名称： 健康职业学院校区建设项目（J2023-24、J2024-02号地块）车位配比论证及交通影响评价 申请部门： 市政与交通所
现在需要按照：“合同号：、项目名称：，申请部门：” 拆分成3列数据存储。
如何可以实现。谢谢！
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编辑过]
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)
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 If
End If