如何能对文本文件进行查找并显示?(50分)

R

retun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-06

• #1

我要做一个程序, 主要只是从文本文件中提取出要查找的行!并显示出来
如:我输入要查找的为 问题
下面的将会显示在MEMO1中
而这个文本文件可能有上万行!
而我所进行的是模糊查找,并不要求整句输完,只要这一句含有我所要查的
字符就显示出来!
假设有一个a.txt文件, 文本格式如下!
---------------------------------------------------
我的待答问题
我的已答问题
收藏中的问题
请注意换行, 建议围绕一个议题提问以便专家回答您.
-----------------------------------------------

 

H

huangbin1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-06

• #2

新建字符串连表：
var
slFile :TStringList;
i,nLineNum: integer;
begin
slFile:=TStringList.Creat;
try
slFile.LoadFromFile(a.txt);
nLineNum:=slFile.Count;
for i:=0 to nLineNum-1 do
begin
if Pos(slFile.Strings,'问题')<>0 then
/---显示出来。
else
continue;
....
;
end;
finally
showmessage('erro');
end;
新建字符串连表：
var
slFile :TStringList;
i,nLineNum: integer;
begin
slFile:=TStringList.Creat;
try
slFile.LoadFromFile(a.txt);
nLineNum:=slFile.Count;
for i:=0 to nLineNum-1 do
begin
if Pos(slFile.Strings,'问题')<>0 then
/---显示出来。
end
else
continue;
....
;
end;
finally
showmessage('erro');
end;
end;

........
//如果有什么不懂的地方可以与我联系
HuangBin0791@163.com





........
//如果有什么不懂的地方可以与我联系
HuangBin0791@163.com

 

R

retun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-06

• #3

用不了呀!
slFile:=TStringList.Creat; (slFile:=TStringList.Create
slFile.LoadFromFile(a.txt); (slFile.LoadFromFile('a.txt')
修改了这两个地方,还是无法找出来你的POS是什么来的!
还有我如何才能将查到的行显示到MEMO1中去呢?

 

L

Lfish

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-06

• #4

纠正huangbin1大侠的一个错误
pos('问题',slFile)<>0

finally
slFile.Free

 

R

retun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-06

• #5

前面的方法是能找到这个行了,但如何才能提取出来,
并显示在MEMO1中呢?
怎么没有人回答我这个问题呢?

 

L

Lfish

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-06

• #6

if pos('问题',slFile)<>0 then
Memo1.Lines.Add(slFile)

 

R

retun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-06

• #7

问题结束，非常感谢上面的两位，特别是Lfish