程式开始通过浏览选择文件,一个文本框显示文件位置,选取后在其他几个文本框读取文件名的信息。
如:文件名 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 这三个值
2条回答 默认 最新
- CSDN专家-showbo 2022-10-19 01:17关注
内容前后固定可以前后截取下内容,示例如下
''' <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
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报 编辑记录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
赞回复