vb查找字符串在文件第几行并取读此行

vb查找字符串在文件第几行并取读此行



'查找UGII_BASE_DIR在文件第几行并取读此行
Private Sub Command1_Click()
文件途径="d:\123.txt"
Open 文件途径 For Input As #1
Do While Not EOF(1)
Line Input #1, x
w = w + 1
If InStr(x, "UGII_BASE_DIR") > 0 Then '查找UGII_BASE_DIR在文件第几行
Text1 = w '在第几行
Text2 = x '此内容是
End If
Loop
Close #1

_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/