0 / 0 / 0
Регистрация: 14.03.2010
Сообщений: 24
1

Помогите написать BACH FILE .

22.02.2011, 11:02. Показов 890. Ответов 3
Метки нет (Все метки)

Необходимо генерировать один и тот же имеющийся FILE + Системная ДАТА и ВРЕМЯ
Пример :
есть некий FILE с именем : пример.ТХТ
необходимо при запуске BACH FILE создать - пример141220041506.ТХТ
пример141220041510.ТХТ
пример141220041514.ТХТ
и так далее ... Тайминг я запускаю сам.
Важен Синтакс соединения Имени FILE с системной датой и временем !

Заранее благодарен.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.02.2011, 11:02
Ответы с готовыми решениями:

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

Помогите отладить программу. Can't find include file <alloc>.
Доброго времени суток,вобщем нужно сделать так,чтобы она заработала.Я запутался в ошибках.Помогите...

Помогите подключится к базе: The Microsoft Jet database engine cannot open the file '(unknown)'
Когда с Asp-страницы пытаюсь подключиться к базе , в Explorer впишет ошибку: The Microsoft Jet...

Не получается написать код для File>Open
Создал проект по шаблону &quot;MDI Application&quot;. В форму MDIChild добавил компоненту Memo. По книжке...

3
1 / 1 / 0
Регистрация: 19.12.2007
Сообщений: 199
22.02.2011, 11:29 2
лутше испoльзoвaт wsh (Windows Script Host)
0
0 / 0 / 0
Регистрация: 14.03.2010
Сообщений: 24
22.02.2011, 12:11  [ТС] 3
Вы могли бы мне помочь с написанием данного скрипта ?
0
Messir
25.02.2011, 02:10 4
Пример:
copy.vbs:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim a, b, x, i, fso
set fso = CreateObject('Scripting.FileSystemObject')
' Тут указываем имя исходного файла:
x = 'пример.txt'
 
i=InStrRev(x, '.')
If i > 0 then
    a = left(x, i-1)
Else
    a = x
End If
a = a & Year(Now)
b = Month(Now): If Len(b) = 1 Then b = '0' & b
a = a & b
b = Day(Now): If Len(b) = 1 Then b = '0' & b
a = a & b
b = Hour(Now): If Len(b) = 1 Then b = '0' & b
a = a & b
b = Minute(Now): If Len(b) = 1 Then b = '0' & b
a = a & b
if i > 0 Then a = a & Mid(x, i)
' Тут что-то делаем с файлами, например копируем первый во второй:
If fso.FileExists(x) Then
    if fso.FileExists(a) Then fso.GetFile(a).Delete
    fso.GetFile(x).Copy(a)
Else
    MsgBox 'File '' & x & '' does not exist!', vbCritical, 'Error'
End If
set fso = nothing
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2011, 02:10

Помогите написать формулу ,никак немогу написать (2k)! в ней
Помогите написать формулу ,никак немогу написать (2k)! в ней

Написать header file для производного класса class
Vsem privet,kto mojet napisat zdes header file. Vse funkcii uje zapisal. Nujno zapisat...

Нужно написать программу которая сохраняет данные dat.file
Нужно написать программу которая сохраняет данные dat.file Почему не создает &quot;dat.file&quot;! где...

Как написать CGI на С или на Delphi для Upload File на сервер?
Как написать CGI на С или на Delphi для Upload File на сервер,


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

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

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