Форум программистов, компьютерный форум, киберфорум
HACKER KAY
Войти
Регистрация
Восстановить пароль
Рейтинг: 5.00. Голосов: 1.

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

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

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

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

Текст в Морзе: (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%


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

Предложения и замечания Вы можете написать в комментарии. Любая критика приветствуется :)
Размещено в Без категории
Показов 1431 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru