多行文本文件中，找一字符串（可能多行）(200分)

6

6180942

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #1

背景：
编一Isapi 服务程序，Brow端输入内容（多行）被存为一文本文件(html)，
要求能判断，本次输入的内容（多行）是否已在该文本文件中。
如何实现多行文本文件中，找一字符串（可能多行）？

有何好办法？


如果不清楚可连到http://210.34.168.211/zzr.htm试试？

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #2

多行文本与单行没什么区别，因为回车本身也是个字符。
先到你的站上看看再说。

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #3

连不上。

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #4

你自己可以做个小试验：用Tstring.text做一个判断

if pos(Memo1.Lines.Text,Memo2.Lines.Text)>0 then

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #5

土办法
s:string;
i:integer;
s := '';
for i:=0 to memo1.lines.count - 1 do
s := s + memo1.lines;
pos(s,yourstring);

好土，好土:")

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #6

memo1.lines.gettext:")

 

Z

ZRY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-12

• #7

var
L: TStringList;
S1, S2: string;
begin
L := TStringList.Create;
L.LoadFromFile(YourTextFile);
S1 := UpperCase(L.Text); //如果包含英文字母的话，我想需要用这个吧？
S2 := UpperCase(AdjustLineBreaks(YourString));
if Pos(S2, S1)>0 then ...
end;

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-13

• #8

可以用if pos(Memo1.Lines.Text,Memo2.Lines.Text)>0 then ....

 

6

6180942

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-13

• #9

多人接受答案了。

 

6

6180942

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-13

• #10

我昏了头，zry的方法是我采用的，居然只给20分。