主题：[求助]如何用正则表达式从某一列提取特定数字到另一列

 老师，请教：

如何用正则表达式从一列提取特定数字到另一列。例如：

第一列                                 第二列             第三列
...较前相比有明显好转，         45×34             36×23
原约45×34mm，现为
36×23mm



老师能否给写一段示例代码，谢谢！

参考代码

 

 

Dim str As String = "原约45×34mm,现为36×23mm"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9.]+×[0-9.]+")
msgbox(mc(0).value)
msgbox(mc(1).value)

 
谢谢老师，那么晚还回复！

无法直接打开你的项目。报什么错？贴出你写的代码。

Select Case e.DataCol.Name
    Case "诊疗经过"
        If e.DataRow.isnull("诊疗经过") Then
            e.DataRow("原大小") = Nothing
            e.DataRow("现大小") = Nothing
        Else
            Dim str As String = e.DataRow("诊疗经过")
            Dim mc1 = System.Text.RegularExpressions.Regex.Matches(str,"(?<=原[\u4e00-\u9fa5]+)([0-9.]+[×*x][0-9.]+)(?=mm|cm)")
            Dim mc2 = System.Text.RegularExpressions.Regex.Matches(str,"(?<=现[\u4e00-\u9fa5]+)([0-9.]+[×*x][0-9.]+)(?=mm|cm)")
            If mc1.count > 0 Then
                e.DataRow("原大小") = mc1(0).value
            Else
                e.DataRow("原大小") = Nothing
            End If
            If mc2.count > 0 Then
                e.DataRow("现大小") = mc2(0).value
            Else
                e.DataRow("现大小") = Nothing
            End If
        End If
End Select

 

谢谢老师！