VB编程实现查找功能

简单

command1里写入

Sub command1_click()

Open "F:\found.txt" For Input As #1 '

Line Input #1, temp

If InStr(temp, Text1.Text) >0 Then

List1.AddItem temp

End If

Close #1

End Sub

代码里处理的话：先粘贴excel数据到一个String 变量里，然后再把String 变量加到富文本框里

*** 作的话，只能先用记事本过度一下，即先粘贴excel数据到记事本里，再从记事本里复制到富文本框里

再别的俺就想不出了

Find (Criteria, SkipRows, SearchDirection, Start)

Criteria:条件

SkipRows：行偏移，从现在行起跳过多少行开始找

SearchDirection：方向（向前，向后）

Start：开始位置

例子：

rstTitles.Find "title_id LIKE 'BU%'"

Do While Not rstTitles.EOF

'continue if last find succeeded

Debug.Print "Title ID: "rstTitles!title_id

'count the last title found

count = count + 1

' note current position

mark = rstTitles.Bookmark '当前位置

rstTitles.Find "title_id LIKE 'BU%'", 1, adSearchForward, mark

' above code skips current record to avoid finding the same row repeatedly

' last arg (bookmark) is redundant because Find searches from current position

Loop

---