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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » FAR Manager (часть 5)

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

Maz (15-01-2020 17:38): FAR Manager (часть 6)  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

andreyefgs



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

Код:
 
 
local n = {}  
local u = {}  
 
function removebom(s)  
    s = string.gsub(s, "\239\187\191", "")  
    return s  
end  
 
function getindex(t, v)  
    for i = 1, #t do  
        if t[i] == v then return i end  
    end  
    return 0  
end  
 
local function ExpandEnv(str) return (str:gsub("%%(.-)%%", win.GetEnv)) end;  
 
function readfile()  
    local list = ""  
    local p = ExpandEnv("%FARPROFILE%\\Macros\\utils\\clone_list.txt")  
    local file = io.open(p, "r")  
    io.input(file)  
    while true do  
        local line = io.read()  
        if line == nil then break end  
        line = removebom(line)  
        local name = line:gsub("^.*\47([^\47]+)\46git$", "%1")  
        table.insert(n, name)  
        table.insert(u, line)  
        list = list .. name .. "\n"  
    end  
    return list  
end  
 
local list = readfile()  
local r = Menu.Show(list, "Github Repositories", nil, 0)  
 
if r then  
    local i = getindex(n, r)
    if u[i] then  
       local cmd = "git clone " .. u[i]  
       panel.SetCmdLine(nil, cmd)  
       Keys "Enter"
    end  
end  
 
 

Всего записей: 1533 | Зарегистр. 16-10-2005 | Отправлено: 00:03 08-03-2019 | Исправлено: andreyefgs, 00:04 08-03-2019
   

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

Компьютерный форум Ru.Board » Компьютеры » Программы » FAR Manager (часть 5)
Maz (15-01-2020 17:38): FAR Manager (часть 6)


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru