объясните пожалуйста примерно что делается в этом коде
2 Cashey особо уповаю на тебя, ты вроде в фоксе разбираешься хорохо

Код

*set status off SET BELL OFF SET EXCL ON set date germ set safe off *set talk off *set ESCA off SET PRINT OFF use m310p_t copy to m31 use m31 repl all obkd with obkdpp use ved excl zap appe from m31 close all sele 1 *use c:\DISK_D\NSI\m20000 inde c:\DISK_D\NSI\m20000 use m20000 INDE M20000 *inde on obd to m20000 sele 2 use vedprp3 excl zap appe from VED repl all obd with obkdpp set rela To obd into a go top do whil .not.eof() repl obdchk with a->obdch skip enddo repl all obd with obchd INDE ON SUBSTR(OBD,4,9)+SUBSTR(OBD,1,3)+OBKD TO VEDPRP QUIT *RETURN

Это сообщение отредактировал(а) Paradox - 22.1.2004, 08:05

Вот еще выручайте попадаю надо эти алгоритмы на SQL сконвертить

Код

set status off set scor off set talk off set color to w/w set safe off clear restore from bbb addi set color to w/b @ 8,18 to 15,52 clear set color to gr+/b @ 8,19 to 15,51 double @ 10,24 say 'ИДЕТ РАЗУЗЛОВАHИЕ СБОРКИ' @ 13,30 SAY KUKU STORE KUKU TO DDD1 use M310P DELE FILE PPP.DBF COPY STRU TO PPP APPE BLAN REPL OBCHD WITH DDD1,OBKD WITH DDD1,KOCHK WITH 1,KO1 WITH 1,KO2 WITH 1,nzap with recno() DELE FILE M310P.IDX INDE ON aaa+OBKD+OBCHD+str(nzap) TO M310P use     SELE 3     USE PPP     zap     sele 2     USE M310P INDE M310P     GO TOP KKK=0 KUKU=0 NNN=1 kuda=obkd DO WHIL .t. LOCA FOR AAA#'*' IF FOUND() kuda=obkd     SELE 1     USE M20310 iNDE M20310     GO TOP     SET RELA TO aaa+OBKD INTO B     seek kuda     if .not.found()     sele 2     seek ' '+kuda     if subs(obchd,1,1)='1'.or.subs(obchd,1,1)='2'.OR.SUBS(OBCHD,1,1)='7'.AND.SUBS(OBCHD,4,9)='000000000'     repl aaa1 with '-'     endif     sele 1     endif     IF OBKD=B->OBKD.AND.aaa=B->AAA.and.obkd=kuda.and..not.eof()     DO WHIL .NOT.EOF().and.obkd=kuda ******в m20310 всегда aaa=' '*******     SELE 3     APPE BLAN     REPL KO1 WITH B->KOCHK,KOCHK WITH A->KOCHK,OBCHD WITH A->OBCHD,OBKD WITH A->OBKD     repl obkdpp with obkd,obkd with obchd,ko2 with kochk,kochk with ko1*kochk     repl prim_uzel with b->prim_uzel     repl kkk1 with b->kkk1+1     sele 2     repl aaa1 with '+'     SELE 1     SKIP     ENDDO     endif set rela to SELE 2 use m310p REPL ALL aaa WITH '*' FOR AAA#'*'.and.subs(obchd,1,1)='0' REPL ALL aaa WITH '*' FOR AAA#'*'.and.subs(obchd,1,1)>'2' * REPL ALL AAA WITH '*',UROV WITH KKK FOR AAA#'*'.and.aaa1='+' * REPL ALL AAA WITH '*',UROV WITH KKK FOR AAA#'*'.and.aaa1='-' REPL ALL AAA WITH '*' FOR AAA#'*'.and.aaa1='+' REPL ALL AAA WITH '*' FOR AAA#'*'.and.aaa1='-' REPL ALL UROV WITH KKK1 SELE 3 IF RECCO()>0 KUKU=1 ENDIF DELE FILE PPP1.DBF COPY TO PPP1 IF KUKU=1 SELE 2 APPE FROM PPP1     repl all nzap with recno()     REPL ALL PRIM_UZEL WITH OBKD FOR AAA#'*'.AND.SUBS(OBKD,1,1)='1'.AND.SUBS(OBKD,4,9)#'000000000'  &&& СО ВТОРОГО УРОВHЯ     KKK=KKK+1     DELE FILE M310P.IDX     INDE ON aaa+OBKD+OBCHD+str(nzap) TO M310P ENDIF SELE 3 ZAP SELE 2 USE M310P INDE M310P excl LOOP ELSE EXIT ENDIF ENDDO USE CLOSE ALL retu

Это сообщение отредактировал(а) Paradox - 22.1.2004, 09:30

Код написан на каком-то старом диалекте Фокса, но постараюсь помочь

Код

*set status off   && закоментированный текст SET BELL OFF                && отключение звуковых сигналов (в VisualFoxPro не используется) SET EXCL ON                 && установка открывать таблицы в монопольном режиме (в VisualFoxPro не используется) set date germ               && установка немецкого типы даты set safe off                   && отключение сообщения при перезаписывании файла *set talk off                  && закоментированный текст *set ESCA off                && закоментированный текст SET PRINT OFF              && уставновка отказа дублирования вывода дисплея на принтер (в VisualFoxPro не используется) use m310p_t                 && открытие таблицы m310p_t copy to m31                  && копирование в файл m31 use m31                        && открытие таблицы  m31 repl all obkd with obkdpp          && замена всех значений obd на значение obkdpp use ved excl                  && открытие таблицы ved  в эксклюзивном режиме (глупо т.к. есть установка SET EXCL ON) zap                                && очистка всего содержимого таблицы appe from m31              && вставка значений из таблицы m31 close all                         && закрытие всех таблиц   sele 1                           && выбор псевдонима 1 *use c:\DISK_D\NSI\m20000 inde c:\DISK_D\NSI\m20000     && закоментированный текст use m20000 INDE M20000   && открытие таблицы с индексом *inde on obd to m20000      && закоментированный текст sele 2                           && выбор псевдонима 2 use vedprp3 excl                  && открытие таблицы в эксклюзивном режиме (глупо т.к. есть установка SET EXCL ON) zap                                 && очистка всего содержимого таблицы   appe from VED               && вставка значений из таблицы VED repl all obd with obkdpp   && замена всех значений obd на значение obkdpp set rela To obd into a       && установка связи по полю obd с псевдонимом a go top                               && преход к первой записи do whil .not.eof()              && цикл замены значений поля obdchk на a->obdch repl obdchk with a->obdch   && в VisualFoxPro заменено на команду SCAN skip enddo repl all obd with obchd      && замена всех значений obd на значение obchd INDE ON SUBSTR(OBD,4,9)+SUBSTR(OBD,1,3)+OBKD TO VEDPRP   && установка сложного индекса для таблицы VEDPRP QUIT      && Конец программы *RETURN     && закоментированный текст

Кажется так

Это сообщение отредактировал(а) Cashey - 22.1.2004, 10:32

Спасибо большое

Cashey

Код

set rela To obd into a       && установка связи по полю obd с псевдонимом a

а что подразумевается под этим псевдонимом?
Какая таблица ?

a здесь это первая область данных, которая используется на момент исполнения комманды. В твоем случае это таблица m20000
Да, связь установится по индексированному полю

Это сообщение отредактировал(а) Cashey - 22.1.2004, 15:07

А что тебе нужно по второму коду? Там сплошные удаления таблиц и создание таблиц с тем же именнем, вероятно с той же структурой и набором данных. Лечение баз какое-то. Если будешь перекладывать его на VisualFoxPro имей ввиду, что код в высшей степени безграммотный.

Я не знаю размера таблиц, но судя по тому, как с ними обращаются, они не очень большие и либо учебные, либо никому не нужные.
Если не объяснять, что делает этот "код", то его можно заменить следующим и получить тотже результат быстрее.

Код

SET BELL OFF SET EXCL ON          && все таблицы открываются эксклюзивно set date germ        && формат вывода даты дд.мм.гггг set safe off             && файлы будут перезаписываться без запроса на подтверждение *set talk off            && если убрать звездочку - на экране не будут мелькать результаты работы *set ESCA off SET PRINT OFF SELECT * FROM m310p_t INTO DBF vedprp3    && копируем из таблицы m310p_t в vedprp3 USE m20000 INDEX m20000 IN 0                   && открываем таблицу m20000 с одноим.индексом SET RELATION TO obkdpp INTO m20000         && связываем такблицу vedprp3 c таблицей m20000 * и наконец заменяем значения интересующих нас полей таблицы vedprp3 * на значения других полей этой-же таблицы или таблицы m20000 REPLACE ALL obkd     WITH obkdpp,;                      obd      WITH m20000.obdch,;                      obdchk WITH obd * далее идет генерация индекса для таблицы vedprp3.dbf (файл vedprp.idx) INDE ON SUBSTR(OBD,4,9)+SUBSTR(OBD,1,3)+OBKD TO VEDPRP QUIT          && выход в ОС *RETURN    && если перенести звездочку на строку выше, то выход в среду FoxPro                  && или к месту вызова этого кода (напр. после оператора DO thisCode.PRG)

Можно сделать одно замечание по поводу оператора SET RELA.... Я думаю, что должно работать корректно, но если вдруг поле obkdpp имеет большую длину нежели поле obd, то правильнее его записать SET RELATION TO LEFT(obkdpp, <длина поля OBD>)
Если что не так можно писать [email protected]

Korney если уж решил похвастаться своими знаниями Фокса так уж пиши код правильный, твой вариант будет работать только при некоторых стечениях данных. те теряет универсальность

Цитата

Я не знаю размера таблиц, но судя по тому, как с ними обращаются, они не очень большие и либо учебные, либо никому не нужные.

Korney это таблицы БД одного из крупнейших заводов Новосибирска, просто они щас с досовского фокса переходят под винды и интербейз - этим переводм занимается наша фирма и в частоности я

Paradox
А почему им не воспользоваться VisualFoxPro? Пареход будет, относительно, простой, работать будет под виндами, а работа с базами надежна. Если сеть маленькая, то можно и сетевую версию сделать.

Цитата

Korney если уж решил похвастаться своими знаниями Фокса так уж пиши код правильный,

Модератор: На форуме запрещено переходить на личности. Если человек ошибся, то не стОит ему это указывать в грубой форме. Все мы не идеальны.

Korney
Администрация с огромным удовольствием выражает Вам свою благодарность за посещение нашего форума. Приглашаем Вас зарегистрироваться и стать нашим постоянным участником. Мы всегда рады новым лицам

AntonSaburov а в чем тут грубая форма? Топик создался с просьбой расшифровать приведенный код, а ему его переложили на тот же язык. Просто хотели похвастаться, что могут лекгий код сделать еще легче. Вот только если он еще и корректным был...

Если все-таки я кого-то обидел приношу свои извенения, не хотел.
Korney участники форума также присоединяются к словам администрации, мы тоже рады новым аватарам

Это сообщение отредактировал(а) Cashey - 23.1.2004, 11:01

Цитата

А почему им не воспользоваться VisualFoxPro?

Потому что договор с нами а мы VisualFoxPro не занимаемся
мы ставим им свою систему, для этого все их базы надо перегнать под InterBase
Это является одной из моих задач - мне на нее два месяца
Доделаю и уволюсь - далеко мотаться приходится на работу (но это уже оффтоп пошел)

OK Ничего обидного я не обнаружил.

По первому коду.
1.Я возможно что-то напортачил. и код действительно не сложный
2.Раскажите, как можно перекладывать на сервер код в котором используется несколько таблиц, которые при исполнении этого кода полностью перезаписываются, в них изменяются одно-два поля (часто на поля этой-же таблицы) и все это в режиме эксклюзивного использования. Возможно какие-то из них используются в других прогах. (Тогда мой код однозначно не корректный)
3.Я пытался объяснить, что реально изменяются несколько полей. Судя по последнему оператору код лежит в отдельном PRG-файле и переодически запускается на выполнение, как отдельная прога
4. В коде не используется оператор SELECT - SQL. Не известно сколько полей в исходных таблицах (файлы m310p_t.dbf и m20000.dbf), но их данные копируются, удаляются и добавляются ВСЕ БЕЗ ИСКЛЮЧЕНИЯ и многократно, т.е. при работе с сервером такого рода реализация его просто "убъет" (я так думаю)

По второму коду
Используется три таблицы: m310p m20310 PPP
Последняя - результирующая
Приблизительно этот код делает следующее. В цикле в первой таблице (m310p) ищется запись у которой aaa не равно '*'. Если таковая найдена, то переменной KUDA присваиваем значение поля obkd и в m20310 ищем в поле obkd это значение (KUDA). Если НЕ найден, то мы в m310p "однозначно" нахом запись для которой aaa=' ' и obkd=KUDA, и в этой записи меняем поле aaa1 на '-' при условии, что первый символ поля obchd равен '1' или '2' или ('7' и начиная с 4-го символа девять '0'). Если НАШЛИ то для всех записей таблицы m20310 у которых obkd=KUDA и aaa=m310p.aaa (предварительно была установлена связь между m20310 и m310p по не полному ключу aaa+obkd) в результирующую таблицу PPP добавляется по пустой записи и части полей присваиваются значения (см. несколько подряд идущих команд REPL), а в таблице m310p полю aaa1 присваивается '+'. Так разделавшись с этими записями мы разрываем связь между таблицами, закрываем и снова открываем m310p и присваиваем полю aaa значение '*' для всех записей удовлетворяющих условию : первый символ obchd='0' или >'2' (т.е. любой ASCII-код начиная с '3') или поле aaa1='+' или '-'. Затем для всех записей полю urov присваиваем значение поля kkk1. Если в таблицу PPP попала хотябы одна запись, то мы эти записи добавляем к таблице m310p. Заменяем для всех записей поле nomz на физический номер записи, а поле prim_uzel на obkd для aaa#'*' и первый символ obkd='1' и начиная с 4-го символа девять '0'. После этого мы удаляем индес таблицы m310p и строим его снова. Затем очищаем таблицу PPP и повторяем цикл.
Это конечно очень приблизительное описание и возможно я где-то ошибся.

Как это сконвертить на SQL. Я думаю никак. Говорите это большой завод? Этот код начали писать лет 20 назад (используются операторы которые даже в досовском фоксе были оставлены для совместимости), а это скорее всего означает, что у тех, кто этими программами пользуется есть постановка задачи. Она наверняка устаревшая и не совсем соответствует реализации, но из нее можно почерпнуть какую-то информацию по поводу входных и выходных данных. Далее входные таблицы при необходимости конвертить в БД, которая будет использоваться в вашей проге. Но по собственному опыту знаю, что если там есть данные которые пользуют другие отделы, а вы переписываете не все предприятие целиком, а только часть - тогда можно просто вешаться. "У нас есть программы которые замечательно работают и нас устраивают!!!" (на тех же данных в DOS) и т.д

Цитата

, но из нее можно почерпнуть какую-то информацию по поводу входных и выходных данных. Далее входные таблицы при необходимости конвертить в БД, которая будет использоваться в вашей проге.

именно это и делается

Цитата

вы переписываете не все предприятие целиком, а только часть

именно все от бухгалтерии и планового отдела до отдела кадров

Перенесено из баз данных