Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » SciTE - Open Source Text Editor for Windows & Linux

Модерирует : gyra, Maz

Widok (23-11-2010 11:23): Лимит страниц. Продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
MakeAbbrev.lua
Код:
-- MakeAbbrev.lua
-- Version: 1.1
-- Autor: frs
-- http://forum.ru-board.com/topic.cgi?forum=5&topic=3215&start=1940#15
---------------------------------------------------
-- add selected text to SciTE Abbreviation, enter the abbreviature in a dialog
-- добавляем выделенный текст в аббревиатуры данного языка, задать аббревиатуру можно в диалоговом окне
---------------------------------------------------
-- Для подключения добавьте в свой файл .properties следующие строки:
--  command.parent.96=9
--  command.name.96.*=Add to Abbreviation
--  command.96.*=dofile $(SciteDefaultHome)\tools\MakeAbbrev.lua
--  command.mode.96.*=subsystem:lua,savebefore:no
---------------------------------------------------
-- Важное замечание:
-- Файл аббревиатуры создается с именем текущего лексера и расширением .abbrev в подкаталоге \abbrev.
-- Для работы с ним его необходимо корректно подключить. Например, так:
--   abbreviations.*.html;*.htm;*.asp;*.shtml=$(SciteDefaultHome)\abbrev\hypertext.abbrev
---------------------------------------------------
local function MakeAbbrev()
    local sel_text = editor:GetSelText()
    if string.len(sel_text)>=10 then --ограничим минимум длины строки для аббревиатуры
        local x1,x2=string.find(sel_text,"%w+%S")
        if x1 and x2 then
            local key=string.sub(sel_text,x1,x2)
            props["1"] = key
            if scite.ShowParametersDialog("Enter abbr for code:") then
                key=props["1"]
           else
                return
            end
            sel_text=string.gsub(sel_text,"\\","\\\\")
            --~ sel_text=string.gsub(sel_text,"\r\n","\\r\\n")
            sel_text=string.gsub(sel_text,"\n","\\n")
            sel_text=string.gsub(sel_text,"\r","\\r")
            sel_text=string.gsub(sel_text,"\t","\\t")
            local file=(props["SciteDefaultHome"].."\\abbrev\\"..editor.LexerLanguage..".abbrev")
            local abb_file =io.open(file)
            if abb_file~=nil then
                abb_file:close()
                io.input(file)
                t=io.read('*a').."\r\n"
            end
            io.output(file)
            if t==nil then t="" end
            io.write(t..key.."="..sel_text)
            io.close()
        end
    end
end
 
MakeAbbrev()
Данный код внедрен в форум с помощью скрипта vladvro

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 23:32 09-10-2007
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » SciTE - Open Source Text Editor for Windows & Linux
Widok (23-11-2010 11:23): Лимит страниц. Продолжаем здесь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru