إعـــــــلان

عبد الهادي بهاب · 02-08-2016, 01:04 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

هذا الحل جيد لكن هناك خلل ؟
وهو هل جربت عندما تكون الكتابة في listbox بالعربي هل الاضافة clipboard
تتعامل مع اللغة العربية جرب
على العموم ستحاول كتابة حل باستعمال زر و بنفس الاضافة

فعلا يطلع مخلبط مربج مشقلب ........او مغبرط ......الخ

تحياتي للاستاذ

عبد الهادي بهاب · 02-08-2016, 01:06 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

01 - فعل الإضافة clipboard

02 - اجعل عنصر listbox قابل للتحديد المتعدد

03 - الكود في زر :

كود PHP:


------------------------------------------------------------------

listbox.selectitem("listbox1", lb_allitems);

x=listbox.getselected("listbox1")

b=""

if x then

for n,h in pairs(x) do

lbtext=listbox.getitemtext("listbox1",h)

b=b..lbtext.."\r\n"

end

end

dll.callfunction("user32.dll", "loadkeyboardlayouta", "\"00000401\", 1", dll_return_type_long, dll_call_stdcall)

--------------------------------

clipboard.copytext(b);

listbox.deselectitem("listbox1", lb_allitems);

---------------------------------------------------------------------

4 - الان يمكنك اللصق فالمحتوى مخزن في clipboard

موفق

جميل جدا و فعال و اضافة جديدة لمحتوى التحديد في اليسبوكس

**عمر والي عمر والي** · 02-08-2016, 04:23 PM

مساء الخير
إذا إرتبط listbox بملفini غير الموجود في أول الموضوع الذي هو xml
وأريد زر يقوم بطبع البيانات الموجودة في الملف ini...التي أحتاجها ..وليكن مثلا (((السكاشن،،،،القيمةvalu،،،،. ...))بحيث تظهر لي الأسماء التي إستدعيتها في ملف وورد أوتكست؟؟؟؟؟
فهل يستطيع الأوتو عمل ذلك

**محمد سامر محمد سامر** · 02-08-2016, 05:49 PM

شاكرا لأساتذتي

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

01 - فعل الإضافة clipboard

02 - اجعل عنصر listbox قابل للتحديد المتعدد

03 - الكود في زر :

كود PHP:


------------------------------------------------------------------

listbox.selectitem("listbox1", lb_allitems);

x=listbox.getselected("listbox1")

b=""

if x then

for n,h in pairs(x) do

lbtext=listbox.getitemtext("listbox1",h)

b=b..lbtext.."\r\n"

end

end

dll.callfunction("user32.dll", "loadkeyboardlayouta", "\"00000401\", 1", dll_return_type_long, dll_call_stdcall)

--------------------------------

clipboard.copytext(b);

listbox.deselectitem("listbox1", lb_allitems);

---------------------------------------------------------------------

4 - الان يمكنك اللصق فالمحتوى مخزن في clipboard

موفق

____ أنا مُحرج فعلا من كثرة الأسئلة-------- وكل الردود قد إستفدت منها كثيرااااااااااااااااااااا ااااااااا
آخير إن شاء الله وليس آخرا...... هل يمكن لصقها في جدول بالوورد أو الإكسل

**ثامر أبو بلقيس ثامر أبو بلقيس** · 02-08-2016, 09:05 PM

كود PHP:


------------------------------------------------------------------

ListBox.SelectItem("ListBox1", LB_ALLITEMS);

x=ListBox.GetSelected("ListBox1")

b=""

if x then

for n,h in pairs(x) do

LBText=ListBox.GetItemText("ListBox1",h)

b=b..LBText.."\r\n"

end

end

DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)

--------------------------------

ListBox.DeselectItem("ListBox1", LB_ALLITEMS);

---------------------------------------------------------------------

local word = luacom.CreateObject("Word.Application") 

local book = word.documents:Add() 

word.Visible = false 

local section = book.Sections(1) 

local headers = section.Headers 

local header = headers:Item(1)

Clipboard.CopyText(b); 

word.Selection:PasteSpecial(); 

book:SaveAs("C:\\THAMEUR.doc") 

paras = book.Paragraphs:Add() 

range = paras.Range 

range:InsertParagraph() 

book:Close() 

word:Quit()

بعد التجربة تفقد القرص c ستجد الملف THAMEUR.doc
هل الكود يعمل أم لا ؟
ما المشكل تحديدا ؟

مع ملاحظة : وجب تفعيل luacom

**محمد سامر محمد سامر** · 02-08-2016, 10:46 PM

تسلم يداااااااااااااااااك أخ ثامر
الأكواد شغاله تمام وتم اللصق...وتم لصق الأسماء في الجدول في الوورد...
الأكواد ماشاء الله كلها ممتازه .. وتمت العملية بنجاح.

**ثامر أبو بلقيس ثامر أبو بلقيس** · 02-08-2016, 11:50 PM

و للإستغناء على الاضافة " كيبورد"

نستعمل هذا الكود
[html]------------------------------------------------------------------
ListBox.SelectItem("ListBox1", LB_ALLITEMS);
x=ListBox.GetSelected("ListBox1")
b="" ; if x then
for n,h in pairs(x) do
LBText=ListBox.GetItemText("ListBox1",h)
b=b..LBText.."\r\n"
end ;end
DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
----------------------------------------------------------------------
oWordApp=luacom.CreateObject("Word.Application")
oDoc=luacom.CreateObject("Word.Document")
oWordApp.Visible = false;
oDoc=oWordApp.Documents.Add(1)
oDoc.Content.Text=b
oDoc:SaveAs("C:\\THAMEUR.doc")
oWordApp:Quit()
oWordApp:Quit()
ListBox.DeselectItem("ListBox1", LB_ALLITEMS);
--------------------------------------------------------------------[/html]

موفق أستاذ

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-08-2016, 12:08 AM

وللتخلي عن شرط أو ميزة التحديد المتعدد كما تم التخلي عن الاضافة " كيبورد"
يهذب الكود على التحو التالي

كود PHP:


------------------------------------------------------------------ 

b="" ; 

for n=1, ListBox.GetCount("ListBox1") do 

b=b..ListBox.GetItemText("ListBox1", n).."\r\n" 

end

DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL) 

----------------------------------------------------------------------

oWordApp=luacom.CreateObject("Word.Application")

oDoc=luacom.CreateObject("Word.Document")

oWordApp.Visible = false;

oDoc=oWordApp.Documents.Add(1)

oDoc.Content.Text=b

oDoc:SaveAs("C:\\THAMEUR.doc")

oWordApp:Quit()

--------------------------------------------------------------------

**محمد سامر محمد سامر** · 03-08-2016, 12:17 AM

تكرم أستاذي الغالي ...

جزاك الله عنا كل خير....
صراحةً أستاذ ورئيس قسم.. زادك الله علما وتواضعا.

**ياسرهتهت ياسرهتهت** · 03-08-2016, 01:13 AM

بسم الله الرحمن الرحيم
بارك الله فيك استاذنا الفاضل ابوبلقيس
اكواد احترافية كالعادة ابداع

وشكرا لك اخي المحترف على المساهمات والاكواد المميزة
والشكر موصول لاخونا سامر على طرح الموضوع
الذي استفدنا منة جميعا

**عمر والي عمر والي** · 04-08-2016, 09:43 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

وللتخلي عن شرط أو ميزة التحديد المتعدد كما تم التخلي عن الاضافة " كيبورد"
يهذب الكود على التحو التالي

كود PHP:


------------------------------------------------------------------ 
b="" ; 
for n=1, ListBox.GetCount("ListBox1") do 
b=b..ListBox.GetItemText("ListBox1", n).."\r\n" 
end
DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL) 
----------------------------------------------------------------------
oWordApp=luacom.CreateObject("Word.Application")
oDoc=luacom.CreateObject("Word.Document")
oWordApp.Visible = false;
oDoc=oWordApp.Documents.Add(1)
oDoc.Content.Text=b
oDoc:SaveAs("C:\\THAMEUR.doc")
oWordApp:Quit()
--------------------------------------------------------------------

كود إحترافي عن جد..
في هذا الكود يكون الحفظ داخل c
فهل يمكن جعله على سطح المكتبDesktop

كود PHP:


oDoc:SaveAs("C:\\THAMEUR.doc")

**عمر والي عمر والي** · 05-08-2016, 12:25 AM

كود PHP:


oDoc:SaveAs("C:\\THAMEUR.doc")

يمكن تغيير الحفظ لل desktop ?

حاولت لكن لم أستطيع.. ممكن الإفادة.

**محمد سامر محمد سامر** · 05-08-2016, 01:58 AM

المشاركة الأصلية بواسطة عمر والي مشاهدة المشاركة

كود PHP:


oDoc:SaveAs("C:\\THAMEUR.doc")

يمكن تغيير الحفظ لل desktop ?

حاولت لكن لم أستطيع.. ممكن الإفادة.

إن شاء الله موفق يكون هكذا...

كود PHP:


oDoc:SaveAs(_DesktopFolder .. "\\THAMEUR.doc")

**رانيا حسن رانيا حسن** · 10-08-2016, 12:07 AM

نسخ بحث قراني

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

عبد الهادي بهاب · 10-08-2016, 01:45 AM

المشاركة الأصلية بواسطة رانيا حسن مشاهدة المشاركة

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

في زر النسخ ضعي الكود التالي

كود PHP:


b= Paragraph.GetText("Paragraph1");

DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)  

---------------------------------------------------------------------- 

oWordApp=luacom.CreateObject("Word.Application") 

oDoc=luacom.CreateObject("Word.Document") 

oWordApp.Visible = false; 

oDoc=oWordApp.Documents.Add(1) 

oDoc.Content.Text=b 

oDoc:SaveAs("C:\\THAMEUR.doc") 

oWordApp:Quit()

الملف موجود في c باسم ثامر

إعـــــــلان

حول listbox

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك