有两个按钮
【打开】按钮的代码：

PUBLIC openfile,gnFileHandle,nSize,cString
openfile=SYS(5)+SYS(2003)+'\备注.txt'
gnFileHandle=FOPEN(openfile,12)
nSize=FSEEK(gnFileHandle,0,2)
IF nSize <= 0  
    WAIT WINDOW "文件是空的或文件已被打开！" NOWAIT
ELSE
    =FSEEK(gnFileHandle,0,0)
    cString = FREAD(gnFileHandle, nSize)
    this.edit1.Value = cString
ENDIF
= FCLOSE(gnFileHandle)

【保存】按钮的代码：
gnFileHandle=FOPEN(openfile,12)
=FWRITE(gnFileHandle,ALLTRIM(this.Parent.edit1.Value))
=FCLOSE(gnFileHandle)

问题是：
调出“备注.txt”文件显示在edit1里面没问题，增加内容再保存也没问题（注意这里是增加），问题就是修改和删减内容再保存就有点乱了，比如把整篇内容都清空，然后再随便输入几个字符，再按保存，没出错，但再看回txt文件，还是原来的内容，而后来输入的几个字符反而覆盖了原本内容的头头几个字符。

请各位大侠指导一下，我如何才能做出删减的效果。

用FILETOSTR()与STRTOFILE()即可解决问题
将TXT文件导入EDIT1中
THISFORM.EDIT1.VALUE=FILETOSTR(SYS(5)+SYS(2003)+'\备注.txt')

将EDIT1中的内容保存到TXT中
STRTOFILE(ALLTRIM(THISFORM.EDIT1.VALUE),SYS(5)+SYS(2003)+'\备注.txt')

原来这么简单，我复杂化了，非常感谢。

打开 按钮代码

THISFORM.AddProperty([FILENAME],[])
THISFORM.FILENAME=GETFILE([TXT])
IF LEN(FILETOSTR(THISFORM.FILENAME))#0 &&文件不为空
   THISFORM.EDIT1.Value=FILETOSTR(THISFORM.FILENAME)
ENDIF

保存 按钮代码

STRTOFILE(THISFORM.EDIT1.VALUE,THISFORM.FILENAME)

[ 本帖最后由 sdta 于 2013-9-5 18:08 编辑 ]