求助：请问如何编这样的一个程序

绝对标致

求助：请问如何编这样的一个程序


我要在一个文本文件中搜索一些固定的词语，然后输出固定的词语后面的内容。

比如这样一个文本文件，他的内容是：

TOOL：R5
SINA SIHU YAHUU
.....
.......
PRO：1500
..........


假设上面一个文本文件里面的内容，现在我要在不打开这个文本文件的情况下，通过程序搜索这个文本文件里面的内容，
然后通过找里面的关键字，比如上面的“TOOL：”是关键字，我只要一搜索到“TOOL：”这个词，就输出它后面的内容，比如输出上面的R5。


跪求高手指点！！！木鸡感激不尽！！

︶ㄣ帅々︷`

度取文本。。。line模式。。。

如果前5个是TOOL：就输入除前5个字符以外的。。。然后结束或设置下一个key

灬☆爱你

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

三弓厶

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

波少

对不起，我走错地方了，呵呵

n煲

够震撼！够创新！！