--- Добавлено в 2018-05-26 18:55:07
Tad писал(а):
Silva писал(а):
решил
Похоже?
Add(MultiReplace,13431589,315,259)
{
ReplaceList="А=1-;\r\nБ=2-;\r\nВ=3-;\r\nГ=4-;\r\nД=5-;\r\nЕ=6-;\r\nЁ=7-;\r\nЖ=8-;\r\nЗ=9-;\r\nИ=10-;\r\nЙ=11-;\r\nК=12-;\r\nЛ=13-;\r\nМ=14-;\r\nН=15-;\r\nО=16-;\r\nП=17-;\r\nР=18-;\r\nС=19-;\r\nТ=20-;\r\nУ=21-;\r\nФ=22-;\r\nХ=23-;\r\nЦ=24-;\r\nЧ=25-;\r\nШ=26-;\r\nЩ=27-;\r\nЪ=28-;\r\nЫ=29-;\r\nЬ=30-;\r\nЭ=31-;\r\nЮ=32-;\r\nЯ=33-;\r\nа=1-;\r\nб=2-;\r\nв=3-;\r\nг=4-;\r\nд=5-;\r\nе=6-;\r\nё=7-;\r\nж=8-;\r\nз=9-;\r\nи=10-;\r\nй=11-;\r\nк=12-;\r\nл=13-;\r\nм=14-;\r\nн=15-;\r\nо=16-;\r\nп=17-;\r\nр=18-;\r\nс=19-;\r\nт=20-;\r\nу=21-;\r\nф=22-;\r\nх=23-;\r\nц=24-;\r\nч=25-;\r\nш=26-;\r\nщ=27-;\r\nъ=28-;\r\nы=29-;\r\nь=30-;\r\nэ=31-;\r\nю=32-;\r\nя=33-;"
link(onResult,14047136:doText,[])
link(Text,11527796:Text,[])
}
Add(MainForm,1372481,266,210)
{
Width=366
Height=124
}
Add(Button,15343263,266,259)
{
Left=25
Top=50
TabOrder=-1
link(onClick,13431589:doMultiReplace,[])
}
Add(Edit,11527796,315,210)
{
Left=25
Top=15
Width=315
Text="Программа"
}
Add(Label,14047136,364,259)
{
Left=95
Top=50
Width=4
Height=4
Caption=""
}
Ooo какой я тупой)
Я делал так)))
Add(Replace,1365597,616,336)
{
SubStr="а"
DestStr="1"
link(onReplace,16476953:doReplace,[])
}
Add(ArrayEnum,8741737,532,441)
{
link(onItem,1365597:doReplace,[(590,447)(590,342)])
}
Add(Replace,16476953,665,336)
{
SubStr="б"
DestStr="2"
link(onReplace,6579397:doReplace,[])
}
Add(Replace,6579397,714,336)
{
SubStr="в"
DestStr="3"
link(onReplace,9190139:doReplace,[])
}
Add(Replace,9190139,763,336)
{
SubStr="г"
DestStr="4"
link(onReplace,438911:doReplace,[])
}
Add(Replace,438911,812,336)
{
SubStr="д"
DestStr="5"
link(onReplace,12606049:doReplace,[(856,342)(856,366)(604,366)(604,391)])
}
Add(Replace,12606049,616,385)
{
SubStr="е"
DestStr="6"
link(onReplace,6099706:doReplace,[])
}
Add(Replace,6099706,665,385)
{
SubStr="ё"
DestStr="7"
link(onReplace,6570006:doReplace,[])
}
Add(Replace,6570006,714,385)
{
SubStr="ж"
DestStr="8"
link(onReplace,1303173:doReplace,[])
}
Add(Replace,1303173,763,385)
{
SubStr="з"
DestStr="9"
link(onReplace,3959629:doReplace,[])
}
Add(Replace,3959629,812,385)
{
SubStr="и"
DestStr="10"
link(onReplace,7862922:doReplace,[(856,391)(856,415)(604,415)(604,440)])
}
Add(Replace,7862922,616,434)
{
SubStr="й"
DestStr="11"
link(onReplace,11372383:doReplace,[])
}
Add(Replace,11372383,665,434)
{
SubStr="к"
DestStr="12"
link(onReplace,6855357:doReplace,[])
}
Add(Replace,6855357,714,434)
{
SubStr="л"
DestStr="13"
link(onReplace,224150:doReplace,[])
}
Add(Replace,224150,763,434)
{
SubStr="м"
DestStr="14"
link(onReplace,11321321:doReplace,[])
}
Add(Replace,11321321,812,434)
{
SubStr="н"
DestStr="15"
link(onReplace,14022124:doReplace,[(856,440)(856,468)(604,468)(604,489)])
}
Add(Replace,14022124,616,483)
{
SubStr="о"
DestStr="16"
link(onReplace,8152558:doReplace,[])
}
Add(Replace,8152558,665,483)
{
SubStr="п"
DestStr="17"
link(onReplace,1593278:doReplace,[])
}
Add(Replace,1593278,714,483)
{
SubStr="р"
DestStr="18"
link(onReplace,14127520:doReplace,[])
}
Add(Replace,14127520,763,483)
{
SubStr="с"
DestStr="19"
link(onReplace,14917421:doReplace,[])
}
Add(Replace,14917421,812,483)
{
SubStr="т"
DestStr="20"
link(onReplace,15812517:doReplace,[(856,489)(856,513)(611,513)(611,538)])
}
Add(Replace,15812517,623,532)
{
SubStr="у"
DestStr="21"
link(onReplace,14244224:doReplace,[])
}
Add(Replace,14244224,672,532)
{
SubStr="ф"
DestStr="22"
link(onReplace,9742426:doReplace,[])
}
Add(Replace,9742426,721,532)
{
SubStr="х"
DestStr="23"
link(onReplace,8146559:doReplace,[])
}
Add(Replace,8146559,770,532)
{
SubStr="ц"
DestStr="24"
link(onReplace,12560557:doReplace,[])
}
Add(Replace,12560557,819,532)
{
SubStr="ч"
DestStr="25"
link(onReplace,9028824:doReplace,[(863,538)(863,562)(611,562)(611,587)])
}
Add(Replace,9028824,623,581)
{
SubStr="ш"
DestStr="26"
link(onReplace,139267:doReplace,[])
}
Add(Replace,139267,672,581)
{
SubStr="щ"
DestStr="27"
link(onReplace,16531325:doReplace,[])
}
Add(Replace,16531325,721,581)
{
SubStr="ъ"
DestStr="28"
link(onReplace,5317395:doReplace,[])
}
Add(Replace,5317395,770,581)
{
SubStr="ы"
DestStr="29"
link(onReplace,508931:doReplace,[])
}
Add(Replace,508931,819,581)
{
SubStr="ь"
DestStr="30"
link(onReplace,4056007:doReplace,[(863,587)(863,611)(611,611)(611,636)])
}
Add(Replace,4056007,623,630)
{
SubStr="э"
DestStr="31"
link(onReplace,10205699:doReplace,[])
}
Add(Replace,10205699,672,630)
{
SubStr="ю"
DestStr="32"
link(onReplace,11308577:doReplace,[])
}
Add(Replace,11308577,721,630)
{
SubStr="я"
DestStr="33"
link(onReplace,3240616:doReplace,[])
}
Add(Replace,3240616,770,630)
{
SubStr="."
link(onReplace,16524509:doReplace,[])
}
Add(Replace,16524509,812,630)
{
SubStr=":"
}
--- Добавлено в 2018-05-26 18:23:30
Не подскажешь есть строка вида 3125436768322 можно из нее выдрать одинаковые символы
чтобы получилось так 22233366
Поиск
Друзья
Администрация