F C R E A T E 函 数 - 图1F C R E A T E 函 数 - 图2F C R E A T E 函 数

F C R E A T E 函 数 - 图3创建并打开低级文件

语 法

FCREATE ( cFileName [, nFileAttribute ])

返 值 类 型

数值型

参 数 描 述

cFileName

F C R E A T E 函 数 - 图4F C R E A T E 函 数 - 图5F C R E A T E 函 数 - 图6F C R E A T E 函 数 - 图7指 定 要 创 建 的 文 件 名 称 在 文 件 名 前 可 以 加 入 驱 动 器 指 示 符 和 路 径 如 果 没有 包 括 驱 动 器 指 示 符 或 路 径 则 在 默 认 目 录 下 创 建 该 文 件

F C R E A T E 函 数 - 图8F C R E A T E 函 数 - 图9注 意 磁 盘 或 目 录 名 称 含 有 感 叹 号 (!) 时 Visual FoxPro 不 会 正 确 辨 认 路 径

nFileAttribute

F C R E A T E 函 数 - 图10F C R E A T E 函 数 - 图11指 定 文 件 的 属 性 下 表 列 出 了 可 以 指 定 的 文 件 属 性

NFile Attribute

文 件 属 性

  1. F C R E A T E 函 数 - 图12F C R E A T E 函 数 - 图13默认值

    读写

  2. 只读

  3. 隐含

  4. 只读

    F C R E A T E 函 数 - 图14 隐含

  5. 系统

  6. F C R E A T E 函 数 - 图15只读

    系统

  7. F C R E A T E 函 数 - 图16系统

    隐含

  8. F C R E A T E 函 数 - 图17F C R E A T E 函 数 - 图18只读

    隐含 系统

F C R E A T E 函 数 - 图19F C R E A T E 函 数 - 图20F C R E A T E 函 数 - 图21F C R E A T E 函 数 - 图22注 意 nFileAttribute 不 为 0 时 创 建 的 文 件 不 能 用 FPUTS 或 FWRITE

F C R E A T E 函 数 - 图23F C R E A T E 函 数 - 图24写 入 直 到 关 闭 文 件 再 重 新 打 开

可 以 使 用 DISPLAY STATUS 或 LIST STATUS 命 令 显 示 或 打 印 由 FCREATE

F C R E A T E 函 数 - 图25F C R E A T E 函 数 - 图26F C R E A T E 函 数 - 图27F C R E A T E 函 数 - 图28 函 数 创 建 并 打 开 的 文 件 信 息 每 个 用 低 级 文 件 函 数 打 开 或 创 建 的 文 件 可由 DISPLAY STATUS 和 LIST STATUS 给 出 下 列 信 息

  • F C R E A T E 函 数 - 图29

    动 器 目 录 和 文 件 名

  • 文 件 句 柄 编 号

  • 文 件 指 针 的 位 置

  • 读 写 属 性

说 明

F C R E A T E 函 数 - 图30F C R E A T E 函 数 - 图31F C R E A T E 函 数 - 图32如果指定的文件已经存在 则覆盖此文件 并不作任何警告

F C R E A T E 函 数 - 图33F C R E A T E 函 数 - 图34F C R E A T E 函 数 - 图35F C R E A T E 函 数 - 图36F C R E A T E 函 数 - 图37F C R E A T E 函 数 - 图38F C R E A T E 函 数 - 图39F C R E A T E 函 数 - 图40F C R E A T E 函 数 - 图41F C R E A T E 函 数 - 图42F C R E A T E 函 数 - 图43FCREATE 函数为此文件指定一个文件句柄编号 在其他的 Visual FoxPro 低级文件函数中 可用此编号标识该文件 在创建一个文件时 FCREATE 函数返回该文件句柄编号 如果不能创建文件 则返回 - 1

F C R E A T E 函 数 - 图44提 示 可 以 把 文 件 句 柄 的 编 号 赋 给 变 量 从 而 可 以 在 其 他 的 低 级 文 件 函 数 中

F C R E A T E 函 数 - 图45用 此 变 量 访 问 该 文 件

示 例

F C R E A T E 函 数 - 图46IF FILE('errors.txt') && 文件存在吗

F C R E A T E 函 数 - 图47gnErrFile = FOPEN('errors.txt',12) && 如存在 打开并读写

ELSE

F C R E A T E 函 数 - 图48gnErrFile = FCREATE ('errors.txt' ) && 如不存在 建立一个

ENDIF

IF gnErrFile < 0 && 检查打开文件的错误

F C R E A T E 函 数 - 图49WAIT ' Cannot open or create output file' WINDOW NOWAIT ELSE && 如无错误 开始写文件

=FWRITE(gnErrFile , 'Error information to be written here') ENDIF

=FCLOSE(gnErrFile ) && 关闭文件

IF gnErrFile > 0

MODIFY FILE errors.txt NOWAIT && 在编辑框中打开文件

ENDIF

请 参 阅

CLOSE ALL, FCHSIZE ( ), FCREATE( ), FEOF( ), FFLUSH( ), FGETS( ),

FOPEN( ), FPUTS( ), FREAD( ), FSEEK( ), FWRITE( )