Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Foxpro/Clipper/Dbase > FoxPro

Автор: Paradox 22.1.2004, 08:04

объясните пожалуйста примерно что делается в этом коде
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, 09:29

Вот еще выручайте попадаю надо эти алгоритмы на 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

Автор: Cashey 22.1.2004, 10:20

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

Код

*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     && закоментированный текст

Кажется так

Автор: Paradox 22.1.2004, 10:22

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

Автор: Paradox 22.1.2004, 11:02

Cashey

Код

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

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

Автор: Cashey 22.1.2004, 15:05

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

Автор: Cashey 22.1.2004, 15:12

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

Автор: Korney 22.1.2004, 22:38

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

Код


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]

Автор: Cashey 22.1.2004, 23:25

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

Автор: Paradox 23.1.2004, 07:01

Цитата

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

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

Автор: Cashey 23.1.2004, 09:45

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

Автор: AntonSaburov 23.1.2004, 10:14

Цитата

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

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

Автор: AntonSaburov 23.1.2004, 10:20

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

Автор: Cashey 23.1.2004, 10:28

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

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

Автор: Paradox 23.1.2004, 11:02

Цитата

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

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

Автор: Korney 23.1.2004, 20:47

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) и т.д

Автор: Paradox 24.1.2004, 07:14

Цитата

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

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

Цитата

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

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

Автор: Vit 3.11.2004, 21:52

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