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

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

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

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

   

frs

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
function fill_list_func()
   
list_func:clear()
 
   
local findRegExp1 = {
       
cpp="([^.,<>=\n]-[ :][^.,<>=\n%s]+[(][^.<>=)]-[)])[%s\/}]-%b{}",
       
vb="(\n[Public ]*[Private ]*[SsFfP][Uur][BbNno][^\r]-)\r",
       
vbscript="(\n[SsFf][Uu][BbNn][^\r]-)\r",
       
css="([%w.#-_]+)[%s}]-%b{}",
       
pascal="\n[pPfF][rRuU][oOnN][cC][eEtT][dDiI][uUoO][rRnN].(.-%b().-)\n",
       
python="\n%s-([dc][el][fa]%s-.-):"
       
}
--         js="(\n[^,<>\n]-function[^(]-%b())[^{]-%b{}",
   
local findPattern = findRegExp1 [editor.LexerLanguage]
 
   
if findPattern == nil then
       
findPattern = "\n[local ]*[SsFf][Uu][BbNn][^ .]* ([^(]*%b())"
   
end
    local
textAll = editor:GetText()
   
local startPos, endPos, findString
    startPos = 1
   
while true do
       
startPos, endPos, findString = string.find(textAll, findPattern, startPos)
       
if startPos == nil then break end
       
findString = findString:gsub("[\r\n]", ""):gsub("%s+", " ")
       
local line_number = editor:LineFromPosition(startPos)
       
list_func:add_item(findString, line_number)
       
startPos = endPos + 1
   
end
end

Всего записей: 35 | Зарегистр. 20-02-2003 | Отправлено: 19:18 15-09-2008
   

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

Компьютерный форум 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