- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何以表中mm为标签，提取之前的标红部分数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136736)
-- 发布时间：2019/6/20 10:39:00
-- 如何以表中mm为标签，提取之前的标红部分数据
您好！请问如何用代码来提取表中标红部分，并将其设置为新的一列（数据变了也能提取）
此主题相关图片如下：捕获.png
-- 发布时间：2019/6/20 10:40:00
--
|
参考
Dim str As String = "001 8889 4.045 mm 5920m/s" |
-- 发布时间：2019/6/20 18:04:00
--
您好！这个只能一次提取一行，能不能一次性提取一列的
-- 发布时间：2019/6/20 18:15:00
--
关键是上面代码，多行的话，加循环
-- 发布时间：2019/6/20 18:55:00
--
您好！这个要的是在数据更改了的情况下也能对表中NoName列的标红部分进行提取（格式一样，只改变标红部分）
-- 发布时间：2019/6/20 21:53:00
--
For Each r As Row In Tables("表A")
Dim str As String = r("第一列")
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9.]+(?=.*?mm)")
r("第二列") = mc(mc.count-1).value
Next
-- 发布时间：2019/6/21 14:30:00
--
谢谢您！那怎样将最前面编号（标红部分）提取出来？
此主题相关图片如下：1.png
[此贴子已经被作者于2019/6/21 14:33:38编辑过]
-- 发布时间：2019/6/21 14:42:00
--
For Each r As Row In Tables("表A")
Dim str As String = r("第一列")
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9.]+(?=.*?mm)")
r("第二列") = mc(mc.count-2).value
Next