Форум: "Потрепаться";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];
Вниз
Помогите со старой прогой Найти похожие ветки
← →
Брюнетка © (2005-10-19 09:16) [0]Ситуация: есть старая программа, написанная в начале 90-х. В рабочей папке лежит база (*.dbf и пр.), исходники (*.prg) и, как я понимаю, скомпилированные файлы с каким-то непонятным расширением kar. Проблема в том, что нужно поменять пару параметров, а прописаны они, к сожалению не в базе, а в исходниках. А для начала нужно определить хотя бы на каком языке все это дело написано. Судя по исходным текстам, яык похож на Clipper, но вроде бы не он.
Можно, конечно, плюнуть на все это дело и переписать заново, но во-первых требуется время, а во-вторых нерационально - поменять-то нужно всего пару строк.
P.S. Понимаю, что форум дельфистов, но может быть есть спецы по старым языкам? Подскажите плиз в каком направлении копать.
← →
DiamondShark © (2005-10-19 09:33) [1]FoxPro ?
← →
Holy © (2005-10-19 09:35) [2]Кусочек исходников покажите...
← →
XGarik © (2005-10-19 09:38) [3]100% FOXPRO!!!!! Версия скорее всего 2.5
← →
Брюнетка © (2005-10-19 09:40) [4]>DiamondShark © (19.10.05 09:33) [1]
Меня больше всего смущают kar-файлы. В Фоксе я что-то такого не припомню.
← →
MBo © (2005-10-19 09:41) [5]>Меня больше всего смущают kar-файлы
Это караоке, чтобы не скучать во время работы ;)
← →
Брюнетка © (2005-10-19 09:45) [6]>MBo © (19.10.05 09:41) [5]
Ох, сколько раз я уже этот вариант слышала! :))
← →
MBo © (2005-10-19 09:49) [7].kar Precompiled .prg for KARAT (Rus. FOX+ 2.0)
← →
Брюнетка © (2005-10-19 09:50) [8]"кусочек" кода ;)
----------------------------
clear
set status off
set scoreboard off
set safety off
set talk off
set date german
set bell off
set dele on
set path to d:\bazs-svt
******* Создание баз данных со структурами БД K_tr01-88t и K_tr01-88r
clear
@ 15,17 SAY "Создание файлов, содержащих структуры новых БД"
L=1
DO WHILE L<3
if L=1
Fil_b="k_tr01t"
Fil_s="struk_t"
else
Fil_b="k_tr01r"
Fil_s="struk_r"
endif
sele 1
use &Fil_b
copy structure EXTENDED to &Fil_s
use &Fil_s
GO 5
Xtype=FIELD_TYPE
Xlen=FIELD_LEN
XDEC=FIELD_DEC
i=5
DO WHILE i<47
DELETE
skip
i=i+1
ENDDO
PACK
if L=1
go top
C_type=FIELD_TYPE
copy to fil_st for FIELD_TYPE#C_type
DELETE for FIELD_TYPE#C_type
pack
endif
I=1
j=1
DO WHILE I<100
IF I<10
N_p="0"+RTRIM(LTRIM(STR(I)))
ELSE
N_p=RTRIM(LTRIM(STR(I)))
ENDIF
DO CASE
CASE N_p="01".OR.N_p="04".OR.N_p="07"
IF J=1
I_pol=N_p+"V"
ELSE
I_pol=N_p+"E"
I=I+1
ENDIF
if j=1
j=j+1
else
j=1
endif
CASE N_p="15".OR.N_p="16".OR.N_p="33".OR.N_p="34".OR.N_p="35"
DO CASE
CASE J=1
I_pol=N_p+"V"
CASE J=2
I_pol=N_p+"E"
CASE J=3
I_pol=N_p+"T"
I=I+1
if i>35
i=99
endif
ENDCASE
if j<3
j=j+1
else
j=1
endif
OTHERWISE
I_pol=N_p+"O"
I=I+1
ENDCASE
APPEND BLANK
IF L=1
I_pol="T"+I_pol
ELSE
I_pol="R"+I_pol
ENDIF
REPLACE FIELD_NAME WITH I_pol,FIELD_TYPE WITH Xtype;
FIELD_LEN WITH Xlen,FIELD_DEC WITH Xdec
ENDDO
IF L=1
APPEND FROM fil_st
ENDIF
L=L+1
ENDDO
clear
@ 15,17 SAY "Файлы, содержащие структуры новых БД - созданы"
@ 17,15 SAY "Нажмите - <Enter>"
WAIT ""
SUSPEND
RETURN
← →
REP © (2005-10-19 09:51) [9]Это карат. Русский клон Foxpro 1. впринципе компилируется любыми ДОС фоксами. Хотя на компьютере где запускается должна быть папочка Karat или что-то в этом духе.
← →
REP © (2005-10-19 09:53) [10]MBo © (19.10.05 09:49) [7]
странно но на 2 фокс карат не тянет, хотя может были и какие-то другие версии карата.
← →
Amoeba © (2005-10-19 11:05) [11]Карат - это русская версия FoxBase, предшественника FoxPro. Древность жуткая, еще 80-х годов.
← →
Igorek © (2005-10-19 12:33) [12]FoxBase? Писал сто лет назад на нем.. Уж точно не скажу.
← →
SergP. (2005-10-19 13:44) [13]Судя по коду - Фокспро как фокспро...
Ничего нефокспрошного я в нем не вижу...
← →
REP © (2005-10-19 13:59) [14]
> Судя по коду - Фокспро как фокспро...
так ить синтаксис что в FoxPro, что FoxBase, что DBase в общем один. интерпретируются по разному.
← →
Брюнетка © (2005-10-19 14:50) [15]Спасибо, люди добрые, действительно КАРАТ.
Даже компилятор нашла 1988 года, во как. Я в то время в школу ходила и не знала, что такие звери бывают. :)
Всем спасибо, всем большой :kiss:
← →
SergP. (2005-10-19 15:23) [16]
> так ить синтаксис что в FoxPro, что FoxBase, что DBase в
> общем один. интерпретируются по разному.
Ну я насчет FoxBase и DBase не в курсе. Никогда с ними не приходилось работать, а с FoxPro раньше приходилось (да и сейчас иногда тоже).
А насчет того что синтаксис что в FoxPro, что FoxBase, что DBase один даже и не знал...
← →
oldman © (2005-10-19 17:54) [17]Да и Сlipper S`87 компильнет это без проблем...
← →
PQ2 (2005-10-28 20:52) [18]oldman © (19.10.05 17:54) [17]
Да и Сlipper S`87 компильнет это без проблем...
Это ты, дружище, загнул. Clipper через строчку будет находить ошибки. FoxPro работает, только проблемы с кириллицей. Пару символов отображает неверно. Еще была в древние времена киевская разработка MRS-3. Она тоже заглотит прогу без проблем
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.05 c
