Форум » "Пишите по-русски" » Обсуждение Ё-программы. Предложения по развитию. » Ответить
Обсуждение Ё-программы. Предложения по развитию.
Леонид: Открываю новую тему :) Начало было здесь: http://krina.borda.ru/?1-0-0-00000001-000-0-0#013 Леонид пишет: [quote]3. Было бы интересно в конце работы программы видеть, сколько было произведено замен.[/quote] Николай пишет: [quote]3) Сам хотел это сделать, но не знаю как до этого достучаться... Там не всё так просто. Можно подсчитать количество ПРИМЕНЁННЫХ для замены правил, но не знаю как получить количество изменений по одному правилу. Может позже поспрашиваю на форумах. [/quote] А может, пойти другим путём? Количество замен - это ведь фактически количество новых букв Ё в тексте. Поэтому считаем количество [Ёё] до начала обработки, затем считаем [Ёё] после всех замен. Их разница и будет искомым значением.
Ответов - 17
Николай: Леонид пишет: А может, пойти другим путём? Количество замен - это ведь фактически количество новых букв Ё в тексте. Поэтому считаем количество [Ёё] до начала обработки, затем считаем [Ёё] после всех замен. Их разница и будет искомым значением. Да, это гораздо проще :) Осталось только поискать функции подсчёта букв... Насчёт переноса галочка о выделении красным. Вспомнил, почему сделал так, что снимать её можно только при ручной замене. Приложение проработано не настолько сильно. Неверные замены всё-таки делаются, хотя их крайне мало и потихоньку отлавливаем. Особенно это касается фамилий. Сейчас наткнулся на то, что ё ставится примерно в 200 фамилий, в которых не должно быть ё или её употребление спорно. Посему, если не видно красных замен, то и пропустить неверную замену проще простого. Так что, галочку перенести правильно и нверняка это сделаю, но не в самое ближашее время. Надо обкатать получше... Да и потом, нажать на отдельную кнопку в конце проверки наверное не так сложно. Для того она и делалась. Найденные ошибки нужны - чем больше найдём, тем быстрее до ума доведено будет :)
Леонид: Николай пишет: Осталось только поискать функции подсчёта букв... ================================================ Sub YoYo() ' Подсчёт букв "Ё(ё)" в документе Dim FlagC3 As Boolean Dim m As Integer ' Количество букв "Ё" в документе m = 0 Selection.HomeKey Unit:=wdStory FlagC3 = True Do While FlagC3 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[Ёё]" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = True .MatchWildcards = True End With Selection.Find.Execute If Selection.Find.Found Then m = m + 1 Selection.MoveRight Unit:=wdCharacter, Count:=1 Else FlagC3 = False End If Loop Selection.HomeKey Unit:=wdStory Msg = " Всего в документе букв «ё»" & Chr(9) & Chr(9) & Chr(151) & Chr(32) & m Style = vbYes Title = "Ё-прст, дорогой товарисч!" Response = MsgBox(Msg, Style, Title) End Sub ================================================ :) Может, можно и проще - но я только такое умею. :)
Николай: Леонид, спасибо :) Говоря о функциях, я имел ввиду нечто встроенное в VBA, то есть уже переведённое в двоичный код, поскольку такие вещи должны работать быстрее, чем Selection.Find.Execute или что-то подобное, что прогоняется через медленный интерпретатор VBA. Но, я упустил из виду, что львиная доля проверяемых текстов не такие уж и большие. К тому же, сама по себе задача подсчёта количества чего-либо не предполагает очень сложных заморочек, где есть что убыстрять. Поэтому и скорость работы не должна сильно отличаться. Берём на вооружение :)
ЯR Г L ИN: Загрузка Прошу Вашего прощения: загрузочные программы действуют на английском языке. Скачайте файл RuOldT.exe (47KB) и сохраните его на Вашем диске. Запустите загрузочную программу RuOldT.exe. Загрузка занимает около 30 секунд, в конце концов компьютер Вам должен сказать, что всё в порядке. Замените Вашу раскладку клавиатуры на раскладку «Russian Old (Typewriter)» (пользуйтесь руководством Microsoft Windows). Объясните подробно как заменить раскладку, или где её искать хотя бы.
Николай: Пуск -> Панель управления -> Язык и Региональные стандарты -> Языки -> Подробнее -> Добавить там в нижнем списке ищите в самом верху Russian Old Я правда не знаю, зачем вам нужна машинописная раскладка... у неё "ё" расположена справа от "ю" посмотрите - там выше другая есть...
ЯR L Г ИN: Спасибо большое! Машинописная очень удобна.
ЯR Г L ИN: Проинсталировалъ вашу программу Приложенiе къ WORDу (7,89 Мегабайтъ) какъ администраторъ, а для другихъ пользователей на этомъ же компе она работать не хочетъ. Что же теперь делать?
Николай: ЯR Г L ИN , то о чём Вы сказали, не моё приложение, посмотрите внимательнее - Вы прошли по ссылке на сайт Александра Шецена, который и является автором приложения для Word по восстановлению дореволюционного правописания(я правильно понял?). Наверное этот вопрос надо задать ему. Как временная мера - дайте другому пользователю админские права, поставьте приложение, а потом возьмите права обратно. Наверное так...
ЯR L Г ИN: Как временная мера - дайте другому пользователю админские права, поставьте приложение, а потом возьмите права обратно. Наверное так... Пробовалъ такъ делать и ничего не помогаетъ, выскакиваетъ ссылка, что онъ не можетъ найти место где оно находится, а там где оно должно быть чего-то тамъ нетъ, но дать ему точный адрессъ не возможно. Где же найти А. Шецена?
Николай: Во-первых там есть его почта - смотрите внизу, где его имя Как то я наткнулся на него здесь: http://community.livejournal.com/ijitsa_ru/55919.html?thread=193647#t193647 () Больше ничем помочь не могу. У меня просто есть права админа.
Andre: Ссылки на сайте А. Шецена не работают. Может у кого есть ruold.exe ?
Николай: Попробую дома посмотреть, что-то было. Отпишусь. Посматривайте сюда в ближайшие дни.
Andre: Хорошо, жду !
Николай: Нашёл. Ловите всё, что исчезло у Шецена: http://krina.land.ru/RusYaz/RuOld.exe http://krina.land.ru/RusYaz/RuOldT.exe http://krina.land.ru/RusYaz/RussianSpellingConversion.exe надо бы страничку наверное сделать с этими ссылками...
Andre: Огромное спасибо, я думалъ уже не начну набирать въ русской кодировке
Andre: Шрифтъ надо будѣтъ еще подобрать. Еще разъ огромное дорѣволюцiонное спасибо !
Николай: Пожалуйста :) Со шрифтами сложнее - в стандартной винде есть 2 или 3 с тремя недостающими буквами. Но не все же в виндах работают... есть ещё мир юникс... это я к тому, что те, кто будут читать ваши творения, должны будут иметь у себя шрифт, с которым Вы работаете. Из любопытства можете попробовать шрифт из переводчика чисел - "dilyana+", в него добавлена "ё" и знаки "титла" разной длины (потребности разные бывают). Если время будет - сделаю у себя страничку со всем этим хозяйством, а то уже не в первый раз спрашивают. + ещё одна примочка для раскладок где-то валялась, вроде как более крутая (64 бита, Виста и прочая лабуда), но сам я её не пробовал.
полная версия страницы