楼上的，可以给具体的代码吗？
我不是做编程的，如果能编出代码，
对我很有帮助，谢谢你了

Private Sub Command1_Click()
Open "d:\slorelee\桌面\1.txt" For Input As #1

Dim tep As String
Do Until EOF(1)
Line Input #1, tep

If Mid(tep, 1, 5) = "TOOL：" Then Text1 = Mid(tep, 6, Len(tep)): Exit Sub

Loop

Close #1
End Sub

Private Sub Command1_Click()
Dim strFind As String

strFind = InputBox("请输入要查的关键字:")
If Trim(strFind) = "" Then Exit Sub
Open "d:\slorelee\桌面\1.txt" For Input As #1

Dim tep As String
Do Until EOF(1)
Line Input #1, tep
If Mid(tep, 1, Len(strFind)) = strFind Then Text1 = Mid(tep, Len(strFind) + 1, Len(tep)): Exit Sub
Loop

Close #1
End Sub