如何从一个文件中替换或删除掉指定数据?(50分)

R

Robot5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-03

• #1

初学Delphi时间不长，这几天想学着写个程序，程序的主要功能是完成从一个html文件中把指定的内容给替换或删除掉（如：《img....》替换成别的
什么），整个过程是自动完成的，你只要输入要替换的内容就行了。
由于我是初学Delphi，所以不知道用什么方法又快又好的实现这个过程，
还请诸位多指教请详细说明，谢谢！！

 

X

xueminliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-03

• #2

我认为可以用两种解决办法：
1，使用TStrings，把文档Load进来，然后查找要匹配的字串即可。
2，使用有关的Html控件，Delphi自带的控件可以分析Html的元素,不过这个控件
我也没有使用过。

 

R

Robot5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-03

• #3

xueminliu你好！
不知道你说的是哪个控件？

别外哪有这方面的源代吗？
谢谢！

 

F

Fudei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-03

• #4

我以前有个贴了是替换字串去看下。

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-03

• #5

//这是一个字符串替换过程:
//txt是整个字符串
//ss是待替换的子字符串
//ds是目标子字符串
procedure stringreplace(var txt:string;const ss,ds:string);
var
p:integer;
begin
While pos(ss,txt) ＞ 0 do
//注意,这里用了全角的大于号,copy后应该修改
begin
p := pos(ss,txt);
delete(txt,p,length(ss));
insert(ds,txt,p);
end;
end;
//可以像这样用:
...
memo1.lines.loadformfile('abc.html');
txt := memo1.text;
stringreplace(txt,'img','ime');
memo1.text := txt;
memo1.lines.savetofile('abc.html');
//这样就把abc.html里面所有的'img'都换成了'ime'

 

R

Ridolph

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-04

• #6

嘿嘿，当初为了对付 Webzip,这个无赖,我做了一个程序,可整段文字替换,支持整个目录下的所有文件,谁要留下E-mail

 

R

Robot5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-04

• #7

Ridolph：
我要能给我吗？robot5@km169.net

 

R

Robot5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-04

• #8

谢谢，大家的帮助，我的程序以可以用了！
在次感谢大家！！！

 

H

happen_nt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-11

• #9

可以给我一份嘛？谢谢！
happen_nt@pub.nt.jsinfo.net