Вверх ↑
Разработчик
Ответов: 26153
Рейтинг: 2127
#1: 2010-05-08 22:43:12 ЛС | профиль | цитата
Вот этот участок вообще не тронут

code_18153.txt

Я же его упростил, видимо, не дочитал еще
------------ Дoбавленo в 22.43:
А вот этот модуль я еще не оптимизировал, займусь позднее



Add(MultiElementEx,15389493,371,112)
{
@Hint=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|
AddHint(-202,-96,200,78,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,1610369,49,91)
{
WorkCount=#6:doLoad|0:|
EventCount=#12:ResultString|0:|
DataCount=#4:Data|
Width=321
Height=298
link(doLoad,13058490:doEvent1,[(59,97)(59,125)])
}
Add(ArrayRW,2815930,238,322)
{
Point(Count)
link(onRead,1209242:doConvert,[])
link(Array,1158742:Array,[(244,236)(230,236)])
link(Index,13797096:Position,[(251,289)(272,289)])
}
Add(CharArray,1158742,224,119)
{
Point(Count)
link(onLoad,361128:doValue,[(264,125)(264,174)])
link(onGetStr,11673841:doEvent1,[(283,132)(283,97)])
link(String,1610369:Data,[(230,105)(55,105)])
}
Add(MultiElementEx,1209242,287,322)
{
@Hint=#113:Переводит кириллические слова в нижний регистр со 2-й буквы (Устраняет ударения из текста, взятого с телесуфлёра)|
link(onConvert,2815930:doWrite,[(334,328)(334,366)(233,366)(233,335)])
}
BEGIN_SDK
Add(EditMultiEx,2714989,42,56)
{
WorkCount=#9:doConvert|
EventCount=#9:onConvert|0:|
Width=580
Height=165
link(doConvert,9972291:doConvert,[(56,62)(56,181)])
}
Add(Convertor,9972291,84,175)
{
Mode=3
Digits=4
link(onResult,10425741:doEvent1,[])
}
Add(Convertor,7553759,553,154)
{
Mode=4
Digits=4
link(onResult,2714989:onConvert,[(593,160)(593,62)])
}
Add(If_else,7474793,392,133)
{
Type=4
Op1=Integer(0)
Op2=Integer(192)
link(onTrue,9511760:doCompare,[])
link(onFalse,681682:doEvent3,[(430,146)(430,174)])
link(Op1,15257896:Var2,[])
}
Add(Hub,681682,525,154)
{
InCount=5
OutCount=1
link(onEvent1,7553759:doConvert,[])
}
Add(Math,10157637,476,133)
{
Op2=32
ResultType=0
link(onResult,681682:doEvent1,[(517,139)(517,160)])
link(Op1,16357300:Var3,[(482,124)])
}
Add(EventFromData,5870278,287,63)
{
}
Add(Hub,14435260,252,126)
{
link(onEvent1,5870278:doData,[(273,132)(273,69)])
link(onEvent2,15960550:doCompare,[])
}
Add(If_else,9511760,434,133)
{
Type=3
Op1=Integer(0)
Op2=Integer(223)
link(onTrue,10157637:doOperation,[])
link(onFalse,681682:doEvent2,[(472,146)(472,167)])
link(Op1,16357300:Var2,[])
}
Add(Switch,14172245,203,133)
{
DataOn=Integer(1)
DataOff=Integer(0)
Point(doOn)
Point(State)
}
Add(If_else,950763,154,140)
{
Type=4
Op2=Integer(192)
link(onTrue,14172245:doOn,[(194,146)(194,153)])
link(onFalse,14172245:doReset,[(194,153)(194,146)])
}
Add(Hub,10425741,126,175)
{
link(onEvent1,12221205:doEvent,[(164,181)(164,188)])
link(onEvent2,950763:doCompare,[(147,188)(147,146)])
}
Add(IndexToChanel,12221205,203,182)
{
Point(Index)
link(onEvent1,681682:doEvent5,[])
link(onEvent2,14435260:doEvent1,[(243,195)(243,132)])
link(Index,14172245:State,[])
}
Add(Shape,15843163,49,231)
{
Width=291
Height=25
Text="а-я == 224-255 А-Я == 192-223 Ё == 168 ё == 184"
PWidth=2
}
Add(InfoTip,8725950,42,7)
{
Info=#68:Переводит кириллические символы в нижний регистр со 2-й буквы слова |
Width=421
Height=25
}
Add(If_else,15960550,287,133)
{
Op1=Integer(0)
Op2=Integer(168)
link(onTrue,4014808:doOperation,[(327,139)(327,160)])
link(onFalse,7474793:doCompare,[(355,146)(355,139)])
link(Op1,7538732:Var2,[])
}
Add(Math,4014808,336,154)
{
Op2=16
ResultType=0
link(onResult,681682:doEvent4,[(384,160)(384,181)])
}
Add(GetDataEx,7538732,287,119)
{
link(Data,5870278:GetData,[])
}
Add(GetDataEx,15257896,392,119)
{
Angle=3
link(Data,7538732:Var3,[])
}
Add(GetDataEx,16357300,434,119)
{
Angle=3
link(Data,15257896:Var3,[])
}
END_SDK
Add(Memory,361128,273,168)
{
Point(Data)
link(onData,13797096:doFor,[(342,174)(342,211)(254,211)(254,230)])
link(Data,1158742:Count,[(279,163)(244,163)])
}
Add(Hub,13058490,70,119)
{
link(onEvent1,1158742:doLoad,[])
link(onEvent2,16355826:doSwitch,[(87,132)(87,174)])
}
Add(Hub,11673841,294,91)
{
link(onEvent1,1610369:ResultString,[])
link(onEvent2,16355826:doReset,[(319,104)(319,156)(93,156)(93,181)])
}
Add(Switch,16355826,105,168)
{
DataOff=Integer(0)
Point(onOff)
link(onOff,13797096:doStop,[(201,181)(201,237)])
}
Add(For,13797096,266,224)
{
link(onEvent,2815930:doRead,[(317,230)(317,279)(212,279)(212,328)])
link(onStop,1158742:doGetStr,[(310,237)(310,307)(219,307)(219,132)])
link(End,361128:Value,[])
}
Add(InfoTip,14515840,28,14)
{
Info=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|
Width=358
Height=60
}
END_SDK

карма: 22

0
файлы: 1code_18153.txt [6.3KB] [178]