如何将DOC中文本内容转为TXT?分可以再加!(58分)

  • 主题发起人 主题发起人 ccd2518
  • 开始时间 开始时间
C

ccd2518

Unregistered / Unconfirmed
GUEST, unregistred user!
不安装OFFICE,在WINDOWS环境下,如何读取DOC文件的文本内容,并转为TXT文件存储?
 
to ivy1982
需要用程序读出 ,不只是要看到内容。
 
可以试试用字节Byte读出,即用字节文件打开读取.地址从0x0A00H 开始
var
a:byte;
fn:file of byte;
begin
assignfile(fn,'文件名.doc');
reset(fn);
seek(fn,$0A00),
read(fn,a);
......
.....
end;
 
to helium-he
万分感谢,很受启发!
只是这样还是得到文字的内码,都是乱码,该怎么处理成文本呢?
 
读取地址从0x0A00H
 
每做过,帮顶
 
如 ”啊 “字 在txt文件中为0XB031H 在DOC中为0X4955H
怎么将他在DOC中的编码转为txt中的编码呢?
 
已解决,多谢大家!
 
后退
顶部