编辑框如何打开.rtf格式的文件？

[眼科医生]

再请教一个问题。
因为.rtf的文件都很大，原来存在表字段中，把表体积弄得很大。现在想把.rtf的内容用表的主索引作为文件名单独存放，如何打开，保存，及删除。

[lygcw9602]

不太明白楼主的意思

[aabiao]

用RichText控件，或者直接用Word打开。编辑框是不行的。虽然rtf也是个文本文件，但它里面有好多是用来控制格式的，所以不能用编辑框直接打开。

[lygcw9602]

CLEAR
?GETRTF([AAA.RTF])
*-----VFP打开RTF格式文件
FUNCTION GETRTF
LPARAMETERS CFILENAME
LOCAL CRTF
CRTF=CREATEOBJECT([RICHTEXT.RICHTEXTCTRL.1])
CRTF.TEXTRTF=FILETOSTR(CFILENAME)
RETURN CRTF.TEXT 

[lygcw9602]

为表单新增一个方法程序(假设方法名为GETRTF)，其代码如下

LPARAMETERS CFILENAME
LOCAL CRTF
CRTF=CREATEOBJECT([RICHTEXT.RICHTEXTCTRL.1])
CRTF.TEXTRTF=FILETOSTR(CFILENAME)
RETURN CRTF.TEXT

表单INIT事件代码

THISFORM.EDIT1.VALUE=GETRTF([AAA.RTF])

[lygcw9602]

4楼代码修改如下 表单INIT事件代码

THISFORM.EDIT1.VALUE=THISFORM.GETRTF([AAA.RTF])

[十豆三]

用 RichTextBox 控件 <张洪举老师160问中关于RichTextBox控件的VFP示例> http://download.csdn.net/source/718822

[眼科医生]

就是用编辑框打开.rtf文件