MYR MYU или давайте напишем методичку...



Posted by Борис, Киев. (193.193.199.155) on December 01, 2001 at 03:25:44:

In Reply to: Дорогу молодым талантам! posted by Анатолий Анимица on November 30, 2001 at 13:45:20:

правда не знаю КОГДА.

уважаемый ААА, запустите вот это.(только создайте счет MYU c c/c по порядку на украинском)
* dtua
* ааа
A2=[sf 0,99]
A6=[cp A2,21,5]
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A2 ^^^^^^^^^^A6
for KR=1 to 1000
for MM=1 to 12
for DD=1 to 28
DT=[dt DD,MM]
D1=DT
call dtua
*^^^^^^^^^^^^^^^^^^^^^^^^^^^^D1 -^^^^^^^^^^^^^^^^^^^^^^DT
endfor
endfor
endfor
A2=[sf 0,99]
A6=[cp A2,21,5]
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A2 ^^^^^^^^^^A6
* мой
for KR=1 to 1000
for MM=1 to 12
for DD=1 to 28
D1=[dt DD,MM]
ME=[sa MYU,MM]
DT=[intsn DD]+' '+[n2*ME]+[intsnYC]+'p.'
*^^^^^^^^^^^^^^^^^^^^^^^^^^^^D1 -^^^^^^^^^^^^^^^^^^^^^^DT
endfor
endfor
endfor
A2=[sf 0,99]
A6=[cp A2,21,5]
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A2 ^^^^^^^^^^A6
stop
:dtua РАБОТАЮЩАЯ подпрограмма дата прописью на украинском вход dt выход dt (1 сент.. 200..|11 сент.. 200.. )
mh='янваpя=сiчня,февpаля=лютого,маpта=березня,апpеля=квiтня,мая=травня,июня=липня,июля=червня,августа=серпня,сентябpя=вересня,октябpя=жовтня,ноябpя=листопада,декабpя=грудня'
dt=[strip dt]
p1=[ps ' ',dt]
*if p1
p2=[strip [cp dt,1,p1-1]]
p3=[strip [cp dt,p1+1,50]]
p4=[ps ' ',p3]
*if p4
p5=[strip [cp p3,1,p4-1]]
p6=[strip [cp p3,p4+1,50]]
*endif
*endif
*P5:^^^^^^^^^^^^^^^^P5
p7=[ps p5,mh]
*P7:^^^^^^P7
*if p7
p8=[strip [cp mh,p7,100]]
*endif
ps=[ps '=',p8]
*if ps
p8=[strip [cp p8,ps+1,12]]
*endif
ps=[ps ',',p8]
*if ps
p8=[strip [cp p8,1,ps-1]]
*endif
dt=p2+' '+p8+' '+p6
return

Ваш мелкоошибочный алгоритм даже без if(ов) проигрывает моему в два раза по скорости(с if(ами)в 4), об остальном могут сказать другие.

Подход Аркадия у меня ассоциировался с простым подходом в современных русскоязычных приложениях.
Просто два или более внешних файлов отвечающих за язык.(например было бы просто велиолепно, если бы и у нас были такие файлы как RU.LNG UA.LNG ...
RU.MNU UA.MNU и возможность добавлять другие)

С ув. Борис.



Пpишедшие ответы: