以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  提取标准中年份，正则表达式如何写  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97907)

--  作者：sunnyfastener --  发布时间：2017/3/20 21:32:00 --  提取标准中年份，正则表达式如何写 提取标准中年份，正则表达式如何写 Dim s As String = "HG/T20634-2009"（或HG/T20634-09) 年份，一般从1980年起，到2016年，年份有时简写，只有后2位

--  作者：有点蓝 --  发布时间：2017/3/20 22:11:00 --   Dim s As String = "HG/T20634-09"  Dim n As String = s.Split("-")(1) Output.Show(IIF(n.Length = 2,"20" & n,n))

--  作者：sunnyfastener --  发布时间：2017/3/20 22:27:00 --   需要正则表达式来匹配