Question

使用VB 搜索TXT文档内内容,并显示在Listbox内

VB以TEXT输入的为条件搜索固定TXT文本文档内的内容，一但搜索到就将有关键词的那一行显示在listbox里
例如：
TXT文档内有如下数据行
123
1234
456
4567
789
7891
比如输入7后可以显示出
4567
789
7891

Answer 1

peivate sub command1_CLICK()
dim keyword as string '关键词
keyword="7"
open "c:\1.txt" for input as #1
while not eof(1)
line input #1,s
if instr(1,s,keyword)>0 then list1.additem s
wend
close #1
end sub

Answer 2

方案1 遍历整个txt档案的每一行然後用instr函数超找
方案2 用XML结构来编辑你的数据（高效，快速！）

追问

有没有具体的代码啊?

追答

sorry只有方案沒有具體代碼

Answer 3

用个循环读取所有行的文字，用instr函数一一查找。