Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Переименовать файл в файл с датой / 12 сообщений из 12, страница 1 из 1
22.01.2008, 15:04
    #35079027
1Eprst
1Eprst
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файл в файл с датой
Знаю что простота но вот не получается Переименовать открываемый файл в файл с датой вида ДД.ММ.ГГГГ!

Мой код:
автор
mTXT_DATE = DTOC(DATE())
new=''
cFilename=''
*ALTER TABLE table post1707 alter COLUMN nls fieldtype c nfieldwidth
cFilename = GETFILE("dbf")
IF !EMPTY(cFilename) THEN
ALTER TABLE &cFilename;
alter COLUMN nls c(5)
CLOSE TABLES
USE &cFilename
SCAN
new='00000'+ALLTRIM(nls)
new=RIGHT(new,5)
REPLACE nls WITH new
ENDSCAN
BROWSE
USE
Rename &cFilename to &cFilename+mTXT_DATE
ELSE
MESSAGEBox('Не выбран файл',0+16,'Мессага')
ENDIF


VisualFoxPro 7.0
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2008, 15:12
    #35079060
Sergey Sizov.
Sergey Sizov.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файл в файл с датой
Жуть.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
mTXT_DATE = DTOC(DATE())
new=''
cFilename=''
*ALTER TABLE table post1707 alter COLUMN nls fieldtype c nfieldwidth
cFilename = GETFILE("dbf")
IF !EMPTY(cFilename) THEN
  select *, space( 5 ) as nls from (cFilename) into table (cFilename+mTXT_DATE) 
ELSE
  MESSAGEBox('Не выбран файл', 0 + 16 ,'Мессага')
ENDIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2008, 15:17
    #35079080
MiklS
MiklS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файл в файл с датой
Renames a table in the current database.


RENAME TABLE TableName1 TO TableName2



Parameters
TableName1
Specifies the name of the table to be renamed.

TableName2
Specifies the new name of the table.

Remarks
You cannot use RENAME TABLE to change the name of a free table; use RENAME instead.

Example
The following example creates two databases named mydbc1 and mydbc2, and a table named table1. The table is added to mydbc1 when it is created. The table is then closed and removed from mydbc1. ADD TABLE is then used to add the table to mydbc2. RENAME TABLE is used to change the name of the table from table1 to table2.


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
CLOSE DATABASES
CREATE DATABASE mydbc1
CREATE DATABASE mydbc2
SET DATABASE TO mydbc1
CREATE TABLE table1 (cField1 C( 10 ), n N( 10 ))  && Adds table to mydbc1
CLOSE TABLES     && A table must be closed to remove it from a database
REMOVE TABLE table1
SET DATABASE TO mydbc2
ADD TABLE table1
RENAME TABLE table1 TO table2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2008, 15:21
    #35079094
Aleksey-K
Aleksey-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файл в файл с датой
Ну на первый взгляд вот тут не понятно:
Код: plaintext
Rename &cFilename to &cFilename+mTXT_DATE
К чему относится символ макроподстановка и нужна ли она для команды Rename!?
Я бы сделал так:
Код: plaintext
1.
RENAME (cFilename) TO (FORCEEXT(cFilename, '') + DTOC(DATE()) + '.' + JUSTEXT(cFilename))
Но не уверен, что в VFP 7.0 уже были FORCEEXT и JUSTEXT

С уважением, Алексей
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2008, 15:46
    #35079192
1Eprst
1Eprst
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файл в файл с датой
Ребята во всех слечаях пишет
авторFile dows not exist
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2008, 16:01
    #35079260
Aleksey-K
Aleksey-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файл в файл с датой
1EprstРебята во всех слечаях пишет
авторFile dows not exist
Да!!
А что дает перед RENAME...
? FILE(cFilename)
С уважением, Алексей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2008, 16:04
    #35079275
Fffffffff
Fffffffff
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файл в файл с датой
Пример
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2008, 16:09
    #35079293
1Eprst
1Eprst
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файл в файл с датой
Дает
автор
not a character expression


Код такой:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
mTXT_DATE = DTOC(DATE())
new=''
cFilename=''
cFilename = GETFILE("dbf")
IF !EMPTY(cFilename) THEN
RENAME File(cFilename) TO (FORCEEXT(cFilename, '') + DTOC(DATE()) + '.' + JUSTEXT(cFilename))
ELSE
MESSAGEBox('Не выбран файл!', 0 + 16 ,'Мэссэндж')
ENDIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2008, 16:12
    #35079308
Aleksey-K
Aleksey-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файл в файл с датой
1EprstДает
автор
not a character expression


Код такой:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
mTXT_DATE = DTOC(DATE())
new=''
cFilename=''
cFilename = GETFILE("dbf")
IF !EMPTY(cFilename) THEN
RENAME File(cFilename) TO (FORCEEXT(cFilename, '') + DTOC(DATE()) + '.' + JUSTEXT(cFilename))
ELSE
MESSAGEBox('Не выбран файл!', 0 + 16 ,'Мэссэндж')
ENDIF

1. Если на ? FILE(cFilename) дает not a character expression, то тут ничем не помочь :)
2. Если not a character expression дает на RENAME, то возможно, что в VFP 7.0 еще не было JUSTEXT или (и) FORCEEXT
С уважением, Алексей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2008, 16:18
    #35079333
1Eprst
1Eprst
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файл в файл с датой
Нужно фокс обновить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2008, 16:52
    #35079467
Sergey Sizov.
Sergey Sizov.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файл в файл с датой
Найти ошибку в своем коде. Иой вариант для любых версий фокса.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2008, 00:05
    #35080209
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать файл в файл с датой
Для справки: функции FORCEEXT() и JUSTEXT() были введены в VFP6. Хотя через FoxTools.fll были доступны и в ранних версиях FoxPro.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Переименовать файл в файл с датой / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 281ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1588256]:
 0ms
get settings:
 4ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 36ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 189ms
total:  281ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]