怎样查找在文件里的内容？(100分)

T

tatami

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-13

• #1

在&gt;3000行的txt文件中查找一字符串<br>别告诉我一行一行的pos,除了这个还有什么办法，能用流操作吗？

 

老

老赵

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-13

• #2

我有一个控件（对memo改良）能实现查找和替换。<br>你要吗？(plusmemosearch)

 

L

LSS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-13

• #3

将整个文件读到memo1中，后用pos('abcd',memo.lines.text)就行了

 

T

tatami

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-13

• #4

一定要通过memo吗？这个我早试过了，但如果文件多的话，那会比较麻烦的，而且我也<br>不需要将文件内容写实出来。能直接操作吗？<br>

 

T

Topside

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-13

• #5

可用TMemoryStream。<br>Strpos

 

T

tatami

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-13

• #6

to topside:有具体用法吗？

 

X

xuyingfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-13

• #7

只能一行一行的pos这是最快的方法了。<br>因为每一行的字符越多查找的就越慢。

 

T

Topside

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-13

• #8

用TMemoryStream搜索一下论坛和Delphi的帮助。

 

L

LSS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-14

• #9

用Tstringlist使用方法与memo差不多<br>var s:tstringlist;<br>begin<br>s.create;<br>s.loadfrom...<br>s.free

 

L

LSS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-14

• #10

procedure TForm1.Button1Click(Sender: TObject);<br>var s:tstringlist;<br>begin<br>&nbsp;s:=TStringList.Create;<br>&nbsp;s.LoadFromFile('c:/autoexec.bat');<br>&nbsp;if pos('PATH',s.Text)&gt;0 then showmessage('&amp;Otilde;&amp;Ograve;&amp;micro;&amp;frac12;&amp;Aacute;&amp;Euml;')else showmessage('&amp;Atilde;&amp;raquo;&amp;Otilde;&amp;Ograve;&amp;micro;&amp;frac12;');<br>&nbsp;s.free;<br>end;<br>以上是查找文本<br>如果是二进制文件，还得变程序

 

T

tatami

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #11

多人接受答案了。