程序2.prg

来自「VF程序设计电子课件 VF程序设计电子课件」· PRG 代码 · 共 16 行

STORE FOPEN('test.txt') TO fh   && 打开文件
IF fh<0 
	MESSAGEBOX("文件不存在或文件打不开!)
	RETURN .F.
ENDIF
fh2=FSEEK(fh, 0, 2)
fh1=FSEEK(fh, 0)
IF fh2 <= 0  					&& 文件空?
	MESSAGEBOX("文件空!)
ELSE  							
   fhString = FGETS(fh, fh2)  	&& 得到内容
   ? fhString
ENDIF
= FCLOSE(fh)  					&& 关闭文件
RETURN .T.