Здравствуйте. Подскажите, пожалуйста,
как в Clarion for DOS подсунуть файлу перемененный путь перед его открытием?
Переменные пути для БД
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
-
- Ветеран
- Сообщения: 311
- Зарегистрирован: 08 Июль 2005, 22:04
Как прописать путь файлу
Описываешь файл, с обязательным параметром [/i][/i]Name(F_Name)
KT FILE,PRE(KT),CREATE,RECLAIM,Name(F_Name)
где F_Name - переменная
F_Name String(100)
Code
F_Name= путь к файлу
Open(KT) !Собственно открывается этот файл
Я для открытия использую отдельную процедуру. Как пример:
MEMBER('BOOK')
Open_kp PROCEDURE !THIS PROCEDURE IS NOT DEFINED
CODE !
Close(kt)
y"='MB'&mem:god&'\M'&Clip(Mem:mes)
MakeDir(y")
F_Name='mb'&mem:god&'\M'&Clip(mem:mes)&'\K'& clip(mem:scet)
OPEN(kt) !OPEN THE FILE
IF ERROR() !OPEN RETURNED AN ERROR
CASE ERRORCODE() ! CHECK FOR SPECIFIC ERROR
OF 46 ! KEYS NEED TO BE REQUILT
BUILD(kt) ! CALL THE BUILD PROCEDURE
OF 2 !IF NOT FOUND,
CREATE(kt) ! CREATE
ELSE ! ANY OTHER ERROR
LOOP;STOP('kt: ' & ERROR()). ! STOP EXECUTION
. .
Close(kt)
RETURN !RETURN TO CALLER
KT FILE,PRE(KT),CREATE,RECLAIM,Name(F_Name)
где F_Name - переменная
F_Name String(100)
Code
F_Name= путь к файлу
Open(KT) !Собственно открывается этот файл
Я для открытия использую отдельную процедуру. Как пример:
MEMBER('BOOK')
Open_kp PROCEDURE !THIS PROCEDURE IS NOT DEFINED
CODE !
Close(kt)
y"='MB'&mem:god&'\M'&Clip(Mem:mes)
MakeDir(y")
F_Name='mb'&mem:god&'\M'&Clip(mem:mes)&'\K'& clip(mem:scet)
OPEN(kt) !OPEN THE FILE
IF ERROR() !OPEN RETURNED AN ERROR
CASE ERRORCODE() ! CHECK FOR SPECIFIC ERROR
OF 46 ! KEYS NEED TO BE REQUILT
BUILD(kt) ! CALL THE BUILD PROCEDURE
OF 2 !IF NOT FOUND,
CREATE(kt) ! CREATE
ELSE ! ANY OTHER ERROR
LOOP;STOP('kt: ' & ERROR()). ! STOP EXECUTION
. .
Close(kt)
RETURN !RETURN TO CALLER