Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2009-04-08 00:58:38 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 21:12:08
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#2: 2009-04-08 01:01:15 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 21:12:08
карма: 0

0
Ответов: 5446
Рейтинг: 323
#3: 2009-04-08 06:17:36 ЛС | профиль | цитата
г. Алекс, задача несколько непонятна. Что требуется: расшифровывать выражения вида = или же &#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 (� ... þ)
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#4: 2009-04-08 10:45:37 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 21:12:08
карма: 0

0
Ответов: 5446
Рейтинг: 323
#5: 2009-04-08 21:06:11 ЛС | профиль | цитата
Единого компонента нет.
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#6: 2009-04-08 22:48:03 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 21:12:09
карма: 0

0
6
Сообщение
...
Прикрепленные файлы
(файлы не залиты)