Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> транслитератор, англ. -> рус. 
:(
    Опции темы
aleksLAN
Дата 7.5.2006, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.4.2006

Репутация: нет
Всего: нет
сдраствуйте, как мне сделать так чтобы:
I вариант
из определённого файла(.тхт) брались данные и "использовались".
user posted image
Хотелось бы видеть примерно такой результат работы программы.
как это сделать
данный в .тхт файле будут выглядетьь так:
a=ф
s=ы 
и так далее...
II вариант
тоже самое тока без txt файла. 
PM MAIL   Вверх
Тутанхамец
Дата 7.5.2006, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

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


--------------------
Мой блог / Мои фотки / Моё Skolkobudet.ru
PM MAIL   Вверх
aleksLAN
Дата 7.5.2006, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.4.2006

Репутация: нет
Всего: нет
Цитата
Составь себе на бумажке табличку, каким черным буквам на клаве соответствуют какие красные буквы на ней же.

про бумажки улыбнуло, за совет спасибо, по пробую... 
PM MAIL   Вверх
Тутанхамец
Дата 10.5.2006, 08:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6
Пробуй.
А лучше, конечно, не в массив, а в две строки, типа:
Код

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

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

Это сообщение отредактировал(а) Тутанхамец - 10.5.2006, 08:32


--------------------
Мой блог / Мои фотки / Моё Skolkobudet.ru
PM MAIL   Вверх
Akina
Дата 10.5.2006, 10:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
А может взять любой готовый транслитератор и не маяться? 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
aleksLAN
Дата 10.5.2006, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.4.2006

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

 
PM MAIL   Вверх
Akina
Дата 10.5.2006, 17:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Код

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
 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1209 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.