Question

我想从exe文件中读取，所以我找到了这段代码

   Dim strData As String
Dim lngFind As Long
    Open txtAdrsOfFile For Binary As #1
        strData = Space$(FileLen(txtAdrsOfFile))
        Get #1, , strData
    Close #1
    lngFind = InStr(1, strData, txtFindString)
    If strData = txtFindString Then
    MsgBox "FIND"
    Else
    MsgBox "NOT FIND"
    End If

需要一个命令按钮和2个文本框

但它不起作用如果有一种方法可以使用该代码，如果你们可以帮助我这样做多条管字符串我的意思是我们可以读取多于1个表格的文件 TNX

Answer 1

首先，instr（）返回搜索字符串中查找字符串位置的整数它不会改变你传递它的两个字符串。

所以不要检查

If strData = txtFindString Then

你应该检查

If lngFind > 0 then 

    MsgBox "FIND"
Else
    MsgBox "NOT FIND"
End If

这是因为在调用instr（）

之前，StrData仍然等于文件内容的等价

另外正如你所指出的那样，如果你搜索文本并且不担心匹配大小写，你应该使用文本标志调用instr（）

lngFind = InStr(1, strData, txtFindString,1)

从vb6中的exe文件中读取

1 个答案: