بسم الله الرحمن الرحيم
أشكرك استاذي الكريم
علي هذا التعاون والمساعدة
جميع الاكواد رائعة ومفيدة
بارك الله فيك
اما موضوع للـــــ Clipboard والاحتفاظ بالرقم او الكلمة في ذاكرة النظام
ثم توجيها ؟
فقد اجابني احد الاساتذة المتخصصين في البرمجة بالفيجول بيسك. ان ما اريدة مستحيل
وخارج نطاق برنامج AutoPlay Media Studio
مثل مفتاح البرنت سكرين (prtscn) قي لوحة المفاتيح .... وغيرها
من الذواكر المحجوزة في النظام
لا اخفيك لم افهم تماماً ما قله لي هذا المتخصص ولكن فهمت ان ما اريدة مستحيل؟؟
-----------
اريد منك استاذي الكريم ان تطلع والاخوه الكرام على الملف في المرفقات
وتخبروني ماذا يعني هذا الملف؟

اشكر من كل قلبي على هذا الجهد والمتابعة والعطاء
جعله الله في ميزان حسناتك

موفق بإذن الله ... لك مني أجمل تحية .

أخي عبود لا توجد او لم اجد اضافة Clipboard EX

فقط الاضافة العادية Clipboard


موفق بإذن الله ... لك مني أجمل تحية .

===============================
المفروض ان هذا الملف
لربط Clipboard بالبرنامج
اي تتم عملية الحفظ لما هو منسوخ داخل شاشة البرنامج فقط
ليس مثل الحالة العادية تحتفظ
Clipboard
بما يسخ داخل او خارج البرنامج
ومن الواضح انه ملف لا يصلح او ليس ذي فائدة
================================
وهذة اكواد خاصة Clipboard للاطلاع لعلها تفيد احد
ويكون هذا الموضوع
تنول الـــــ Clipboard بشكل اشمل


[HTML]local awful = awful

clipboard_path = os.getenv("HOME") .. "/.sel"

-- sub string function for utf8mb3 strings copied from:
-- http://wowprogramming.com/snippets/UTF-8_aware_stringsub_7

-- UTF-8 Reference:
-- 0xxxxxxx - 1 byte UTF-8 codepoint (ASCII character)
-- 110yyyxx - First byte of a 2 byte UTF-8 codepoint
-- 1110yyyy - First byte of a 3 byte UTF-8 codepoint
-- 11110zzz - First byte of a 4 byte UTF-8 codepoint
-- 10xxxxxx - Inner byte of a multi-byte UTF-8 codepoint

local function chsize(char)
if not char then
return 0
elseif char > 240 then
return 4
elseif char > 225 then
return 3
elseif char > 192 then
return 2
else
return 1
end
end

-- This function can return a substring of a UTF-8 string, properly handling
-- UTF-8 codepoints. Rather than taking a start index and optionally an end
-- index, it takes the string, the starting character, and the number of
-- characters to select from the string.

local function utf8sub(str, startChar, numChars)
local startIndex = 1
while startChar > 1 do
local char = string.byte(str, startIndex)
startIndex = startIndex + chsize(char)
startChar = startChar - 1
end

local currentIndex = startIndex

while numChars > 0 and currentIndex <= #str do
local char = string.byte(str, currentIndex)
currentIndex = currentIndex + chsize(char)
numChars = numChars -1
end
return str:sub(startIndex, currentIndex - 1)
end

function read_entries(f)
local i = 1
local entries = {}
for line in f:lines() do
local idx = i
entries[i] = {
utf8sub(line, 0, 25) .. "...",
function()
cmd = "sed -n '".. idx .. "," .. idx .."p' " .. clipboard_path .. " | perl -pe 's/#NL/\\n/g' | xclip -d :0 -selection primary"
awful.util.spawn_with_shell(cmd)
naughty.notify({
text = string.gsub(line, '(#NL)', "\n"),
timeout = 3
})
end
}
i = i + 1
end
return entries
end

function clipboard_menu()
local entries = nil
local f = io.open(clipboard_path, "r")
if f ~= nil then
entries = read_entries(f)
f:close()
end

-- check if there is any entry, or stops here
if entries == nil or #entries == 0 then
naughty.notify({
text = "no cached entries",
timeout = 3
})
return
end

awful.menu.new({
items = entries,
width = 300,
}):show({keygrabber= true})
end

function clear_clipboard()
local file = io.open(clipboard_path, "w")
file:flush()
file:close()
end

function copy_to_clipboard()
local sel = selection()
local file, errmsg = io.open(clipboard_path, "a+")
if file == nil then
naughty.notify({
text = errmsg,
timeout = 3
})
return
end
naughty.notify({
text = sel,
timeout = 3
})
sel = string.gsub(sel, '(\n)', '#NL')
file:write(sel)
file:write("\n")
file:flush()
file:close()
end[/HTML]


موفق بإذن الله ... لك مني أجمل تحية .