Выбор кодировки по маске файла

Здесь обсуждается всё, что касается макросов.
User avatar
buniak_a_h
Posts: 4236
Joined: Sat 20 Apr, 2013 00:17
Location: Санкт-Петробад
Has thanked: 222 times
Been thanked: 643 times
Contact:

Выбор кодировки по маске файла

Post by buniak_a_h »

Хочу поделиться удобным (для меня, во всяком случае) скриптом, выбирающим кодировку в редакторе в зависимости от расширения файла. Причина: автоматическое определение не всегда срабатывает (особенно на коротких файлах); в то же время бывают предопределённые случаи. В предлагаемом скрипте заложено:
1. *.lua,*.fml,*.fmlua,*.lua.*,*.fb2 - всегда 65001
2. *.bat,*.cmd,*.prg,*.ch (программы на Харборе, командные файлы) - всегда 866
Расширять можно и дальше.
Условие выполнения скрипта: для вьюера требуется, чтобы нужная кодировка была видна в меню выбора кодировок. Т.е. это должна быть либо одна из основных (866, 1251), либо Unicode (65001, 1200, 1201), либо помеченная как Favorite, либо должны быть видны ВСЕ кодировки (переключение по CtrlH)
В версии 5 убрана зависимость от таблицы _G.BAX . Исправлены неточности, оптимизирован текст (спасибо John Doe). Соответственно, исправлена ошибка, описанная citRiks.
Модуль прилагается, но скрипт должен работать с практически любой версией этого модуля (если кто уже ставил). В модуль добавлен номер версии - на будущее для контроля совместимости.
Версия 1.1.6:
1. В начальную конфигурацию добавлены некоторые расширения (напр., *.moon)
2. require на "свалку" BaxUtils заменен на require DialogTools. Соответственно в архив вложены два "специализированных" модуля вместо одной кучи всего, что я написал
CodePage.1_1_6.7z
Скрипт и два модуля к нему
(5.62 KiB) Downloaded 56 times
Last edited by buniak_a_h on Fri 15 Jan, 2021 07:54, edited 8 times in total.
Garrett
Posts: 240
Joined: Mon 01 Aug, 2005 10:23
Been thanked: 1 time

Выбор кодировки по маске файла

Post by Garrett »

buniak_a_h, спасибо!
User avatar
John Doe
Бюрократ
Posts: 13807
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 73 times
Been thanked: 426 times
Contact:

Выбор кодировки по маске файла

Post by John Doe »

buniak_a_h wrote: Mon 07 Jan, 2019 10:17 автоматическое определение не всегда срабатывает (особенно на коротких файлах)
Возможно есть определёные типы файлов, с которыми автоопределение плохо работает. Лично я бы ограничил список масок ими.
Если же такое происходит у вас со многоми типами, то возможно автоопределение настроено неоптимально. Или же нуждается в доработке.
buniak_a_h wrote: Mon 07 Jan, 2019 10:17 нужная кодировка должна быть видна в меню выбора кодировок.
Необходимые функции есть в АПИ, нет нужды использовать меню.
User avatar
buniak_a_h
Posts: 4236
Joined: Sat 20 Apr, 2013 00:17
Location: Санкт-Петробад
Has thanked: 222 times
Been thanked: 643 times
Contact:

Выбор кодировки по маске файла

Post by buniak_a_h »

John Doe wrote: Mon 07 Jan, 2019 10:57 Необходимые функции есть в АПИ, нет нужды использовать меню.
Когда я писал этот скрипт, в параметрах кодовой страницы было только автоопределение, 866, 1251 и, по-моему, 1200 и 1201 . Т.е. не удалось даже задать 65001! Сейчас поискал по тем же темам, там написано для ESPT_CODEPAGE «iParam - номер устанавливаемой кодовой страницы». Так не было - точно. Сейчас проверю и если можно задать произвольную КС, скрипт исправлю.
User avatar
buniak_a_h
Posts: 4236
Joined: Sat 20 Apr, 2013 00:17
Location: Санкт-Петробад
Has thanked: 222 times
Been thanked: 643 times
Contact:

Выбор кодировки по маске файла

Post by buniak_a_h »

John Doe, Спасибо. Скрипт упростился. В первом посте темы версия 1.1.2...
Ещё:
John Doe wrote: Mon 07 Jan, 2019 10:57
buniak_a_h wrote: Mon 07 Jan, 2019 10:17 автоматическое определение не всегда срабатывает (особенно на коротких файлах)
Возможно есть определённые типы файлов, с которыми автоопределение плохо работает. Лично я бы ограничил список масок ими.
Если же такое происходит у вас со многоми типами, то возможно автоопределение настроено неоптимально. Или же нуждается в доработке.
User avatar
John Doe
Бюрократ
Posts: 13807
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 73 times
Been thanked: 426 times
Contact:

Выбор кодировки по маске файла

Post by John Doe »

buniak_a_h wrote: Mon 07 Jan, 2019 11:56 При создании нового файла хочется сразу задать кодировку
Верно.
И в идеале скрипт только на новые файлы и должен действовать.

И кстати задача вовсе не новая, свои решения есть в [ESC], fl_scripts, и LuaEditorSettingsCore (вроде бы).
User avatar
zg
zero-gravity
Posts: 6016
Joined: Tue 15 Mar, 2005 17:36
Location: riga
Been thanked: 185 times
Contact:

Выбор кодировки по маске файла

Post by zg »

John Doe wrote: Mon 07 Jan, 2019 13:12LuaEditorSettingsCore (вроде бы).
так и есть, без всяких вроде.
User avatar
buniak_a_h
Posts: 4236
Joined: Sat 20 Apr, 2013 00:17
Location: Санкт-Петробад
Has thanked: 222 times
Been thanked: 643 times
Contact:

Выбор кодировки по маске файла

Post by buniak_a_h »

John Doe wrote: Mon 07 Jan, 2019 13:12 И в идеале скрипт только на новые файлы и должен действовать.
Я сначала так и сделал. Но потом неоднократно сталкивался, что ФАР запомнил в истории неправильную кодировку (я в предыдущем сеансе не исправлял, т.к. не было кириллицы, а потом она появилась). В результате мне удобнее было назначать КС ВСЕГДА.
John Doe wrote: Mon 07 Jan, 2019 13:12 задача вовсе не новая
Я был уверен, что это уже делалось. Но как искать - для меня загадка. Короче, быстрее было своё написать.
Garrett
Posts: 240
Joined: Mon 01 Aug, 2005 10:23
Been thanked: 1 time

Выбор кодировки по маске файла

Post by Garrett »

buniak_a_h,
А что надо добавить, чтобы и во вьювере кодировка была верной?
Я добавил след.код, но Фар всё равно выставляет 1251
Event {
group="ViewerEvent"; filemask="*.cbl";
action=function(Id,Event,Param)
if Event == far.Flags.EE_READ then
editor.SetParam(nil, far.Flags.ESPT_CODEPAGE, 28595)
end
end;
}
2useven10
Posts: 5204
Joined: Mon 07 Sep, 2009 10:40
Has thanked: 18 times
Been thanked: 310 times

Выбор кодировки по маске файла

Post by 2useven10 »

как минимум заменить .EE_READ и editor. на .VE_READ и viewer.
Garrett
Posts: 240
Joined: Mon 01 Aug, 2005 10:23
Been thanked: 1 time

Выбор кодировки по маске файла

Post by Garrett »

2useven10, скрипт падает с вашими подсказками на
viewer.SetParam(nil, far.Flags.ESPT_CODEPAGE, 28595)
Shmuel
Posts: 6819
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 528 times

Выбор кодировки по маске файла

Post by Shmuel »

Нет такой функции viewer.SetParam.
Я вьювером практически не пользуюсь, так что могу ошибаться, но похоже, что нет такой возможности в API.
2useven10
Posts: 5204
Joined: Mon 07 Sep, 2009 10:40
Has thanked: 18 times
Been thanked: 310 times

Выбор кодировки по маске файла

Post by 2useven10 »

И я не нашёл установку кодовой страницы вьювера через api...
Может надо сделать?
Garrett
Posts: 240
Joined: Mon 01 Aug, 2005 10:23
Been thanked: 1 time

Выбор кодировки по маске файла

Post by Garrett »

ошибка, может поможет
Attachments
error.jpg
2useven10
Posts: 5204
Joined: Mon 07 Sep, 2009 10:40
Has thanked: 18 times
Been thanked: 310 times

Выбор кодировки по маске файла

Post by 2useven10 »

Не поможет. Ошибка показывает то что уже написал Shmuel - нет ф-ии viewer.SetParam().
Post Reply

Return to “Обсуждение макросов”