Форум программистов, компьютерный форум, киберфорум
HACKER KAY
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  

Азбука Морзе на Batch (конвертер)

Запись от HACKER KAY размещена 28.02.2022 в 17:39
Показов 2511 Комментарии 0

Решил создать простенькие скрипты для конвертирования текста в Азбуку Морзе и обратно. Реализовал отдельными пакетными файлами для удобства и оптимизации ради.

Был вариант создать словарь в виде коллекции символов и циклически заменять их, но после нескольких неудачных попыток всё же решил использовать банальные строки замены текста

Текст в Морзе: (morse.cmd "Hello, world!")
Кликните здесь для просмотра всего текста
Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
@ECHO OFF
SET M=%1
SET C=SET M=
 
CALL :DICTIONARY
IF NOT "%M:"=""%"==".=.-.-.- " IF NOT "%M:"=""%"=="""="<NUL=SET/P="%M:~0,-1%"
SET C=&EXIT/B
 
:DICTIONARY
%C%%M:"=%
%C%%M:.=.#.#.# %
%C%%M:-=-....- %
%C%%M:#=-%
%C%%M:1=.---- %
%C%%M:2=..--- %
%C%%M:3=...-- %
%C%%M:4=....- %
%C%%M:5=..... %
%C%%M:6=-.... %
%C%%M:7=--... %
%C%%M:8=---.. %
%C%%M:9=----. %
%C%%M:0=----- %
%C%%M:Q=--.- %
%C%%M:W=.-- %
%C%%M:E=. %
%C%%M:R=.-. %
%C%%M:T=- %
%C%%M:Y=-.-- %
%C%%M:U=..- %
%C%%M:I=.. %
%C%%M:O=--- %
%C%%M:P=.--. %
%C%%M:A=.- %
%C%%M:S=... %
%C%%M:D=-.. %
%C%%M:F=..-. %
%C%%M:G=--. %
%C%%M:H=.... %
%C%%M:J=.--- %
%C%%M:K=-.- %
%C%%M:L=.-.. %
%C%%M:Z=--.. %
%C%%M:X=-..- %
%C%%M:C=-.-. %
%C%%M:V=...- %
%C%%M:B=-... %
%C%%M:N=-. %
%C%%M:M=-- %
%C%%M:!=-.-.-- %
%C%%M:@=.--.-. %
%C%%M:&=.-.. %
%C%%M:(=-.--. %
%C%%M:)=-.--.- %
%C%%M:+=.-.-. %
%C%%M:,=--..-- %
%C%%M:/=-..-. %
%C%%M::=---... %
%C%%M:?=..--.. %
%C%%M:  = / %


Морзе в текст: (morse.cmd ".... . .-.. .-.. --- --..-- / .-- --- .-. .-.. -.. -.-.--")
Кликните здесь для просмотра всего текста
Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
@ECHO OFF
SET M=%1
SET C=SET M=
 
CALL :DICTIONARY
IF NOT "%M:"=""%"==".=.-.-.- " IF NOT "%M:"=""%"=="""= "<NUL=SET/P="%M%"
SET C=&EXIT/B
 
:DICTIONARY
%C%%M:"=%
%C%%M% 
%C%%M: / =  %
%C%%M:.-.-.- =#%
%C%%M:-....- =-%
%C%%M:---... =:%
%C%%M:.---- =1%
%C%%M:..--- =2%
%C%%M:...-- =3%
%C%%M:....- =4%
%C%%M:..... =5%
%C%%M:-.... =6%
%C%%M:---.. =8%
%C%%M:----. =9%
%C%%M:----- =0%
%C%%M:--... =7%
%C%%M:..--.. =?%
%C%%M:-.-.-- =!%
%C%%M:.--.-. =@%
%C%%M:..-. =F%
%C%%M:.--- =J%
%C%%M:-..- =X%
%C%%M:...- =V%
%C%%M:.-... =&%
%C%%M:-... =B%
%C%%M:.-.. =L%
%C%%M:-.--.- =)%
%C%%M:-.--. =(%
%C%%M:-.-- =Y%
%C%%M:.--. =P%
%C%%M:--.- =Q%
%C%%M:.-.-. =+%
%C%%M:-.-. =C%
%C%%M:--..-- =,%
%C%%M:-..-. =/%
%C%%M:.-. =R%
%C%%M:--.. =Z%
%C%%M:--. =G%
%C%%M:-.- =K%
%C%%M:.... =H%
%C%%M:... =S%
%C%%M:-.. =D%
%C%%M:--- =O%
%C%%M:.-- =W%
%C%%M:..- =U%
%C%%M:.- =A%
%C%%M:-. =N%
%C%%M:.. =I%
%C%%M:-- =M%
%C%%M:. =E%
%C%%M:#=.%
%C%%M:- =T%


Результат в обоих случаях выводится в консоль без переноса строки.

Предложения и замечания Вы можете написать в комментарии. Любая критика приветствуется :)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 0
Комментарии
 
Новые блоги и статьи
Саморегулирующийся социальный контракт для сервера cross-section.
Hrethgir 14.08.2026
С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .
Часы электронные
Uhbif79 12.08.2026
Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .
Часы с будильником на основе класса QLCDNumber
Uhbif79 12.08.2026
Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .
Установка MinGW GCC 16.2 и CMake
8Observer8 10.08.2026
VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо
anaschu 10.08.2026
Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства
russiannick 07.08.2026
1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь
Мир по моей воле
kumehtar 07.08.2026
Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru