vb.net获取txt某段字符后的字符

来源:互联网 发布:黑马软件科技有限公司 编辑:程序博客网 时间:2024/05/16 05:35
     Dim tline As String
        FileOpen(1, "文本.txt", OpenMode.Input)
        Do Until EOF(1)
            tline = LineInput(1)
            If InStr(tline, "姓名:") Then Label1.Text = (Replace(tline, "姓名:", ""))
        Loop
        FileClose(1)
0 0
原创粉丝点击