程式开始通过浏览选择文件，一个文本框显示文件位置，选取后在其他几个文本框读取文件名的信息。
如：文件名 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 这三个值
内容前后固定可以前后截取下内容，示例如下
''' <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