Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > транслитератор

Автор: aleksLAN 7.5.2006, 13:59

сдраствуйте, как мне сделать так чтобы:
I вариант
из определённого файла(.тхт) брались данные и "использовались".
user posted image

Хотелось бы видеть примерно такой результат работы программы.
как это сделать
данный в .тхт файле будут выглядетьь так:
a=ф
s=ы
и так далее...
II вариант
тоже самое тока без txt файла.

Автор: Тутанхамец 7.5.2006, 15:33

Посмотри функции chr и asc. Составь себе на бумажке табличку, каким черным буквам на клаве соответствуют какие красные буквы на ней же. Загони табличку, скажем, в двумерный массив. Потом выбираешь из исходного текста по буковке, ищешь их в массиве и меняешь на соответствующие "другие".

Автор: aleksLAN 7.5.2006, 17:07

Цитата

Составь себе на бумажке табличку, каким черным буквам на клаве соответствуют какие красные буквы на ней же.

про бумажки улыбнуло, за совет спасибо, по пробую...

Автор: Тутанхамец 10.5.2006, 08:28

Пробуй.
А лучше, конечно, не в массив, а в две строки, типа:

Код


black="qwerty..." 
red="йцукен..."

P.S. Но табличку на бумажке составь обязательно! smile

Без нее ничего не получится! smile

Автор: Akina 10.5.2006, 10:11

А может взять любой готовый транслитератор и не маяться?

Автор: aleksLAN 10.5.2006, 15:02

[qoute]А может взять любой готовый транслитератор и не маяться?[/quote]
был бы благодарен за линк, но только с исхордниками так как
qwerty => йцукен - это пример, там будет совсем другое...

Автор: Akina 10.5.2006, 17:19

Код


Public Const ABC1 = "ABCDE..."
Public Const ABC2 = "АБВГД..."

Public Function Transliterate(xStr As String) As String
Transliterate=""
For i = 1 to len(xStr)
   Transliterate = Transliterate & mid(ABC2, instr(ABC1, mid(xStr, i, 1)), 1)
Next
End Function