г. Алекс, задача несколько непонятна. Что требуется: расшифровывать выражения вида = или же &#laquo;? Если первые - то вот:
Add(Edit,2164993,546,154) { Left=5 Top=5 Width=255 } Add(Button,15131678,455,245) { Left=5 Top=30 Width=255 Caption="Раскодировать" link(onClick,11973333:doEvent1,[]) } Add(Convertor,11545569,861,364) { Mode=4 link(onResult,11603636:doData,[(912,370)(912,353)(744,353)(744,370)]) } Add(CharArray,15089933,546,245) { link(String,2164993:Text,[]) } Add(ArrayEnum,9239057,546,322) { link(onItem,5181081:doCompare,[]) link(onEndEnum,3227796:doText,[(588,335)(588,636)]) link(Array,15089933:Array,[]) } Add(Hub,11973333,504,245) { link(onEvent1,15089933:doLoad,[]) link(onEvent2,9239057:doEnum,[(532,258)(532,328)]) } Add(Memory,9015650,1127,273) { } Add(Memory,4630728,805,182) { } Add(IndexToChanel,14634181,896,483) { Point(Index) link(onEvent1,5910853:doStrCat,[]) link(onEvent2,12408818:doStrCat,[(947,496)(947,545)]) link(Index,14756690:Var2,[]) } Add(Memory,3935404,1085,175) { Default=Integer(0) } Add(StrCat,12408818,966,539) { link(onStrCat,3326718:doWork3,[(1033,545)]) link(Str1,14756690:Var3,[(972,338)]) } Add(StrCat,15506213,749,448) { link(onStrCat,6566216:doWork2,[]) link(Str1,16710512:Var1,[(755,436)]) link(Str2,11603636:GetData,[]) } Add(StrCat,5910853,1127,483) { link(onStrCat,6566216:doWork1,[(1171,489)(1171,454)]) link(Str1,16710512:Var2,[]) } Add(Hub,7423780,686,322) { link(onEvent1,4630728:doValue,[(718,328)(718,188)]) link(onEvent2,58100:doData,[(732,335)(732,244)]) } Add(DoData,58100,805,238) { Data=Integer(1) link(onEventData,3326718:doWork2,[(865,244)(865,181)]) } Add(If_else,5181081,609,322) { Op2=String(&) link(onTrue,7423780:doEvent1,[]) link(onFalse,9171831:doCompare,[(657,335)(657,384)]) } Add(If_else,9171831,672,378) { Op2=String(;) link(onTrue,15506213:doStrCat,[(737,384)(737,454)]) link(onFalse,14634181:doEvent,[(713,391)(713,489)]) } Add(HubEx,6566216,1064,441) { Angle=3 link(onEvent,9015650:doValue,[(1068,279)]) } Add(EventFromData,11603636,756,364) { link(onEvent,1424321:doConvert,[]) } Add(GetDataEx,16710512,1120,427) { link(Data,9015650:Value,[]) } Add(GetDataEx,14756690,889,329) { link(Data,3935404:Value,[(902,270)(1091,270)]) } Add(Convertor,1424321,805,364) { Mode=1 link(onResult,11545569:doConvert,[]) link(Data,14756690:Var1,[(811,338)]) } Add(HubEx,3326718,1029,168) { link(onEvent,3935404:doValue,[]) } Add(Edit,3227796,1169,630) { Left=5 Top=50 Width=255 link(Str,16710512:Var3,[(1175,436)]) }
Для вторых делается таблица соответствия последовательность -> код (ASCII, ANSI или UTF8).
------------ Дoбавленo в 06.17:
Да, при использовании моей схемы правильно обработаются только символы с кодом до 254 (� ... þ)
|