以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]能否将字符串转换为表格? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146910) |
-- 作者:chh2321 -- 发布时间:2020/3/5 18:42:00 -- [求助]能否将字符串转换为表格? 请教老师,能否将字符串转换为表格?如下图: |
-- 作者:狐狸爸爸 -- 发布时间:2020/3/5 19:24:00 -- Dim reg As New System.Text.RegularExpressions.Regex("(\\d{4}-\\d\\d-\\d\\d)(.+?。)") For Each mat As System.Text.RegularExpressions.Match In reg.Matches("2012-12-31 吃饭。 2012-11-02 洗碗。 2012-12-01 做饭") MessageBox.Show(mat.Groups(1).Value & ":" & mat.Groups(2).Value) Next
|