Откывает диалоговое окно Save As и возвращает задаваемое имя файла.

PUTFILE([cCustomText] [, cFileName] [, cFileExtensions])

Parameters

cCustomText

Задает надпись вверху диалогового окна Save As.
cFileName

Задает имя файла, предлагаемое по умолчанию в текстовом поле.
cFileExtensions

Задает расширения имен файлов. В прокручиваемом списке диалогового окна Save As будут отображены только имена файлов с заданным расширением, если флажок All Files сброшен. Если введенное имя файла не имеет расширения, к нему автоматически будет присоединено первое расширение из списка cFileExtensions. Параметр cFileExtensions не может превышать 254 символа в длине. Список расширений имен файлов Visual FoxPro и соответствующих им типов приложений см. Расширения имен файлов и типы файлов. Символьное выражение cFileExtensions может иметь один из следующих форматов:
  • cFileExtensions может содержать только одно расширение имени, такое как .PRG, и задавать отображение имен файлов только с этим расширением.

  • cFileExtensions может содержать список расширений имен файлов, разделенных точкой с запятой. Например, если задать PRG;FXP, Visual FoxPro отобразит все имена файлов с расширениями .PRG и .FXP.

  • Если несколько файлов имеют одно имя и разные расширения (например CUSTOMER.PRG и CUSTOMER.FXP), Visual FoxPro отобразит только то имя файла, расширение которого стоит первым в списке cFileExtensions..

  • cFileExtensions может содержать список расширений имен файлов, разделенных вертикальной чертой, например PRG|FXP. В этом случае Visual FoxPro отобразит все имена файлов с заданными расширениями, даже если эти файлы имеют одинаковые корневые имена.

  • Если аргумент cFileExtensions состоит только из точки с запятой (;), Visual FoxPro отобразит все имена файлов, не имеющие расширений.

  • Если cFileExtensions представляет собой пустую строку, Visual FoxPro отобразит имена всех файлов в текущем каталоге.

  • Если cFileExtensions содержит символы подстановки MS-DOS, такие как вопросительный знак (?) и звездочка (*), Visual FoxPro отобразит все имена файлов, расширения которых удовлетворяют заданному критерию. Например, если в качестве cFileExtensions задать ?X?, будут отображены все имена файлов с расширениями .FXP, .EXE, .TXT и т.д.

Результат

Символьный

Замечания

С помощью функции PUTFILE( ) можно выбрать имя существующего файла или задать новое имя файла. PUTFILE( ) возвращает имя файла вместе с путем к нему. Если имя файла не введено, PUTFILE( ) возвращает предлагаемое по умолчанию имя файла (заданное аргументом cFileName) и расширение (заданное аргументом cFileExtensions). Если нажать кнопку Cancel или клавишу Esc, функция PUTFILE( ) возвратит пустую строку. Вы можете присвоить имя, возвращенное функцией PUTFILE( ), своему файлу и сохранить его на диске.

Пример

В следующем примере создается файл с разделителями данных для произвольной существующей таблицы, которую укажет пользователь. Функция GETFILE( ) ищет и открывает таблицу, а PUTFILE( ) возвращает имя создаваемого файла.
  Копировать код
gcTableName = GETFILE('DBF', 'Open Table:')
USE (gcTableName)
gcDelimName = ALIAS( ) + '.DLM'
gcDelimFile = PUTFILE('Delimited file:', gcDelimName, 'DLM')
IF EMPTY(gcDelimFile)  && нажата клавиша Esc
   CANCEL
ENDIF
COPY TO (gcDelimFile) DELIMITED   && Создаем файл с разделителями
MODIFY FILE (gcDelimFile) NOEDIT

Смотреть также