powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Расширение имени файла
6 сообщений из 6, страница 1 из 1
Расширение имени файла
    #34845866
shanton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как можно определить расширение имени файла? Функция JUSTEXT() не подходит, поскольку в имени файла возможно присутствие точек, поскольку файлы CAD-приложений.
...
Рейтинг: 0 / 0
Расширение имени файла
    #34845881
И чем функции Justext() помешали точки внутри имени?
...
Рейтинг: 0 / 0
Расширение имени файла
    #34845896
shanton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Когда файл без расширения.
...
Рейтинг: 0 / 0
Расширение имени файла
    #34845904
А как Вы сами в таком случае определяете наличие или отсутствие расширения? По каким признакам?
...
Рейтинг: 0 / 0
Расширение имени файла
    #34845975
shanton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Когда перемещаю файл без расширения:
Код: plaintext
RENAME 'D:\DSERG_Log_200708301203' TO 'C:\DSERG_Log_200708301203'
получаю ошибку:
Код: plaintext
Файл 'D:\DSERG_Log_200708301203.dbf' не существует
тоесть фокс прикручмвает расширение dbf. Надо в начале определить имеет ли файл расширение, если нет, тогда:
Код: plaintext
RENAME 'D:\DSERG_Log_200708301203.' TO 'C:\DSERG_Log_200708301203.'
...
Рейтинг: 0 / 0
Расширение имени файла
    #34847021
Kruchinin Pahan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
shantonКогда перемещаю файл без расширения:
Код: plaintext
RENAME 'D:\DSERG_Log_200708301203' TO 'C:\DSERG_Log_200708301203'
получаю ошибку:
Код: plaintext
Файл 'D:\DSERG_Log_200708301203.dbf' не существует
тоесть фокс прикручмвает расширение dbf. Надо в начале определить имеет ли файл расширение, если нет, тогда:
Код: plaintext
RENAME 'D:\DSERG_Log_200708301203.' TO 'C:\DSERG_Log_200708301203.'

1.
И чем это мешает сделать EMPTY(JUSTEXT())?
Судя по представленному названию, JUSTEXT() вернет пусто.
JUSTEXT('D:\DSERG_Log_2007083.01203') вернет '01203' и скопирует.
2.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
llOk = .T.
TRY
RENAME 'D:\DSERG_Log_200708301203' TO 'C:\DSERG_Log_200708301203'
CATCH
     llOk = .F.
ENDTRY
IF !llOk
    RENAME 'D:\DSERG_Log_200708301203.' TO 'C:\DSERG_Log_200708301203.'
ENDIF
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Расширение имени файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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