m0_72938729 2022-10-19 01:12 采纳率: 100%
浏览 31
已结题

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

程式开始通过浏览选择文件,一个文本框显示文件位置,选取后在其他几个文本框读取文件名的信息。
如:文件名 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
    
    

    展开全部

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论 编辑记录
    m0_72938729 2022-10-19 01:25

    对的

    回复
    m0_72938729 回复 CSDN专家-showbo 2022-10-19 01:44

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

    回复
    CSDN专家-showbo 回复 m0_72938729 2022-10-19 01:53

    
        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
    
    

    回复
查看更多回答(1条)
编辑
预览

报告相同问题?

问题事件

  • 系统已结题 10月26日
  • 已采纳回答 10月19日
  • 创建了问题 10月19日
手机看
程序员都在用的中文IT技术交流社区

程序员都在用的中文IT技术交流社区

专业的中文 IT 技术社区,与千万技术人共成长

专业的中文 IT 技术社区,与千万技术人共成长

关注【CSDN】视频号,行业资讯、技术分享精彩不断,直播好礼送不停!

关注【CSDN】视频号,行业资讯、技术分享精彩不断,直播好礼送不停!

客服 返回
顶部