Вверх ↑
Этот топик читают: Гость
Ответов: 39
Рейтинг: -1
#1: 2018-05-26 14:51:01 ЛС | профиль | цитата
Здравствуйте.
Суть такая есть строка к примеру "Программа"
нужно заменить каждую букву на цифру соответствующую номеру в алфавите и записать в мемо

пример
"Программа" на выходе "17-18-16-4-18-1-14-14-1" с
и учитывать регистр к пример "А" и "а" в шифре будет "1"

Редактировалось 4 раз(а), последний 2018-05-26 18:30:40
карма: 0

0
файлы: 1Project.zip [1KB] [260]
vip
#1.1контекстная реклама от партнеров
Ответов: 2193
Рейтинг: 673
#2: 2018-05-26 16:19:38 ЛС | профиль | цитата
Silva писал(а):
Реал?
Реал! В HiAsm все для этого есть. Смотрите вкладку Строки, там большая часть нужных вам элементов.
карма: 10

0
Ответов: 39
Рейтинг: -1
#3: 2018-05-26 16:20:24 ЛС | профиль | цитата
решил
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#4: 2018-05-26 17:09:12 ЛС | профиль | цитата
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=""
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 39
Рейтинг: -1
#5: 2018-05-26 18:10:26 ЛС | профиль | цитата
нет

--- Добавлено в 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

Редактировалось 3 раз(а), последний 2018-05-26 18:55:07
карма: 0

0
Ответов: 165
Рейтинг: 6
#6: 2018-05-27 07:55:06 ЛС | профиль | цитата
Silva, разве это не просто сортировка?
карма: 4

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