Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
LeslieMorth
0 / 0 / 0
Регистрация: 13.12.2017
Сообщений: 1
1

Прочитать файл, в имени которого есть сегодняшняя дата

13.12.2017, 11:35. Просмотров 238. Ответов 5

Помогите пожалуйста.
Есть программа, которая раз в сутки пишет статистику в файл. Формат названия файла дд-мм-гггг 00-00.txt.
Пишу программу чтоб прочитать этот файл. Подскажите, как записать имя файла, чтоб в имени стояла сегодняшняя дата.
Спасибо.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2017, 11:35
Ответы с готовыми решениями:

Сегодняшняя дата в DBEdit
Здравствуйте. Подскажите пожалуйста, как вывести в DBEdit'e системную дату при добавлении данных в...

Сегодняшняя дата в Label
Надо чтобы в Label или в Edit была написана сегодняшняя дата в формате ДД.ММ.ГГГГ

Переименование файла, в имени которого есть иерголифы
Здравствуйте, уважаемые форумчане! Обращаюсь к вам за помощью, очень надеюсь на то, что поможете...

Перемещение на флешку только того файла, в имени которого присутствует сегодняшняя дата
Здравствуйте. встала такая задача. Нужно создать батник. на диске с:\work каждый день создаются...

Дозапись в файл, если его имя - сегодняшняя дата
Здравствуйте! Есть небольшие проблемы при работе с файлами, хотелось бы уточнить несколько...

5
Massaraksh7
311 / 264 / 87
Регистрация: 27.05.2017
Сообщений: 1,350
13.12.2017, 11:45 2
Delphi
1
FileName:=FormatDateTime('dd-mm-yyyy',Date)+' 00-00.txt';
0
D1973
Модератор
4012 / 2885 / 1393
Регистрация: 21.01.2014
Сообщений: 12,247
Записей в блоге: 3
Завершенные тесты: 1
13.12.2017, 11:49 3
Цитата Сообщение от Massaraksh7 Посмотреть сообщение
FileName:=FormatDateTime('dd-mm-yyyy',Date)+' 00-00.txt';
Massaraksh7, а почему Date, почему не Now?
0
Nanotentacle
648 / 280 / 125
Регистрация: 20.10.2016
Сообщений: 1,278
13.12.2017, 11:50 4
Вариант 1 (могут быть косяки, но он каноничный):

Delphi
1
2
3
4
5
6
7
function DateFilename:String;
var fs:TFormatSettings;
begin
fs.ShortDateFormat := 'dd-mm-yyyy';
 
result := DateToStr(now,fs)+' 00-00.txt'
end;
Вариант 2 (точно рабочий):
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses ...,DateUtils;
 
...
 
function DateFilename:String;
var y,d,m:String;
begin
y := inttostr(YearOf(now));
m := inttostr(MonthOf(now));
d := inttostr(DayOf(now));
 
while length(y) < 4 do y := '0'+y;
while length(d) < 2 do d := '0' + d;
while length(m) < 2 do m := '0' + m;
 
result := d+'-'+m+'-'+y+' 00-00.txt';
end;
0
Massaraksh7
311 / 264 / 87
Регистрация: 27.05.2017
Сообщений: 1,350
13.12.2017, 12:04 5
Цитата Сообщение от D1973 Посмотреть сообщение
Massaraksh7, а почему Date, почему не Now?
Так время не требуется.
0
D1973
Модератор
4012 / 2885 / 1393
Регистрация: 21.01.2014
Сообщений: 12,247
Записей в блоге: 3
Завершенные тесты: 1
13.12.2017, 12:18 6
Ну и еще один вариант
Delphi
1
2
3
4
5
6
var d, m, y: word;
    fName: String;
begin
 DecodeDate(Now, y, m, d);
 fName := Format('%.2d-%.2d-%.4d 00-00.txt', [d, m, y]);
end;
0
13.12.2017, 12:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2017, 12:18

сегодняшняя дата для value
Верстаю сайт с помощью bootstrap и в процессе работы возникла пара вопросов. Пытаюсь добавить...

Не могу найти способ удалить файл, в имени которого есть знак "\"
Столкнулся с такой проблемой, что никакими методами не получается удалить файл например такого типа...

При добавлении записи сегодняшняя дата должна умножиться на 86400, почему не считает?
написал такой маленький скриптик, при добавлении записи сегодняшняя дата должна умножиться на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru