for flooders
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум
   Лисоводы   всех   стран,  объединяйтесь !!!  

Список Форумов  :: Visual Foxpro, Foxpro for DOS
  

Аналог функции GETFILE()
OlegA
Автор

Сообщений: 522
Откуда: Иркутск
Дата: 15.01.21 10:44:08
Добрый день.
Нужен аналог функции GETFILE(), чтобы возвращало имя с учетом регистра.
Функции GETFILE() возвращает в верхнем регистре.
Ratings: 0 negative/0 positive

Re: Аналог функции GETFILE()
PaulWist

Сообщений: 13587
Дата: 15.01.21 11:04:18
MsComDlg.CommonDialog


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive

Re: Аналог функции GETFILE()
dimuhametov

Сообщений: 1517
Откуда: Костанай
Дата: 15.01.21 12:49:50
OlegA
Добрый день.
Нужен аналог функции GETFILE(), чтобы возвращало имя с учетом регистра.
Функции GETFILE() возвращает в верхнем регистре.
  
  PROCEDURE myGETFILE  
  LPARAMETERS cFileExtensions,cText,cOpenButtonCaption,nButtonType,cTitleBarCaption  
  LOCAL m.lcfile  
  m.cFileExtensions=IIF(EMPTY(m.cFileExtensions),'',m.cFileExtensions)  
  m.cText=IIF(EMPTY(m.cText),'',m.cText)  
  m.cOpenButtonCaption=IIF(EMPTY(m.cOpenButtonCaption),'',m.cOpenButtonCaption)  
  m.nButtonType=IIF(EMPTY(m.nButtonType),0,m.nButtonType)  
  m.cTitleBarCaption=IIF(EMPTY(m.cTitleBarCaption),'',m.cTitleBarCaption)  
  m.lcfile=GETFILE(m.cFileExtensions,m.cText,m.cOpenButtonCaption,m.nButtonType,m.cTitleBarCaption)  
  TRY   
  	oFSO=CreateObject("Scripting.FileSystemObject")        
  	loDir=oFSO.GetFile(m.lcfile)  
  	m.lcfile=loDir.path   
  CATCH   
  ENDTRY   
  RETURN m.lcfile


------------------
Незнание делает жизнь такой интересной.
Ratings: 0 negative/0 positive

Re: Аналог функции GETFILE()
akvvohinc

Сообщений: 3186
Откуда: Москва
Дата: 15.01.21 13:45:26
OlegA
Нужен аналог функции GETFILE(), чтобы возвращало имя с учетом регистра.

После того, как имя файла с помощью GETFILE() получено, можно узнать имя этого файла с учетом регистра с помощью функции ADIR() с параметром nFlag=1.
Ratings: 0 negative/2 positive

Re: Аналог функции GETFILE()
OlegA
Автор

Сообщений: 522
Откуда: Иркутск
Дата: 18.01.21 07:04:01
akvvohinc
OlegA
Нужен аналог функции GETFILE(), чтобы возвращало имя с учетом регистра.

После того, как имя файла с помощью GETFILE() получено, можно узнать имя этого файла с учетом регистра с помощью функции ADIR() с параметром nFlag=1.
Спасибо большое, все просто если читать мат.часть. То же была мысль про ADIR(), запустил со стандартными параметрами результат тот же, а почитать хелп внимательно даже мысли не было.
Всем спасибо, кто откликнулся.
Ratings: 0 negative/0 positive



Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 9 Simple777  (Гостей: 8)


© 2000-2021 Fox Club 
Яндекс.Метрика