Здравствуйте.
Суть такая есть строка к примеру "Программа"
нужно заменить каждую букву на цифру соответствующую номеру в алфавите и записать в мемо
пример
"Программа" на выходе "17-18-16-4-18-1-14-14-1" с
и учитывать регистр к пример "А" и "а" в шифре будет "1"
Редактировалось 4 раз(а), последний 2018-05-26 18:30:40
Этот топик читают: Гость
Ответов: 39
Рейтинг: -1
|
|||
карма: 0 |
| ||
файлы: 1 | Project.zip [1KB] [286] |
Ответов: 2267
Рейтинг: 676
|
|||
Silva писал(а): Реал? |
|||
карма: 11 |
|
Ответов: 39
Рейтинг: -1
|
|||
решил
|
|||
карма: 0 |
|
Ответов: 16884
Рейтинг: 1239
|
|||
Silva писал(а): решил Похоже?
|
|||
карма: 25 |
|
Ответов: 39
Рейтинг: -1
|
|||
нет
--- Добавлено в 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 |
|
Ответов: 165
Рейтинг: 6
|
|||
Silva, разве это не просто сортировка?
|
|||
карма: 4 |
|
6