Select_Files() описание функции

Sergey Shirokov Guest	#1 03.02.2009 12:06:15 Просьба к Уважаемым разработчикам. Дайте пожалуйста описание функции Select_Files(), её назначение, передаваемые параметры и пример применения.

itman

Administrator

Сообщений: 1004 Регистрация: 15.11.2007

БЭСТ-5 v3.4 SP крайний

03.02.2009 13:49:29

Если для Б5, то можно использовать и эту:
PopFile(cFileName, cPath, cMask, cTitle, aFileFilter)
Пример:

Код

Local cFileBnkSeek
Local cPath:="c:\"
Local cMask:="*.dbf"
Local aFileFilter:={{"Базы данных","*.dbf"}}
Local cFilename:="bnkseek.dbf"// скачивать здесь http://www.pvision.ru/bik.htm
Local cMess:="Выбор файла BNKSEEK.DBF"
cFileBnkSeek:=PopFile(,cPath,cMask,cMess,aFileFilter) //ищем где находится файл
If Empty(cFileBnkSeek)
  SayAndWait("Не выбран файл")
EndIf   // Empty(cFileBnkSeek)

Изменено: itman - 03.02.2009 13:55:32

С уважением,
Ильин Евгений

nordk

User

Сообщений: 5589 Регистрация: 22.11.2007

Санкт-Петербург, ООО "Динамика"

03.02.2009 19:21:06

На базе БЭСТ-4+
Вот функция

Код
Function Select_Files( nT, nL, Path, cMaska, F_Relat )

Вот пример

Код

  IF !EMPTY( cNewDisk := NextDisk()  )
    cDir :=dirname(cNewDisk)
    IF cDir == '\' ;   cDir := '' ;   ENDIF
    cFile := Select_Files( 5, 15, cNewDisk + ":"+ cDir , { } )
    IF !EMPTY( cFile )
      cRez := MEMOREAD( cFile[1] )
      lRez := .T.
    ENDIF
  ENDIF

nordk

User

Сообщений: 5589 Регистрация: 22.11.2007

Санкт-Петербург, ООО "Динамика"

03.02.2009 19:26:23

На базе БЭСТ-5

Вот функция

Код

****************************************************************************
*   Функция:     select_files                                              *
*   Назначение:  позволяет пользователю выбрать файлы из                   *
*                предложенного списка.                                     *
*   Параметр:    <путь>  - полное имя подкаталога для выбора               *
*                          файлов                                          *
*                cMaska  - Шаблон для выбора по расширениям "DBF"          *
*                          или {"DBF","CDX"};                              *
*                F_Relat - Флаг выбора только в нижележащих директориях с  *
*                          их возвратом                                    *
****************************************************************************
FUNCTION select_files (nT,nL,path, cMaska, F_Relat,lOnlyName)

Вот пример

Код

// Выберем имя файл-архив
    cArcFile:=cPathFile+cArcFileName
    if !file(cArcFile)
      cArcFile:=select_files('Выберите архив',,alltrim(a3),'',.f.)
      if(valtype(cArcFile)='A' .and. len(cArcFile)>0, cArcFile:=cArcFile[1], )
      if lastkey()=27 .or. !file(cArcFile)
        return '0'
      endif
    endif

Sergey Shirokov Guest	#5 04.02.2009 22:56:14 Itman, Nordik! Вы очень помогли, спасибо.

Форум