文本处理求助(100分)

C

colsnake

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-13

• #1

想实现这样一个功能:
将文本中不符合条件文本行自动删除,例如:文本
"123
234
asdf
ag"
中asdf不符合条件,需自动删除,处理后为
"123
234
ag"
如何处理,在线waiting

 

S

SupermanTm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-13

• #2

你过滤的条件是什么？

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-13

• #3

var
s: TStringList;
i: Integer;
begin
s := TStringList.Create;
s.LoadFromFile('c:/abc.txt');

for i := s.Count - 1 downto 0 do
begin
if s = 'asdf' then
s.Delete(i);
end;

s.SaveToFile('c:/abc.txt');
s.Free;
end;

 

C

colsnake

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-15

• #4

我想到答案了~~
用2个文本控件,例如memo1,memo2
memo1读入临时文件abc.txt,
for i:=0 to memo1.lines.count do
begin
s:=memo1.lines;
if pos('asdf',s)=0 then
memo2.lines.add(s)
else
continue;
end;
应该就可以解决了.

 

C

colsnake

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-15

• #5

多人接受答案了。