vb.net 制作一个读取文件名的程式

Question

程式开始通过浏览选择文件，一个文本框显示文件位置，选取后在其他几个文本框读取文件名的信息。
如：文件名 03-28833_PASS_(Data Serial NO_1P03-28833_M+SE02-N8-213314831_Part NO_03-28833_REV_M_Badge NO_PAC856).htm 读取1p03-28833 SE02-n8-213314831 PAC856 这三个值

Answer 1

内容前后固定可以前后截取下内容，示例如下

    ''' <summary>
    ''' 前后截取
    ''' </summary>
    ''' <param name="s">要截取的字符串</param>
    ''' <param name="ss">开始字符串</param>
    ''' <param name="es">结束字符串</param>
    ''' <returns>截取的内容，找不到返回空字符串</returns>
    Function getSubstring(ByVal s As String, ByVal ss As String, ByVal es As String) As String
        Dim r As String = ""
        Dim sIndex As Integer, eIndex As Integer, sslen As Integer = ss.Length
        sIndex = s.IndexOf(ss)

        If sIndex <> -1 Then '找到开始字符串
            sIndex += sslen
            eIndex = s.IndexOf(es, sIndex) '从加上开始字符串长度位置往后找
            If eIndex <> -1 Then '找到结束字符串则截取
                r = s.Substring(sIndex, eIndex - sIndex)
            End If
        End If
        Return r
    End Function
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If txtContent.Text = "" Then
            MsgBox("请输入内容！")
            txtContent.Select()
            Return
        End If
        txtZWNo.Text = getSubstring(txtContent.Text, "Data Serial NO_", "_M+")
        txtno.Text = getSubstring(txtContent.Text, "_M+", "_Part NO_")
        txtSN.Text = getSubstring(txtContent.Text, "REV_M_Badge NO_", ").")
    End Sub