F G E T S 函 数
从低级文件函数打开的文件中返回一系列字节 直至遇到回车符
语 法
FGETS ( nFileHandle [, nBytes ])
返 值 类 型字符型 参 数 描 述
nFileHandle
指 定 一 个 数 值 型 文 件 句 柄 FGETS 函 数 根 据 此 句 柄 从 相 应 的 文 件 或 通信 端 口 返 回 数 据
nBytes
指 定 由 FGETS 函 数 返 回 的 字 节 数 如 果 在 此 之 前 没 有 遇 到 回 车 符FGETS 函 数 返 回 nBytes 个 字 节 如 果 回 车 符 在 nBytes 个 字 节 当 中 则FGETS 函 数 返 回 文 件 指 针 起 始 位 置 与 回 车 符 之 间 的 数 据
如 果 省 略 nBytes 则 FGETS 函 数 默 认 最 多 可 返 回 254 个 字 节
说 明
通过使用一串 FGETS 函数 可以逐行阅读文件
FGETS 函数将一串字节作为单个字符串返回 所返回的数据从文件指针的当前位置开始 直至遇到回车符为止 此时文件指针将定位在紧接此回车符的字节上 回车符不包含在所返回的字节中 其中的换行符也被放弃
示 例
*** TEST.TXT 文件必须存在 ***
STORE FOPEN('test.txt') TO gnFileHandle && 打开文件
STORE FSEEK(gnFileHandle, 0, 2) TO gnEnd && 移动指示器到 EOF STORE FSEEK(gnFileHandle, 0) TO gnTop && 移动指示器到 BOF IF gnEnd <= 0 && 文件为空吗 ?
WAIT WINDOW 'This fi le is empty!' NOWAIT
ELSE && If not
gcString = FGETS (gnFileHandle, gnEnd) && 保存内容
? gcString ENDIF
= FCLOSE(gnFileHandle) && 关闭文件
请 参 阅
FCHSIZE ( ), FCLOSE( ), FCREATE( ), FEOF( ), FFLUSH( ), FILETOSTR( ),
FOPEN( ), FPUTS( ), FREAD( ), FSEEK( ), FWRITE( )