|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
замена в имени файла
драсте многие програмы в имени файла текст %data% и %time% заменяеться на текущюю дату и время
как это лучше сделать |
#2
|
||||
|
||||
Не совсем понял вопрос, предположу что нужно примерно такое:
Код:
var i: Integer; FileName: String; FormatSettings: TFormatSettings; begin if not OpenDialog1.Execute then Exit; FormatSettings.ShortDateFormat := 'ddmmyyyy hhmmss'; for i := 0 to OpenDialog1.Files.Count - 1 do begin FileName := ExtractFilePath(OpenDialog1.Files[i]); FileName := FileName + DateToStr(Now, FormatSettings) + '(' + IntToStr(i) + ')'; FileName := FileName + ExtractFileExt(OpenDialog1.Files[i]); if FileExists(FileName) then Continue; RenameFile(OpenDialog1.Files[i], FileName); end; end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
||||
|
||||
Код:
... s:= 'file_%data%_or_%time%.tmp'; s:= StringReplace(s, '%data%', FormatDateTime('ee-mm-dd', Now),[rfReplaceAll]); s:= StringReplace(s, '%time%', FormatDateTime('hh-nn-ss-z',Now),[rfReplaceAll]); ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#4
|
|||
|
|||
програма будет делать авто сохранение
сохранять имя укаханое в щаблоне только там где в шаблоне указано %time% подставляеться текущее время |
#5
|
|||
|
|||
так кажеться умеет дос команда
|
#6
|
|||
|
|||
Ну так и подставляй.
Код:
procedure SaveFile; const FileNameTmpl = 'file_%date%_%time%.dat'; var FileName : String; begin FileName := StringReplace(FileNameTmpl,'%date%',DateToStr(Now),[rfReplaceAll]); FileName := StringReplace(FileName,'%time%',TimeToStr(Now),[rfReplaceAll]); ShowMessage('А теперь сохраняем данные в файл с именем ' + FileName); end; |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
SKIPtr (29.11.2015)
|
#7
|
|||
|
|||
спасибо
я про эту процедуру думал но надеелся будетче то непосредственое из обработки дос команды но наверно лучший вариант это StringReplace |