以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]提取某列中(汉字+字符+数字)的第一个字符及后面所有  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180057)

--  作者:18107532666
--  发布时间:2022/9/26 8:49:00
--  [求助]提取某列中(汉字+字符+数字)的第一个字符及后面所有
提取某列中(汉字+字符+数字)的第一个字符及后面所有的到另一列,求教老师给个代码,列如:压实方100m3,我想提取m3另一列。例如横延m,我想提取m到另一列,例如重量kg 我想提取kg到另一列。
--  作者:有点蓝
--  发布时间:2022/9/26 9:16:00
--  
Dim s As String = "压实方100m3"
Dim p As String = "[a-zA-Z]+"
Dim r As New System.Text.RegularExpressions.Regex(p)
Dim str = r.Split(s)
Dim k As String = s.Substring(str(0).Length)
Output.Show(k)

--  作者:18107532666
--  发布时间:2022/9/26 9:39:00
--  
多谢有点蓝 搞定了
--  作者:xubing051018
--  发布时间:2023/12/20 10:51:00
--  
mark