Вернуться   Форум "Осознание" - Концепция Общественной Безопасности > Технический раздел. Архив разделов. Разное. > Любые темы, не вошедшие в предыдущие разделы.

Данный форум существует в настоящий момент, как памятник истории развития движения сторонников КОБ и хранилище значительного объёма сопутствующей информации. Функцию площадки общения форум не исполняет. Регистрация новых пользователей запрещена.
На случай, если Вам по какой-либо причине понадобится зарегистрироваться на форуме, пишите в телеграм @Sirin77


Ответ
 
Опции темы Поиск в этой теме Опции просмотра
Старый 04.12.2011, 12:58   #1
Дитёныш
Команда сайта
 
Аватар для Дитёныш
 
Регистрация: 02.09.2010
Адрес: Русская Региональная Цивилизация
По умолчанию Кодировка в ранних рпботах ВП

Часто в ранних работах ВП использована неверная кодировка символов, вот код макроса для OpenOffice, который исправляет кодировку:
Код:
REM  *****  BASIC  *****

sub ReplaceKOBSymbols
rem ----------------------------------------------------------------------
Dim I As Long
Dim Doc As Object
Dim Replace As Object
Dim Cnt as Long
Cnt =65
Dim wrongChars(Cnt-1) As String
Dim validChars(Cnt-1) As String
rem × - Ч / Ü-Ь
wrongChars() = Array(_
"À", "Á", "Â", "Ã", "Ä", _
"Å", "¸", "Æ", "Ç", "È", _
"É", "Ê", "Ë", "Ì", "Í", _
"Î", "Ï", "Ð", "Ñ", "Ò", _
"Ó", "Ô", "Õ", "Ö", "×", _
"Ø", "Ù", "Ú", "Û", "Ü", _
"Ý", "Þ", "ß",           _
"à", "á", "â", "ã", "ä", _
"å", "¸", "æ", "ç", "è", _
"é", "ê", "ë", "ì", "í", _
"î", "ï", "ð", "ñ", "ò", _
"ó", "ô", "õ", "ö", "÷", _
"ø", "ù", "ú", "û", "ü", _
"ý", "þ", "ÿ"            _
)

validChars() = Array(_
"А", "Б", "В", "Г", "Д", _
"Е", "Ё", "Ж", "З", "И", _
"Й", "К", "Л", "М", "Н", _
"О", "П", "Р", "С", "Т", _
"У", "Ф", "Х", "Ц", "Ч", _
"Ш", "Щ", "Ъ", "Ы", "Ь", _
"Э", "Ю", "Я",           _
"а", "б", "в", "г", "д", _
"е", "ё", "ж", "з", "и", _
"й", "к", "л", "м", "н", _
"о", "п", "р", "с", "т", _
"у", "ф", "х", "ц", "ч", _
"ш", "щ", "ъ", "ы", "ь", _
"э", "ю", "я"            _
)

Doc = StarDesktop.CurrentComponent
Replace = Doc.createReplaceDescriptor
Replace.SearchCaseSensitive = True
For I = 0 To Cnt
	Replace.SearchString = wrongChars(I)
	Replace.ReplaceString = validChars(I)
	Doc.replaceAll(Replace)
Next I
rem ----------------------------------------------------------------------

end sub
А сам макрос для OpenOffice прикрепляю к сообщению.

P.S. Кто работает c MS Word может на остове приведенного кода элементарно написать свой макрос, у меня Word банально не установлен(не нужен).
P.S.S. Не забывайте о том, что кнопку вызова макроса можно, при необходимости, поместить на панели быстрого доступа.
Вложения
Тип файла: zip ooo_err.zip (1.7 Кб, 0 просмотров)
Дитёныш вне форума   Ответить с цитированием
Старый 04.12.2011, 20:59   #2
Sirin
Команда сайта
 
Аватар для Sirin
 
Регистрация: 21.10.2008
Адрес: Москва
По умолчанию

Цитата:
Сообщение от Дитёныш Посмотреть сообщение
Часто в ранних работах ВП использована неверная кодировка символов
Цитата:
Сообщение от Дитёныш Посмотреть сообщение
у меня Word банально не установлен(не нужен)
Связи не улавливаешь?
Sirin вне форума   Ответить с цитированием
Старый 04.12.2011, 21:47   #3
Дитёныш
Команда сайта
 
Аватар для Дитёныш
 
Регистрация: 02.09.2010
Адрес: Русская Региональная Цивилизация
По умолчанию

Цитата:
Сообщение от Sirin Посмотреть сообщение
Связи не улавливаешь?
Просто я не правил замену шрифтов в реестре, ещё несколько лет назад было популярным было заставлять отображать несколько распространённых кодировок как русскую(были проблемы с русификацией программ), соответственно, если копировать текст из программы, которая не поддерживает русский шрифт, но отображает его, в ту, которая поддерживает, то и появляются подобные проблемы.

Может ещё помнишь, раньше были такие вещи как:
Цитата:
Использовать кодовую страницу 1251 вместо 1252

Данная опция решает проблемы с отображением русских шрифтов в некоторых программах. Обычно требуется изменить два параметра "1250" и "1252". В некоторых редких случаях можно исправить другие параметры.


HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage

STRING 1250, значение "c_1251.nls" - опция включена, "c_1250.nls" - выключена
STRING 1252, значение "c_1251.nls" - опция включена, "c_1252.nls" - выключена
P.S. Word - это зло.
Дитёныш вне форума   Ответить с цитированием
Старый 10.12.2011, 21:00   #4
Дитёныш
Команда сайта
 
Аватар для Дитёныш
 
Регистрация: 02.09.2010
Адрес: Русская Региональная Цивилизация
По умолчанию

http://dotu.ru/2002/08/12/20020812-macroeconomy/

В самом конце ссылка с текстом http://mera.com.ru/category/library/ на самом деле ссылается на http://www.vodaspb.ru/

Сайт mera.com.ru не работает, возможно поэтому и была проведена замена, вот только почему не заменился текст ссылки...

Да и вообще, по логике вещей, должно быть http://dotu.ru/category/in-english/ ибо на vodaspb.ru раздел in-english давно не обновлялся.

P.S. В PDF и текст и ссылка на mera.com.ru

P.P.S. А вообще существует ли в английском слово Macroeconomу? Или должно быть Macroeconomics?

Последний раз редактировалось Дитёныш; 10.12.2011 в 21:20
Дитёныш вне форума   Ответить с цитированием
Старый 11.12.2011, 14:01   #5
konstantins3
Местный
 
Аватар для konstantins3
 
Регистрация: 18.01.2010
Адрес: Дома
По умолчанию Курс эпохи водолея, В. Ефимов.

Скрытый текст:



Скрытый текст:

Последний раз редактировалось konstantins3; 11.12.2011 в 14:17
konstantins3 вне форума   Ответить с цитированием
Старый 11.12.2011, 23:21   #6
Sirin
Команда сайта
 
Аватар для Sirin
 
Регистрация: 21.10.2008
Адрес: Москва
По умолчанию

и что?
Sirin вне форума   Ответить с цитированием
Старый 11.12.2011, 23:38   #7
Дитёныш
Команда сайта
 
Аватар для Дитёныш
 
Регистрация: 02.09.2010
Адрес: Русская Региональная Цивилизация
По умолчанию

Цитата:
Сообщение от konstantins3 Посмотреть сообщение
Скрытый текст:



Скрытый текст:
Цитата:
В текстах ВП СССР и сопутствующих, а также в текстах сторонников КОБ встречаются написания «возпитание», а не «воспитание»; «разпределение», а не «распределение»; «произходит», а не «происходит»; «изправить», а не «исправить» и т.п. — это не опечатки. Ныне действующая орфография, подъигрывая невнятности и шепелявости обыденной изустной речи, предписывает перед шипящими и глухими согласными в приставках «без-», «воз-», «из-», «раз-» звонкую «з» заменять на глухую «с», в результате чего названные «морфемы» в составе слова утрачивают смысл. Поскольку нам не нравится безсмысленная орфография, то мы начали в своих работах переход от неё к орфографии, выражающей смысл. По этим же причинам лучше писать «подъигрывая», «предъистория» и т.п. вопреки той безсмысленно-шепелявой «орфографии», которой всех учили в школе.

http://wiki.kob.su/О_грамматике
Дитёныш вне форума   Ответить с цитированием
Старый 12.12.2011, 09:49   #8
Михайло Суботич
Команда сайта
 
Аватар для Михайло Суботич
 
Регистрация: 30.10.2008
Адрес: Подмосковие
По умолчанию

Видимо имелось ввиду, что правильно писать "безИнфляционная".
Михайло Суботич вне форума   Ответить с цитированием
Старый 12.12.2011, 11:08   #9
lexik
Форумчанин
 
Регистрация: 04.05.2009
Адрес: Хабаровск
По умолчанию

Цитата:
Сообщение от Михайло Суботич Посмотреть сообщение
Видимо имелось ввиду, что правильно писать "безИнфляционная".
Есть старое правило, которое никто не отменял и которое в школе изучается: если от слова, начинающегося с буквы И, образуется новое слово с помощью приставки, оканчивающейся на согласную, то вместо И пишем Ы, согласно произношению:
интерес – безынтересный;
идея – безыдейный;
игра – отыграть, розыгрыш, подыграть, сыграть;
история – предыстория;
искать – разыскать, отыскать, розыск, сыск.
Но после приставок МЕЖ и СВЕРХ, а также после иноязычных приставок сохраняется буква И:
институт – межинститутский;
интересный – сверхинтересный;
игра – контригра.
lexik вне форума   Ответить с цитированием
Старый 17.12.2011, 16:10   #10
comrade
Местный
 
Аватар для comrade
 
Регистрация: 14.07.2009
Адрес: Русь-СССР-Россия
По умолчанию

Цитата:
Сообщение от konstantins3 Посмотреть сообщение
Скрытый текст:
Видать Ефимов тоже кВт/ч не отличает от кВт*ч? Странная такая метрология. Надо быть бдительным!
comrade вне форума   Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид



Часовой пояс GMT +3, время: 14:49.