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 IsNot Nothing Then
e.DataRow("原大小") = mc1(0).value
Else
e.DataRow("原大小") = Nothing
End If
If mc2 IsNot Nothing Then
e.DataRow("现大小") = mc2(0).value
Else
e.DataRow("现大小") = Nothing
End If
End If
End Select
1、现在的问题是,当无数据可提取时,程序会出错,如何修改代码?
2、结果是"原..35×21mm",如果我想只得到"35×21",正则表达式如何写?
3、如果我想只获取与肝有关的大小,可以吗?
加好友 
发短信
Post By：2017/3/16 0:41:00 [显示全部帖子]
