powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Set Default to <текущий каталог>
25 сообщений из 40, страница 1 из 2
Set Default to <текущий каталог>
    #32699232
xamlo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А что нужно сделать, что бы exeшник запускался из любого каталога? Если используется внешняя таблица (обрашаюсь к ней просто как use table1), которая лежит в каталоге с программой, выдается ошибка файл table1.dbf не существует. Как прописать Set Default to <текущий каталог>, или нужно использовать что-нибудь другое?
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699252
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
cCurProc = SYS(16,1)
cCurProc=SUBSTR(cCurProc, 1, RAT("\", cCurProc))
cd &cCurProc
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699268
xamlo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Прописал в main.prg эти три строки, в ответ exeшник пишет ошибку Неправильный путь или имя файла. Может что-то не то?
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699290
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
выдай что дает
?cCurProc
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699292
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
или messagebox(cCurProc,48,'')
до команды сd конечно
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699293
xamlo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В принципе, он выдает значение текущего каталога.
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699297
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
тогда я не понял у меня эти строки в каждой почти программе и проблемм никогда не было
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699301
xamlo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А вы прописываете где-нибудь в main.prg что-то типа Set default to ?
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699309
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а зачем?
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699314
xamlo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всмысле, Set Default to <текущий каталог>, или достаточно cd &cCurProc?
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699334
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну я же говорю зачем?
вы досовской командой меняете рабочий каталог чего ещё надо
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699352
xamlo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, получилось, забыл одну "штучку"
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699354
Фотография AngelOKES
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я прописываю так:
Сначало смотрю что мне выдает sys(16)

А потом в зависимости сколько знаков надо убрать делаю следующее:

per1=left(right(sys(16),len(sys(16))-19),len(right(sys(16),len(sys(16))-19))-9)
set defa to &per1

Т.е. 19 знаков справа и 9 слева.
У тебя может быть другой случай, тогда вычитаешь нужное кол-во знаков.
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32699871
Фотография Redrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Странные проблемы... EXE-шник и DBF в одном каталоге и ошибка?
???
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32701553
В главном PRG, которе есть точка входа в приложение, пропишите код:
Код: plaintext
1.
2.
lcPath = JUSTPATH(SYS( 16 ))
SET DEFAULT TO (lcPath)           && Установить путь по умолчанию
SET PATH TO FORMS, REPORTS  ... и т.д.
Последняя строка кода указывает VFP на необходимость просмотра вложенных папок с перечисленными именами.
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32705376
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Блин, ну и намудрили, ну и накрутили... Вячеслав дал правильный ответ, а
всякие "убрать 9 справа и 19 слева" это от очень весёлой травы очевидно :)
Вообще CD = SET DEFAULT TO, а макроподстановка в этих командах &cPath не
будет работать правильно если в пути встретятся пробелы.

Posted via ActualForum NNTP Server 1.0
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32705563
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пардон конечно если что не так
а эта команда разве не имеет макропдстановки в своем составе
SET DEFAULT TO (lcPath) ?????????
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32705839
Фотография Redrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не, не утерплю!
Проясните мне, please, суть проблемы, а то у меня в аналогичных ситуациях всегда всё работает без всяких SET DEFA... Может я чего-то не так делаю? ;-)
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32706125
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2redrik
Извените но у меня почему-то не получаеться как вы говорите
хотя конечно если работать в каталоге установленном в фоксе по умолчанию то конечно база откроется
или прописать пути для поиска в фоксе кажеться можно
например содал каталог программу базу и прописал путь
и так каждый раз
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32706138
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
з.ы.
да конечно можно
прописывать в tools-->options-->file location-->search path
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32706150
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
так что если поделитесь секретом как вы такой фокус делаете без всяких усилий то буду рад
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32706256
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
leaf2redrik
Извените но у меня почему-то не получаеться как вы говорите
хотя конечно если работать в каталоге установленном в фоксе по умолчанию то конечно база откроется
или прописать пути для поиска в фоксе кажеться можно
например содал каталог программу базу и прописал путь
и так каждый раз
Речь идет о этапе разработки проекта или о запуске готового EXE?

Если о стадии разработки, то читай здесь:
http://www.foxclub.ru/kb/index.php?sid=28924&aktion=artikel&rubrik=004&id=5&lang=ru

Если о готовом EXE, то вообще не понятная проблема. Как именно происходит запуск EXE?
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32706500
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Владимир
спасибо мне и так примерно всё понятно
я просто не пойму про что была речь redrika
может он что особенное делает
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32706649
Фотография Redrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
leafя просто не пойму про что была речь R edrika
Я говорю о том, что где бы Вы не расположили EXE вместе с DBF, то при его запуске не может не найтись DBF! Что непонятно? И нет тут никаких хитростей!
А насчет стадии разработки - то, с чем я работаю в данный момент, не в лом записать в "tools-...-default directory". Надо взглянуть на что-нибудь другое - я его просто запускаю по Ctrl+D (т.к. set default тут же выскочит само) и выхожу из программы. При работе на своём компьютере процедура выхода у меня в программах не делает "QUIT" и я остаюсь по "дефолту" там, где запускал последнюю программу... :-)
...
Рейтинг: 0 / 0
Set Default to <текущий каталог>
    #32706670
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 redrik
спасибо понял
интересный подход может попробую
по пути вопрос а если два проекта одновременно разрабатываете то в default что указываете
...
Рейтинг: 0 / 0
25 сообщений из 40, страница 1 из 2
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Set Default to <текущий каталог>
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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