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

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

Самиздат: [Регистрация] [Найти] [Рейтинги] [Обсуждения] [Новинки] [Обзоры] [Помощь|Техвопросы]
Ссылки:
 Ваша оценка:
  • Аннотация:
    Для тех, у кого есть трудности при работе с кириллицей. Тексты макро можно перенести в Ваш 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
 Ваша оценка:
Связаться с программистом сайта.

Новые книги авторов СИ, вышедшие из печати:
О.Болдырева "Крадуш. Чужие души" М.Николаев "Вторжение на Землю"

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