Имею раширение от староннего разработчика, открываю модули что бы откорректировать немного, а там вместо кода это, кто нибудь сталкивался с таким?
процедура открытьформусохраненияшаблона(a)экспорт перем ___a;~0:___a=1;if ___a=1 then goto ~7;endif;goto ~2;~1:___a=-1;~2:if ___a=0 then goto ~3;endif;goto ~5;~3:;~4:a_=новый диалогвыборафайла(режимдиалогавыборафайла.выборфайла);goto ~8;~5:;~6:a_=новый диалогвыборафайла(режимдиалогавыборафайла.сохранение);goto ~8;~7:___a=-1;goto ~6;~8:;~9:if 1<0 then goto ~15;endif;goto ~16;~10:___a=-1;~11:goto ~12;~12:a_.множественныйвыбор=ложь;goto ~17;~13:;~14:a_.xlsx=истина;goto ~17;~15:___a=-1;~16:if 1>=0 then goto ~11;
endif;goto ~13;~17:;a__="";для a___=1 по 46 цикл a__=a__+символ(число(сред("01210114012101230049003401240113011700500037012001080116010 500470039011201040115012800440054012801120115012700590048004 701270114011900590049004901200116011901040062004800540113010 10115",(a___-1)*4+1,4))-число(символ(кодсимвола("1663524526500173714042884070617640730846368210",a___))));конеццикла;~18:___a=0;if ___a=0 then goto ~25;endif;goto ~26;~19:___a=1;~20:;~21:a_.записать=a__;goto ~28;~22:;~23:a_.фильтр=a__;goto ~28;~24:goto ~23;~25:
if ___a=-1 then goto ~20;endif;goto ~24;~26:if ___a=1 then goto ~27;endif;goto ~22;~27:goto ~21;~28:;_a="";для __a=1 по 28 цикл _a=_a+символ(число(сред("10441106107810781095108610951083003611001079108710910037107 91086111000331096109310981088107410891079109310851110",(__a-1)*4+1,4))-число(символ(кодсимвола("2751765648768533717750242857",__a))));конеццикла;~29:___a=1;~30:___a=0;~31:___a=0;goto ~33;~32:a_.сохранение=_a;goto ~34;~33:a_.заголовок=_a;goto ~34;~34:;~35:___a=-1;if ___a=1 then goto ~38;endif;goto ~37;
~36:if a_.открытьформусохраненияшаблона() then goto ~39;endif;goto ~40;~37:goto ~39;~38:;~39:if a_.выбрать() then goto ~41;endif;goto ~40;~40:;goto ~49;~41:;~42:___a=-1;~43:___a=0;if 0=0 then goto ~44;endif;goto ~45;~44:goto ~47;~45:;~46:a.открытьформусохраненияшаблона(a_.режимдиалогавыборафайла,типфайлатабличногодокумента.xlsx);goto ~48;~47:a.записать(a_.полноеимяфайла,типфайлатабличногодокумента.xlsx);goto ~48;~48:;goto ~49;~49:;конецпроцедуры
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот