VB.NET中如何从单行多关联字符串的文件提取指定内容？

看起来你卡在从单行文本里拆分出用户名、密码和全名这些关联信息了，我来帮你梳理下可行的方案，结合你给出的登录按钮代码来调整。

首先，先把你提供的代码片段放出来：

Private Sub btn_login_Click(sender As Object, e As EventArgs) Handles btn_login.Click
    Dim Student As New StreamReader("student.txt")
    Dim newline As String
    Dim login As Boolean
    Dim line1 As String
    Dim line2 As String
    ' Reads the files to a ...

核心前提：明确文本行的固定格式 #

你的示例是swagman（用户名）、samfisher34（密码）、sam fisher（全名），首先要确定每行的格式规则：

• 每个字段用**中文顿号（、）**分隔？
• 每个字段的内容后面跟着带标签的括号，比如（用户名）？

基于这个格式，下面给你两种实用的解决方法：

方法1：按分隔符拆分+字符串截取（适合格式完全固定的情况） #

先把整行按顿号拆分成三个独立的字段片段，再从每个片段里提取括号前的内容：

Private Sub btn_login_Click(sender As Object, e As EventArgs) Handles btn_login.Click
    ' 改用Using语句自动释放资源，比直接New StreamReader更安全
    Using Student As New StreamReader("student.txt")
        Dim newline As String
        Dim login As Boolean = False
        ' 逐行读取文件
        While (newline = Student.ReadLine()) IsNot Nothing
            ' 按中文顿号拆分三个字段片段
            Dim fields() As String = newline.Split("、"c)
            If fields.Length = 3 Then
                ' 提取用户名：取第一个片段中"（"之前的内容
                Dim username As String = fields(0).Substring(0, fields(0).IndexOf("（"))
                ' 提取密码：取第二个片段中"（"之前的内容
                Dim password As String = fields(1).Substring(0, fields(1).IndexOf("（"))
                ' 提取全名：取第三个片段中"（"之前的内容
                Dim fullName As String = fields(2).Substring(0, fields(2).IndexOf("（"))
                
                ' 这里可以加入登录验证逻辑，比如对比输入框的内容
                If txtUsername.Text = username AndAlso txtPassword.Text = password Then
                    login = True
                    Exit While ' 找到匹配的用户就跳出循环
                End If
            End If
        End While
        
        ' 登录结果处理
        If login Then
            MessageBox.Show("登录成功！")
            ' 后续跳转逻辑
        Else
            MessageBox.Show("用户名或密码错误！")
        End If
    End Using
End Sub

方法2：正则表达式（适合格式有小变动但规则统一的情况） #

如果你的文本行格式偶尔有空格或者符号变化，正则会更灵活。我们可以写一个匹配内容（标签）格式的正则，提取每个标签对应的内容：

' 记得先导入正则命名空间
Imports System.Text.RegularExpressions

Private Sub btn_login_Click(sender As Object, e As EventArgs) Handles btn_login.Click
    Using Student As New StreamReader("student.txt")
        Dim newline As String
        Dim login As Boolean = False
        ' 正则表达式：匹配"内容（标签）"的格式，捕获内容和标签
        Dim regexPattern As String = "(.+?)（(.+?)）"
        
        While (newline = Student.ReadLine()) IsNot Nothing
            ' 获取所有匹配的字段
            Dim matches As MatchCollection = Regex.Matches(newline, regexPattern)
            If matches.Count = 3 Then
                Dim username As String = matches(0).Groups(1).Value
                Dim password As String = matches(1).Groups(1).Value
                Dim fullName As String = matches(2).Groups(1).Value
                
                ' 登录验证
                If txtUsername.Text = username AndAlso txtPassword.Text = password Then
                    login = True
                    Exit While
                End If
            End If
        End While
        
        ' 结果提示
        If login Then
            MessageBox.Show($"欢迎，{fullName}！")
        Else
            MessageBox.Show("登录失败，请检查账号密码！")
        End If
    End Using
End Sub

额外提示 #

• 用Using语句包裹StreamReader，可以自动释放文件资源，避免文件被锁定的问题。
• 一定要做格式校验（比如fields.Length = 3或者matches.Count = 3），防止文件里的无效行导致程序报错。
• 如果你的文本行格式和示例不一样（比如用英文括号、逗号分隔），只需要调整拆分的分隔符或者正则表达式即可。

内容的提问来源于stack exchange，提问作者sam manny