将文本文件调入表单的编辑框的方法

发布时间:2008-08-09 20:24:41 阅读次数:

最简单的方法就是利用FoxPro的Append Memo命令。
Create Cursor curFile (TxtFile M)
Insert Into curFile Values ('')
Append Memo TxtFile From File.txt
ThisForm.edtBase1.ControlSource = curFile.TxtFile
这样调入的文本文件在编辑框中是可编辑的,如果允许改变其中的内容,可以使用如下命令将改变以后的内容写回到原来的文件中。
Copy Memo TxtFile To File.txt
另外,在Visual FoxPro 6.0中提供了两个新的函数FileToStr()和StrToFile(),这使得以上功能的实现变得更加容易了。
也可以使用低级文件函数来实现以上功能。
xnFile = FOPEN('File.txt')
xnString = FGETS(xnFile)
thisform.edtbase1.value=xnString
另外,还可以使用RTF文本控件来实现以上功能。将该控件放置到表单上,然后设定其文件名属性就可以了。在以下的例子中,允许用户自己指定一个文件名。
LOCAL lcFile
lcFile =GETFILE('txt')
THISFORM.oleRTFedit.FileName = lcFile