Госпиталь Для Произведений. Транслит Бика.

Госпиталь Для Произведений: другие произведения.

Транслит Бика.

Журнал "Самиздат": [Регистрация] [Найти] [Рейтинги] [Обсуждения] [Новинки] [Обзоры] [Помощь]

Peклaмa:

Литературные конкурсы на Litnet. Переходи и читай!

Peклaмa

Комментарии: 6, последний от 11/10/2002. © Copyright Госпиталь Для Произведений (if@in.krs.ru) Размещен: 09/04/2001, изменен: 09/04/2001. 7k. Статистика. Статья: Изобретательство		Ваша оценка:
Аннотация: Для тех, у кого есть трудности при работе с кириллицей. Тексты макро можно перенести в Ваш DOC-файл и пользоваться конвертацией на любом компьютере и AOL.

Макрокоманды для Word преобразования кириллицы в код Бика и обратно.

Алфавит Бика.

Буква Код Бика (латинскими)

А A

Б B

В V

Г G

Д D

Е E

Ё YO

Ж J

З Z

И I

Й Y "ЫЙ" - пишется, как YI

К K

Л L

М M

Н N

О O

П P

Р R

С S

Т T

У U

Ф F

Х X

Ц C

Ч CH

Ш SH

Щ STH

ь ' "Ь"- ^

Ы Y

ъ '' "Ъ" - ^^

Э E'

Ю YU

Я YA

Макро1.

Для преобразования кириллицы в код Бика.

'Историческая версия

Sub Макро1()

' Кириллица в транслит Бика. Не реконвертируется.

' Демонстрационный вариант

Dim Bika, alf

alf = Array("а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", "щ", "ь", "ы", "ъ", "э", "ю", "я", "А", "Б", "В", "Г", "Д", "Е", "Ё", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ь", "Ы", "Ъ", "Э", "Ю", "Я")

Bika = Array("a", "b", "v", "g", "d", "e", "ie", "j", "z", "i", "y", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "x", "c", "ch", "sh", "shch", "'", "ii", "''", "'e", "iu", "ia", "A", "B", "V", "G", "D", "E", "IE", "J", "Z", "I", "Y", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "X", "C", "CH", "SH", "CHSH", "'", "II", "''", "'E", "IU", "IA")

i = 1

For i = 0 To 65 Step 1 ' Цикл по всему алфавиту

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = alf(i)

.Replacement.Text = Bika(i)

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Next i ' Увеличивает счетчик

End Sub

Макро2.

Для преобразования кириллицы в конвертируемый код Бика.

' Конвертируемый РУСЛАТ Й,Ы-Y, ЫЙ-YI, Э-E', Ь-^, Ъ-^^, Щ-STH

Sub Макро2()

' Кириллица в транслит Бика РУСЛАТ

' Макрос записан 07.04.01 Обморшев М.Г.

Dim Bika, alf

alf = Array("ай", "АЙ", "ей", "ЕЙ", "ёй", "ЁЙ", "ий", "ИЙ", "ой", "ОЙ", "уй", "УЙ", "ый", "ЫЙ", "эй", "ЭЙ", "юй", "ЮЙ", "яй", "ЯЙ", "э", "Э", "а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", "щ", "ь", "ы", "ъ", "ю", "я", "А", "Б", "В", "Г", "Д", "Е", "Ё", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ъ", "Ь", "Ы", "Ю", "Я")

Bika = Array("ay", "AY", "ey", "EY", "yoy", "YOY", "iy", "IY", "oy", "OY", "uy", "UY", "yi", "YI", "e'y", "E'Y", "yuy", "YUY", "yay", "YAY", "e'", "E'", "a", "b", "v", "g", "d", "e", "yo", "j", "z", "i", "i", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "x", "c", "ch", "sh", "sth", "'", "y", "''", "yu", "ya", "A", "B", "V", "G", "D", "E", "YO", "J", "Z", "I", "I", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "X", "C", "CH", "SH", "STH", "^^", "^", "Y", "YU", "YA")

i = 1

For i = 0 To 77 Step 1 ' Цикл по всему алфавиту

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = alf(i)

.Replacement.Text = Bika(i)

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Next i ' Увеличивает счетчик

End Sub

Макро3.

Для преобразования конвертируемого кода Бика в кириллицу.

' Конвертируемый код Бика LATРУС с Й,Ы-Y, ЫЙ-YI, Э-E', Ь-^, Ъ-^^, Щ-STH

Sub Макро3()

' Модифицированный Транслит Бика в кириллицу LAT-РУС

' Макрос записан 07.04.01 Обморшев М.Г.

Dim Bika, alf

Bika = Array("e'", "E'", "yu", "ya", "yo", "YO", "ay", "AY", "ey", "EY", "yoy", "YOY", "iy", "IY", "oy", "OY", "uy", "UY", "yi", "YI", "e'y", "E'Y", "yuy", "YUY", "yay", "YAY", "sth", "ch", "sh", "''", "'", "STH", "CH", "SH", "^^", "YU", "YA", "a", "b", "v", "g", "d", "e", "j", "z", "i", "y", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "x", "c", "A", "B", "V", "G", "D", "E", "J", "Z", "I", "Y", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "X", "C", "^")

alf = Array("э", "Э", "ю", "я", "ё", "Ё", "ай", "АЙ", "ей", "ЕЙ", "ёй", "ЁЙ", "ий", "ИЙ", "ой", "ОЙ", "уй", "УЙ", "ый", "ЫЙ", "эй", "ЭЙ", "юй", "ЮЙ", "яй", "ЯЙ", "щ", "ч", "ш", "ъ", "ь", "Щ", "Ч", "Ш", "Ъ", "Ю", "Я", "а", "б", "в", "г", "д", "е", "ж", "з", "и", "ы", "к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "А", "Б", "В", "Г", "Д", "Е", "Ж", "З", "И", "Ы", "К", "Л", "М", "Н", "О", "П", "Р", "С", "Т", "У", "Ф", "Х", "Ц", "Ь")

i = 1

For i = 0 To 83 Step 1 ' Цикл по всему алфавиту

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = Bika(i)

.Replacement.Text = alf(i)

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Next i ' Увеличивает счетчик

End Sub

Комментарии: 6, последний от 11/10/2002.
Размещен: 09/04/2001, изменен: 09/04/2001. 7k. Статистика.
Статья: Изобретательство

Новые книги авторов СИ, вышедшие из печати:
Э.Бланк "Колечко для наследницы", Т.Пикулина, С.Пикулина "Семь миров.Импульс", С.Лысак "Наследник Барбароссы"

Как попасть в этoт список

Сайт - "Художники" .. || .. Доска об'явлений "Книги"