主题：[求助]如何提取字符串中间的字符？

例：发文字号：信边军〔2019〕12号，“发文编号”想提取“12”两个数字，下边代码，如何更改，谢谢

Select Case e.DataCol.name

    Case "收到日期", "发文字号"

        If e.DataRow.IsNull("收到日期") Then

            e.DataRow("发文编号") = Nothing

        Else

            Dim s = e.DataRow( "发文字号")

            Dim str As String

                str &= str.substring(str.indexOf(")")+1,str.indexOf("号"))

                e.DataRow("发文编号") = str

        End If

End Select