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)
FileOpen(1, "文本.txt", OpenMode.Input)
Do Until EOF(1)
tline = LineInput(1)
If InStr(tline, "姓名:") Then Label1.Text = (Replace(tline, "姓名:", ""))
Loop
FileClose(1)