PUTFILE 函 数

激活 另存为 对话框 并返回指定的文件名

语 法

PUTFILE([ cCustomTex t] [, cFileNam e] [, cFileExtensions])

返 值 类 型

字符型

参 数 描 述

cCustomText

指 定 在 另 存 为 对 话 框 上 部 显 示 的 标 题 在 W indows 3.x 中 该 文 本 显

示 为 对 话 框 标 题 在 W indows 95 中 该 文 本 替 换 文 件 名 标 签

注意 在 W indows 95 中 长标题可能被截断

cFileName

指 定 在 文 本 框 中 显 示 的 默 认 文 件 名

cFileExtensions

指 定 文 件 的 扩 展 名 当 清 除 所 有 文 件 复 选 框 时 在 另 存 为 对 话 框的 可 滚 动 列 表 中 只 显 示 具 有 指 定 扩 展 名 的 文 件 名 如 果 输 入 的 文 件 名 不 包含 扩 展 名 cFileExtensions 中 的 第 一 个 扩 展 名 会 自 动 加 到 文 件 名 上

字符表达式 cFileExtensions 可以是下列某一形式

• cFileExtensions

  可 以 包 含 单 个 的 扩 展 名 例 如 PRG 只 有 带 这 个 扩 展 名的 文 件 名 才 被 显 示

• cFileExtensions

  可 以 包 含 用 分 号 分 隔 的 文 件 扩 展 名 列 表 例 如 如 果 包 含

PRG;FXP V isual FoxPro 将 显 示 所 有 带 PRG 和 FXP 扩 展 名 的 文 件 名

• 如

  果 文 件 名 具 有 相 同 的 基 本 名 但 扩 展 名 不 同 例 如 CUSTOMER.PRG 和 CUSTOMER.FXP) V isual FoxPro 所 显 示 的 文 件 是 扩 展 名 在cFileExtension 中 位 置 靠 前 的 文 件

• cFileExtensions

  可 包 含 用 竖 线 分 隔 的 文 件 扩 展 名 列 表 例 如 PRG |FXP 在这 种 情 况 下 即 使 文 件 有 相 同 的 基 本 名 V isual FoxPro 也 把 所 有 具 有 指 定扩 展 名 的 文 件 名 显 示 出 来

• 如

  果 cFileExtensions 只 包 含 一 个 分 号 ( ) V isual FoxPro 显 示 所 有 不 带 扩展 名 的 文 件 名

• 如

  果 cFileExtensions 是 个 空 字 符 串 V isual FoxPro 显 示 当 前 目 录 中 的 所 有文 件 名

• 如

  果 cFileExtensions 包 含 MS-DOS 通 配 符 例 如 问 号 (?) 和 星 号 (*)

V isual FoxPro 显 示 所 有 扩 展 名 符 合 通 配 符 条 件 的 文 件 名 例 如 如 果cFileExtensions 包 含 ?X? 扩 展 名 为 .FXP .EXE .TXT 等 等 的 文 件 都 会显 示

说 明

可以使用 PUTFILE 选择现有的文件名或指定新文件名 PUTFILE 返回一个文件名及其路径 如果不输入文件名 PUTFILE 返回默认的文件名 ( 由 cFileName 指定 ) 和扩展名 ( 由 cFileExtensions 指定 ) 如果选定 取消 或按 ESC 键 PUTFILE

返回一个空字符串 可以使用 PUTFILE 返回的文件名命名一个文件并把它保存到磁盘上

示 例

下面的示例从用户选择的现有表中创建一个分隔数据文件 GETFILE 用于查找和打开表 PUTFILE 用于返回目标文件的名称

gcTableName = GETFILE('DBF', 'Open Table:') USE (gcTableName)

gcDelimName = ALIAS + '.DLM'

gcDelimFile = 'Delimited file:', gcDelimName, 'DLM' IF EMPTY(gcDelimFile) && 按 Esc 键

CANCEL ENDIF

COPY TO (gcDelimFile) DELIMITED && 创建一个界定的文件

MODIFY FILE (gcDelimFile) NOEDIT

请 参 阅

FILE ( ), GETEXPR, GETFILE( ), GETPICT( ), LOCFILE( )