如何编程将Pdf和rtf文件转换成txt文件?(100分)

  • 主题发起人 主题发起人 lb2000
  • 开始时间 开始时间
rtf to txt:
; 用一个RichEdit控件,设置其属性:WordWrap:=false;Visible := false
;
; with RichEdit1 do begin
; ; Clear;
; ; PlainText := false;
; ; Lines.LoadFromFile('QandD.Rtf');
; ; PlainText := true;
; ; Lines.SaveToFile('QandD.Txt');
; end;
 
rtf :agree liuly
pdf :listen
 
pdf to txt:
; 调用acrobat中自带的pdf2txt。
 
ps有pstotxt,但acrobat中似乎没有
请问在哪可以找到。
 
非常抱歉!记错了。
查了一下,确实是gs中的。不过gs中有pdftops,pstotxt.
 
Acrobat Reader有一个插件:Aerial2.0
安装后可以将pdf文件 "save as RTF"。
下载:http://www.ambia.com
 
我在Gsview5.5中没有找到pdftops.exe,
能发给我一个吗,谢谢!
我的Email是 lbin@263.net
 
找到pdftops了,但是如何将其嵌入程序中呢?
 
按照pdf2ps.bat中的命令方式,用execute调用外部命令。
 
好象pstotxt3无法执行!!
 
没有找到RichEdit控件,不知在哪儿?
所以采用以下方式调用:
procedure TForm1.Button1Click(Sender: TObject);
begin
; rtfrichedit:=trichedit.create(form1);
end;
在运行时提示该控件没有父窗体,为什么?
 
rtfrichedit.parent:=form1;
 
>>没有找到RichEdit控件,不知在哪儿?
?!
Delphi自己带的呀,控件板Win32里
 
我自己写了个将 rtf转换为txt的函数,不用richedit
hehe
 
多人接受答案了。
 
to suppermmx:

; ;可否将你写成的函数给我一份十分感激不尽!
; wxftomy@x263.net
 
后退
顶部