请教editbox编辑框导入txt文件并修改后再次保存的问题?
有两个按钮【打开】按钮的代码:
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文件,还是原来的内容,而后来输入的几个字符反而覆盖了原本内容的头头几个字符。
请各位大侠指导一下,我如何才能做出删减的效果。