|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.06.2009, 22:07 | #1 |
Новичок
Джуниор
Регистрация: 01.06.2009
Сообщений: 1
|
Создайте приложение для замены символов текста (VBA)
несколько дней назад преподаватель сказала что будет курсовая, сдавать в среду, может сможет кто помочь? буду очень признательна.
Отрывки программы есть небольшие. Создайте приложение для замены символов текста, набранного при одной раскладке клавиатуры, символами текста другой раскладки (Русской или Английской). Если текст содержит русские и латинские символы, то при наборе текста возникают ситуация, когда переключатель языка установлен не верно. Программа должна исправлять набранный текст. Для этого понадобятся два массива. В одном массиве будет храниться раскладка русской клавиатуры, в другой латинской. Lat = Array("", "q", "w", "e", "r", "t", "y", "u", "i", "o", "p", "[", "]", "a", "s", "d", "f", "g", "h", "j", "k", "l", ";", "'", "z", "x", "c", "v", "b", "n", "m", ",", ".", "/", "`", "Q", "W", "E", "R", "T", "Y", "U", "I", "O", "P", "[", "]", "A", "S", "D", "F", "G", "H", "J", "K", "L", ";", "'", "Z", "X", "C", "V", "B", "N", "M", ",", ".", "/", "`") Rus = Array("", "й", "ц", "у", "к", "е", "н", "г", "ш", "щ", "з", "х", "ъ", "ф", "ы", "в", "а", "п", "р", "о", "л", "д", "ж", "э", "я", "ч", "с", "м", "и", "т", "ь", "б", "ю", ".", "ё", "Й", "Ц", "У", "К", "Е", "Н", "Г", "Ш", "Щ", "З", "х", "ъ", "Ф", "Ы", "В", "А", "П", "Р", "О", "Л", "Д", "Ж", "Э", "Я", "Ч", "С", "М", "И", "Т", "Ь", "Б", "Ю", ".", "Ё") Нумерация элементов массива начинается с нуля, поэтому нулевой элемент массива пустой. Перечислим названия переменных, используемых в процедуре: t - переменная, для хранения выделенного фрагмента текста. L - количество символов переменной t. S - символ переменной t. Text1 строковая переменная для вывода результатов исправления. 1. В модуле NewMacros шаблона Normal.dot создайте процедуру Исправление. Макрос вызывать нажатием пиктограммы. 2. Опишите массивы, используемые в процедуре. 3. Введите данные в переменную t, используя свойство объекта Selection.Text и определите количество символов L переменной t. 4. В данном фрагменте программы символы русской раскладки клавиатуры заменяются символами латинской раскладки. Добавьте в программу оператор, который бы заменял символы латинской раскладки символами русской раскладки. Tekst1 = " " For i = 1 To L S = Mid(t, i, 1) For j = 1 To 68 If S = Rus(j) Then S = Lat(j): Exit For Next j Tekst1 = Tekst1 & S Next i 5. Замените выделенный текст переменной Text1, используя объект Selection. |
01.06.2009, 22:35 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Могу сделать за WMR
Если готов заплатить, обращайся в личку. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Что использовать для текста более 2000 символов? | Fo][ | Общие вопросы Delphi | 6 | 21.03.2009 17:56 |
программа поиска и замены+копирования текста | 666dvg999 | Общие вопросы C/C++ | 4 | 05.10.2008 20:01 |
тип поля для хранения текста > 255 символов | komex | БД в Delphi | 4 | 23.09.2007 12:38 |
Макрос для поиска/замены | Davidoff | Microsoft Office Excel | 1 | 20.01.2007 16:01 |