怎样在VB里面实现在一个文件里面查找你需要的多个字符串？？？？？？？？？？？？？(解决立马给你分)

例如：
我要查找
文件kk.txt 里面有没有字符串 123. aaa. 456 .789 这几个字符串
请问高手怎样实现？？？？？？？？？

14 个解决方案

#1

看看：
http://search.csdn.net/Expert/topic/1837/1837535.xml?temp=.5848657

#2

Public Sub Scan(file)
Dim String1 As Single
Dim l0580 As Variant
Dim l0584 As Variant
Dim l0588 As Variant
Dim l058C As Variant
Dim l05AA As Variant
Dim l05AE As Single
Open file For Binary As #2
l0580 = LOF(2)
l0584 = l0580
l0588 = 1
While l0584 >= 0
    If l0584 > 32000 Then
        l058C = 32000
    ElseIf l0584 = 0 Then
        l058C = 1
    Else
        l058C = l0584
    End If
l01f8$ = String$(l058C, " ")
    Get #2, l0588, l01f8$
    String1! = InStr(1, LCase$(l01f8$), " Scan String goes here! ", 1)
    If String1! Then
    MsgBox "String was found in " + file, 88
    Close #2
    Exit Sub
    End If
MsgBox "String was not found in " + file, 88
Close #2
Exit Sub
Wend
Exit Sub
End Sub

#3

我要查找的字符串要放在那里啊？

#4

要查找多个字符串怎么办？

#5

先把文件加载到内存（读取到一个变量），然后适应 instr 函数来查找。

#6

我要查找
文件kk.txt 里面有没有字符串 123. aaa. 456 .789 这几个字符串

Dim FileText As String,nPos As Long
Open "kk.txt" For Input as #1
FileText=Input(LOF(FileText),#1)
close #1
nPos=Instr(FileText,"123. aaa. 456 .789")
if npos>0 then Print "Found!"

#7

首先把你要的文本文件读入到RichTextBox里，
然后，用find方法来查找。
Private Sub Command1_Click()
    Dim x
    x = 0
    Do While x <> -1
        x = RichTextBox1.Find("abcd", x)
        MsgBox x
        If x <> -1 Then x = x + 4
    Loop
End Sub

#8

RichTextBox读入txt文件也很简单。如下：
RichTextBox1.FileName = "d:test.txt"

#9

Dim FileText As String,nPos As Long
Open "kk.txt" For Input as #1
FileText=Input(LOF(FileText),#1)
close #1
nPos=Instr(FileText,"123. aaa. 456 .789")
if npos>0 then Print "Found!"

这个程序有问题

#10

123. aaa. 456 .789 这几个字符串
123 是个字符串.aaa是个字符串.456是字符串.789是个字符串

#11

123. aaa. 456 .789 这几个字符串
123是1个字符串 aaa是1个字符串 456是1个字符串 789是1个字符串

多个字符串

#12

Dim FileText As String,nPos As Long

Open "kk.txt" For Input as #1
FileText=Input(LOF(FileText),#1)
close #1
nPos=Instr(FileText,"123"):if npos>0 then Print "Found 123!"
nPos=Instr(FileText,"aaa"):if npos>0 then Print "Found aaa!"
nPos=Instr(FileText,"456"):if npos>0 then Print "Found 456!"
nPos=Instr(FileText,"789"):if npos>0 then Print "Found 789!"

#13

Private Sub Command1_Click()
  Dim a() As String
  str1 = "123 aaa 456 789"
  a = Split(str1, " ")
  Open "kk.txt" For Input As 1
  str2 = Input(LOF(1), 1)
  Close
  For i = 0 To UBound(a)
    b = InStr(1, str2, a(i))
    If b Then MsgBox "find " + a(i)
  Next
End Sub

#14

tmd007对语法理解很深啊!

#1