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

Answer 2

对的

Answer 3

程式开始通过浏览选择文件

Answer 4

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'If txtPwd.Text = "" Then
        'MsgBox("请输入密码！")
        'Return
        'End If
        'If txtPwd.Text <> "123" Then
        'MsgBox("密码错误！")
        'txtPwd.Select()
        'Return
        'End If
        Dim d As FileDialog = New OpenFileDialog()
        If d.ShowDialog() = DialogResult.OK Then
            Dim path As String = d.FileName

            txtLogfile.Text = path

            txtZWNo.Text = getSubstring(path, "Data Serial NO_", "_M+")
            txtNo.Text = getSubstring(path, "_M+", "_Part NO_")
            txtSN.Text = getSubstring(path, "REV_M_Badge NO_", ").")
            'Dim content As String = File.ReadAllText(path, Encoding.UTF8)
            '将内容反序列化为用户信息集合
            'Try
            ' lst = JsonConvert.DeserializeObject(Of List(Of InfoItem))(content)
            'Catch ex As Exception
            'MsgBox("嗯。。。选择的文件内容格式有问题，无法反序列化为用户信息集合")
            'End Try
        End If
    End Sub