Нужна программа для поиска русских букв

  • Тут может быть ваша реклама

[ximik]

Турист
30 Авг 2005
236
4
43
34
Ukraine
Credits
0
Есть некий текст.
Например "приооратпоарыоаоарыоа"

Нужна программа которая показывала каким языком набран некий символ.

То есть "р" может быть набран как с русской раскладки клавиатуры так и английской. Только с английской это уже будет буква "Пэ"
 

[ximik]

Турист
30 Авг 2005
236
4
43
34
Ukraine
Credits
0
хз какая кодировка.
Текст набран в Word.
Но могу перекодировать в нужную кодировка.
А что? есть варианты ?
 

TrigAn

Турист
13 Июл 2005
2.089
198
118
D, Leipzig
Credits
0
Приведи пример - зачем, может и будут варианты...
А так, очень напрягает задача - "...каким языком набран некий символ."
 

ZeVS

Специалист
2 Окт 2005
220
20
53
Гомель
Credits
0
[ximik];522023 написал(а):
хз какая кодировка.
Текст набран в Word.
Но могу перекодировать в нужную кодировка.
А что? есть варианты ?
Вам куда? В Ру или Анг? Транслитерацию юзать? Отпишитесь - сварганю макрос. Ах, да, версия Word-а какая?
 

ZeVS

Специалист
2 Окт 2005
220
20
53
Гомель
Credits
0
Вот примерчик макроса (на колене набросал), который переводит выделенный текст из Ру в Анг по клавишам: Й->Q, Ц->W и т.д.
Код:
Sub coding()
Const str1 As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Const str2 As String = "ФИСВУАПРШОЛДЬТЩЗЙКЫЕГМЦЧНЯфисвуапршолдьтщзйкыегмцчня"
Dim SelStart As Long, SelEnd As Long
Dim i As Long, s As Long
SelStart = Selection.Start
SelEnd = Selection.End
For i = SelStart To SelEnd - 1
  Selection.Start = i
  Selection.End = i + 1
  s = InStr(1, str1, Selection.Text)
  If s >= 1 Then
    Selection.Text = Mid(str2, s, 1)
  End If
Next i
End Sub
 
  • Like
Реакции: TrigAn

Abraxas

ex-Team DUMPz
16 Сен 2004
1.245
99
118
Credits
0
А можно с помощью Заменить (Ctrl+H) в ворде выделить все кириллические знаки цветом или болдом, и сразу будет видно, где латинка, где кириллица.
 

[ximik]

Турист
30 Авг 2005
236
4
43
34
Ukraine
Credits
0
а нужна программа для поиска русских букв к н х р о с м т
в базе данных email. А то сервер не отправлял сообщение. Так как часть кириллицей, часть латиницей.