主题：只提取数字

如第一列中21-18F333 想要的到的数为18333填写到第二列

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "工号"
        If dr.isnull("工号")  OrElse dr("工号").length <= 2
            dr("铭牌编号1") = dr("工号")
        Else
            dr("铭牌编号1") = dr("工号").substring(3,6)
        End If
End Select

这段代码不能去掉中间的F