vb打开文件准备查找关键字

vb打开文件准备查找关键字



'打开文件准备查找关键字
'创建text1 和text2 和一个按钮
'文档位置 = Text1 ，关键字 = Text2

Private Sub Command1_Click()
Dim lo As Variant
  Dim text As String
   
'遇到错误，直接执行下一行。
On Error Resume Next
文档位置 = Text1
关键字 = Text2
If Dir(文档位置) = "" Then
MsgBox "梅雷提示！错误的文件位置.  "
GoTo halt:
End If
  Open 文档位置 For Binary As #2
    '打开文件准备查找关键字
    lo = LOF(2)                      '获取password.txt的大小
    text = String(lo, " ")           '设定text的长度
    Get #2, 1, text                  '将整个文件读入字符串变量
    p1 = InStr(1, text, 关键字)      '查找关键字在文件中的位置
    If p1 = 0 Then
       MsgBox "梅雷提示！找不到关键字.  "
       GoTo halt:
    End If
    p2 = p1 + Len(关键字)            '计算密码的位置
    p = Mid(text, p2, 8)             '取出4位数的密码，注意p2须定义为Long
    Close #2
    MsgBox "梅雷提示你的Internet密码为:" & p
    End
halt:
End Sub

Private Sub Form_Load()
Text1 = App.Path & "\帐号密码.ini"
Text2 = "帐号:"
End Sub



_____________________________________________________________________________ _

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