如何让vb读取文档中的文件中关键字时,获取关键字的序号？？

Question

这个是文档的内容
23232323434344235325
3434man( nob="12")
3434woman(nob="11")
asdfasdfasfw32435qrfst435345
www4man( nob="62")
3ererwoman(nob="78787878")
.........

我需要读取 man(nob"这个数据") 和woman(nob"这个数据") 中 “” 内的数据，
从文件开头读到结尾，不知道如何实现。。。。。

急求！！！！
我忘了说，这个文档有很多很多这个字段数据，我需要一个个的都读取出来。

不是只读取一个就可以了

Answer 1

Private Sub Command1_Click()
Dim tem As String
Dim man As String
Dim woman As String
Form1.AutoRedraw = True
Open "D:\1.txt" For Input As #1 ‘填一下文档的名称和路径
Do While Not EOF(1)
Line Input #1, tem

If InStr(tem, "woman(nob=") <> 0 Then
woman = Mid(tem, InStr(tem, "woman(nob=") + Len("woman(nob=") + 1)
woman = Left(woman, Len(woman) - 2)
Print woman
GoTo nex
End If
If InStr(tem, "man( nob=") <> 0 Then
man = Mid(tem, InStr(tem, "man( nob=") + Len("man( nob=") + 1)
man = Left(man, Len(man) - 2)
Print man
End If
nex:
Loop追问

非常感谢。。。。问题果然解决了。。。 我能问下
man = Mid(tem, InStr(tem, "man( nob=") + Len("man( nob=") + 1)
man = Left(man, Len(man) - 2)
这两句我没看明白，能麻烦大侠告诉下我吗？？？

追答

man = Mid(tem, InStr(tem, "man( nob=") + Len("man( nob=") + 1)

查找"man( nob=") ，找到后将它后面的字符串赋值给变量man
man = Left(man, Len(man) - 2)

把man里面右边连个字符去掉