Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://asu.tyumbit.ru/
извиняюсь ,что не уточнил. в Определённом месте лежит папка в которой находится множество xltm-файлов(шаблоны excel). как открыть файлик я понимаю, не могу понять, как найти нужный. как из всего списка выбрать именно тот, у которого в наименовании есть определенные символы. но ещё прогоню методички, спасибо)Irina_ писал(а):Здравствуйте.
Как-то Вы не совсем точно формулируете задачу. Что Вы имеете ввиду, написав о списке файлов? Это файлы в определенной папке или например таблица в памяти, содержащая имена файлов?
Для работы с файлами в зависимости от расширения файла (DBF, TXT, XLSX,...) нужно использовать разные команды.
См. VipProgr.chm :
- Функции общего назначения — Функции для работы с файлами.
- Работа с БД и SQL – Функции для работы с БД — Функции ля работы с DBF файлами.
См. Excel_lib.chm. Здесь ф-ции для работы с Excel.
Код: Выделить всё
Var strNeed, PathToFile : String;
bFind : Boolean;
PathToFile:= '…….'; // папка с файлами
strNeed:= '123'; // определенные нужные символы в имени файла
bFind:= False;
str:= GetFirstFile( PathToFile, '*.xltm');
While str <> strDataIsEmpty do
{
If InStr( strNeed, str ) > 0
{
bFind:= True;
Break;
}
str:= GetNextFile;
}
If bFind
Message( ‘Искомый файл ‘ + str )
else
Message( ‘Не найден файл’ );
Код: Выделить всё
path:='C:\temp'
mask:='искомое'
fPath := GetFirstFile(path,'*'+mask+'*.xltm');
if fPath <> strDataIsEmpty
{
ExecProgram('', fPath, 'Открытие документа',pfFullScreen+pfDontWait, aErrorCode);
}
Почему-то ругается Ошибка: Нет такой функции, поля или метода : GETFIRSTFILE ...spark писал(а):Так не подходит?
Спасибо большое ,всё получилось.Irina_ писал(а):Код: Выделить всё
Var strNeed, PathToFile : String; bFind : Boolean; PathToFile:= '…….'; // папка с файлами strNeed:= '123'; // определенные нужные символы в имени файла bFind:= False; str:= GetFirstFile( PathToFile, '*.xltm'); While str <> strDataIsEmpty do { If InStr( strNeed, str ) > 0 { bFind:= True; Break; } str:= GetNextFile; } If bFind Message( ‘Искомый файл ‘ + str ) else Message( ‘Не найден файл’ );
