使用DELPHI编写：1、将WORD文件改为HTML文件；2、将改后的WORD文件清理垃圾代码。(200分)

腾

腾龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-08

• #1

使用DELPHI编写：
1、将WORD文件改为HTML文件；
2、将改后的WORD文件清理垃圾代码。

以上所有均需要通过自编软件实现，不用其他工具来实现。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-08

• #2

1、使用Ole技术另存为应该可以。
2、就需要自己耐心分析Html源代码，然后逐个编程将垃圾清理了。

 

腾

腾龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-08

• #3

可能我没有说清楚，我需要自动完成这些操作。是否可以实现？有没有现成的清理WORD的垃圾代码的
方法？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-08

• #4

我说的也是程序来实现的方法。
Com另存，这个早已经是成熟的技术了
自己清理代码，也是需要写程序，分析Word产生的那些没用的html代码，然后删除呀。

 

运

运通

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-08

• #5

To yzhshi:
你的回答“地球人都知道”。没有一点建设性，也没有一丝帮助。其实问题的关键就是要解
决将WORD文件转成为HTML格式的网页，但同时也要将垃圾的代码去除。你的做法就相当于用WORD
另存文件然后手工去垃圾代码，说了白说。

需要的是一套完整的WORD转化为WORD的方法。

 

X

xusong168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #6

to:腾龙
可不可以调用word自动化对象呀？
如果不能调，就必须知道word文件格式，那可是很复杂的。

 

K

Kirste

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #7

以前写的一个程序里的一个方法，
希望下面这个方法对你能所帮助。
function Txt2Html(Text: string):string;
begin
Text: =StringReplace(Text,'"','"',[rfReplaceAll]);
Text: =StringReplace(Text,'<','<',[rfReplaceAll]);
Text: =StringReplace(Text,'>','>',[rfReplaceAll]);
Text: =StringReplace(Text,'&','&',[rfReplaceAll]);
Text: =StringReplace(Text,' ',' ',[rfReplaceAll]);
Text: =StringReplace(Text,#13,'</p><p>',[rfReplaceAll]);
Result: =Text;
end;

 

腾

腾龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #8

只要能够完成这样的操作：
选定一个WORD文件，然后就可以输出一个HTML的文件，但是里边不能包含一些垃圾代码。
最好可以拥有编辑的功能，不过这个功能我知道可以使用DHTMLEDIT来做，不过不知道是否有别的方法。

 

腾

腾龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #9

另问在问。先结束这个