ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Переименовать файл в файл с датой
12 сообщений из 12, страница 1 из 1
Переименовать файл в файл с датой
    #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:04
| Ответить | Цитировать | Написать  
Переименовать файл в файл с датой
    #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:12
| Ответить | Цитировать | Написать  
Переименовать файл в файл с датой
    #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:17
| Ответить | Цитировать | Написать  
Переименовать файл в файл с датой
    #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:21
| Ответить | Цитировать | Написать  
Переименовать файл в файл с датой
    #35079192
1Eprst
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1Eprst
Гость
Ребята во всех слечаях пишет
авторFile dows not exist
...
Рейтинг: 0 / 0
22.01.2008, 15:46
| Ответить | Цитировать | Написать  
Переименовать файл в файл с датой
    #35079260
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
1EprstРебята во всех слечаях пишет
авторFile dows not exist
Да!!
А что дает перед RENAME...
? FILE(cFilename)
С уважением, Алексей.
...
Рейтинг: 0 / 0
22.01.2008, 16:01
| Ответить | Цитировать | Написать  
Переименовать файл в файл с датой
    #35079275
Fffffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fffffffff
Гость
Пример
...
Рейтинг: 0 / 0
22.01.2008, 16:04
| Ответить | Цитировать | Написать  
Переименовать файл в файл с датой
    #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:09
| Ответить | Цитировать | Написать  
Переименовать файл в файл с датой
    #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:12
| Ответить | Цитировать | Написать  
Переименовать файл в файл с датой
    #35079333
1Eprst
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1Eprst
Гость
Нужно фокс обновить?
...
Рейтинг: 0 / 0
22.01.2008, 16:18
| Ответить | Цитировать | Написать  
Переименовать файл в файл с датой
    #35079467
Sergey Sizov.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov.
Гость
Найти ошибку в своем коде. Иой вариант для любых версий фокса.
...
Рейтинг: 0 / 0
22.01.2008, 16:52
| Ответить | Цитировать | Написать  
Переименовать файл в файл с датой
    #35080209
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Для справки: функции FORCEEXT() и JUSTEXT() были введены в VFP6. Хотя через FoxTools.fll были доступны и в ранних версиях FoxPro.
...
Рейтинг: 0 / 0
23.01.2008, 00:05
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Переименовать файл в файл с датой
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=35079027&tid=1588256]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 64ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 195ms
total:  354ms
созд. / загр.: 354ms
x
x
Закрыть


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