مشاهدة النسخة كاملة : حول listbox
محمد سامر
01-08-2016, 11:52 PM
السلام عليكم ورحمة الله وبركاته،،،
السلام لكل إخواني في هذا المنتدى... وأذكركم بقول النبي:salla:" من لم يشكر الناس لم يشكر الله"
أشكر كل إخواني في هذا المنتدى خاصة أ ثامر ....أخ عبود...أخ ياسر... وكل الناس المحترمين لكي لا أنسى أحد.
ولكي لا أُطيل.......
هل من الممكن عمل copy للأسماء الموجوده في ال listbox بعد تخزينها...بحيث أستطيع لصقها خارج البرنامج في ملف وورد أو إكسل
.. ...ولو تعثر الأمر ولم يفلح هل من الممكن عمل زر يطبع هذه الأسماء الموجوده ب listbox
وجزاكم الله خيرا:abc_070:
ملف مفتوح للإطلاع
http://www.mediafire.com/?62n0bn2j3ceuv8v
عبد الهادي بهاب
02-08-2016, 12:49 AM
السلام عليكم ورحمة الله وبركاته،،،
السلام لكل إخواني في هذا المنتدى... وأذكركم بقول النبي:salla:" من لم يشكر الناس لم يشكر الله"
أشكر كل إخواني في هذا المنتدى خاصة أ ثامر ....أخ عبود...أخ ياسر... وكل الناس المحترمين لكي لا أنسى أحد.
ولكي لا أُطيل.......
هل من الممكن عمل copy للأسماء الموجوده في ال listbox بعد تخزينها...بحيث أستطيع لصقها خارج البرنامج في ملف وورد أو إكسل
.. ...ولو تعثر الأمر ولم يفلح هل من الممكن عمل زر يطبع هذه الأسماء الموجوده ب listbox
وجزاكم الله خيرا:abc_070:
ملف مفتوح للإطلاع
http://www.mediafire.com/?62n0bn2j3ceuv8v
بداية .....اذا اردنا التعامل مع الوورد او الاسكل ....لزمك اضافة luacom
لكن دعنا نلجأ الى الحل البسيط جدا وهو حفظ القائمة في ملف تكتس بسيط جدا txt
في زر ضع هذا الكود ........و ستجد الملف في القرص C
list = {};
for i=1, ListBox.GetCount("ListBox1") do
Table.Insert(list, i, ListBox.GetItemText("ListBox1", i));
end
for i,n in pairs(list) do
TextFile.WriteFromTable("C:\\MyFile.txt", list, false);
end
في انتظار حلول افضل
تقبل تحياتي
عبد الهادي بهاب
02-08-2016, 01:02 AM
حل أخر ..و الان نحفظ قائمة الليسبوكس بصيغة rtf او قريبة للوررد
ما عليك سوى اضافة عنصر RichText و اجعل خلفيته بيضاء مثلا لكن لا تتركها غير فعالة اي tranparent
ثم اجعله مخفيا لانه لا يهم فهمر عنصر وسيط للحفظ فقط
في زر اجعل هذا الكود و ستجد القائمة في القرص c
list = "";
for i=1, ListBox.GetCount("ListBox1") do
list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);
end
RichText.SetText("RichText1", list, false);
RichText.SaveToFile("RichText1", "C:\\MyFile.rtf");
محمد سامر
02-08-2016, 01:06 AM
تسلم أخي على هذا الجهد؟؟؟ نافع جدااااااااااااااااااا
طب هل أستطيع آخذها copy...من list box مباشرة
عبد الهادي بهاب
02-08-2016, 01:13 AM
اذا اردت حفظ القائمة في مبف وورد
فعل الاضافة luacom
و اجعل هذا الكود في زر
list = "";
for i=1, ListBox.GetCount("ListBox1") do
list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);
end
RichText.SetText("RichText1", list, false);
DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
RichText.SetSelection("RichText1", 1, -1);
D=RichText.Copy("RichText1");
local word = luacom.CreateObject("Word.Application")
local book = word.documents:Add()
word.Visible = true
local section = book.Sections(1)
local headers = section.Headers
local header = headers:Item(1)
word.Selection:PasteSpecial();
book:SaveAs("C:\\THAMEUR.doc")
paras = book.Paragraphs:Add()
range = paras.Range
range:InsertParagraph()
book:Close()
word:Quit()
عبد الهادي بهاب
02-08-2016, 01:17 AM
تسلم أخي على هذا الجهد؟؟؟ نافع جدااااااااااااااااااا
طب هل أستطيع آخذها copy...من list box مباشرة
طبعا يمكنك ذلك
فعل الاضافة Clipboard
في زر اجعل هذا الكود
list = "";
for i=1, ListBox.GetCount("ListBox1") do
list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);
end
Clipboard.CopyText(list);
بعدها اذهب الى الوورد مثلا .......و ما عليك الى ان تستعمل الصق فقط
عبد الهادي بهاب
02-08-2016, 01:33 AM
شيء اخر
تعال معي ...........لماذا لا نلغي الزر و نجعل المستخدم يحتفظ بقائمة الاسماء الموجودةى في الليسبوكس باستعمل فقط c+ctrl اي من خلال الكبيورد
اذن ادهب الى الصفحة و في On key ازرع الكود التالي
list = "";
if e_Key == 67 and e_Modifiers.ctrl == true then
for i=1, ListBox.GetCount("ListBox1") do
list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);
end
Clipboard.CopyText(list);
end
طبعا لا تنسى دائما تفعيل اضافة Clipboard
ثم الصق في اي مكان تريده باستعمال مثلا v+ctrl او بيمين المووس ثم الصق
بالتوفيق
محمد سامر
02-08-2016, 01:50 AM
أحسنت... وأوجزت ...وأفدت...:abc_152: جزاك الله خيرا
محمد سامر
02-08-2016, 02:08 AM
شيء اخر
تعال معي ...........لماذا لا نلغي الزر و نجعل المستخدم يحتفظ بقائمة الاسماء الموجودةى في الليسبوكس باستعمل فقط c+ctrl اي من خلال الكبيورد
اذن ادهب الى الصفحة و في On key ازرع الكود التالي
list = "";
if e_Key == 67 and e_Modifiers.ctrl == true then
for i=1, ListBox.GetCount("ListBox1") do
list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);
end
Clipboard.CopyText(list);
end
طبعا لا تنسى دائما تفعيل اضافة Clipboard
ثم الصق في اي مكان تريده باستعمال مثلا v+ctrl او بيمين المووس ثم الصق
بالتوفيق
أحسنت... وأوجزت ...وأفدت...:abc_152: جزاك الله خيرا
لكن هذا الكود الأخير لم يعمل
عبد الهادي بهاب
02-08-2016, 10:17 AM
أحسنت... وأوجزت ...وأفدت...:abc_152: جزاك الله خيرا
لكن هذا الكود الأخير لم يعمل
ايهم تقصد .....
محمد سامر
02-08-2016, 12:05 PM
list = "";
if e_Key == 67 and e_Modifiers.ctrl == true then
for i=1, ListBox.GetCount("ListBox1") do
list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);
end
Clipboard.CopyText(list);
end
هذا الكود الذي يكون في on key
عبد الهادي بهاب
02-08-2016, 12:09 PM
list = "";
if e_Key == 67 and e_Modifiers.ctrl == true then
for i=1, ListBox.GetCount("ListBox1") do
list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);
end
Clipboard.CopyText(list);
end
هذا الكود الذي يكون في on key
هل فعلت الاضافة Clipboard ؟
فيه احتمال اخر وهو تسمية اليسبوكس عندك هل هي ListBox1
ثامر أبو بلقيس
02-08-2016, 12:14 PM
شيء اخر
تعال معي ...........لماذا لا نلغي الزر و نجعل المستخدم يحتفظ بقائمة الاسماء الموجودةى في الليسبوكس باستعمل فقط c+ctrl اي من خلال الكبيورد
اذن ادهب الى الصفحة و في On key ازرع الكود التالي
list = "";
if e_Key == 67 and e_Modifiers.ctrl == true then
for i=1, ListBox.GetCount("ListBox1") do
list = list .."\r\n"..ListBox.GetItemText("ListBox1", i);
end
Clipboard.CopyText(list);
end
طبعا لا تنسى دائما تفعيل اضافة Clipboard
ثم الصق في اي مكان تريده باستعمال مثلا v+ctrl او بيمين المووس ثم الصق
بالتوفيق
هذا الحل جيد لكن هناك خلل ؟
وهو هل جربت عندما تكون الكتابة في ListBox بالعربي هل الاضافة Clipboard
تتعامل مع اللغة العربية جرب
على العموم ستحاول كتابة حل باستعمال زر و بنفس الاضافة :abc_138:
ثامر أبو بلقيس
02-08-2016, 12:23 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
01 - فعل الإضافة Clipboard
http://store1.up-00.com/2016-08/1470131979881.jpg
02 - اجعل عنصر ListBox قابل للتحديد المتعدد
http://store2.up-00.com/2016-08/14701320351.jpg
03 - الكود في زر :
------------------------------------------------------------------
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
موفق :abc_138:
محمد سامر
02-08-2016, 12:32 PM
أ. ثامر.. الغالي.. العزيز.... كفايه فقط رؤية إسم حضرتك...في التعليق...هذا بالدنيا كلها ...
أشكر حضرتك جدااااااااااااااااااااااا ااااااااااااااااا،،،، وأشكر الأخ الفاضل أ.اقلي جدااااااااااااااااااااااا ااا:abc_152:
عبد الهادي بهاب
02-08-2016, 01:04 PM
هذا الحل جيد لكن هناك خلل ؟
وهو هل جربت عندما تكون الكتابة في listbox بالعربي هل الاضافة clipboard
تتعامل مع اللغة العربية جرب
على العموم ستحاول كتابة حل باستعمال زر و بنفس الاضافة :abc_138:
فعلا يطلع مخلبط مربج مشقلب ........او مغبرط ......الخ
تحياتي للاستاذ
عبد الهادي بهاب
02-08-2016, 01:06 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
01 - فعل الإضافة clipboard
http://store1.up-00.com/2016-08/1470131979881.jpg
02 - اجعل عنصر listbox قابل للتحديد المتعدد
http://store2.up-00.com/2016-08/14701320351.jpg
03 - الكود في زر :
------------------------------------------------------------------
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
موفق :abc_138:
جميل جدا و فعال و اضافة جديدة لمحتوى التحديد في اليسبوكس
عمر والي
02-08-2016, 04:23 PM
مساء الخير
إذا إرتبط listbox بملفini غير الموجود في أول الموضوع الذي هو xml
وأريد زر يقوم بطبع البيانات الموجودة في الملف ini...التي أحتاجها ..وليكن مثلا (((السكاشن،،،،القيمةvalu،،،،. ...))بحيث تظهر لي الأسماء التي إستدعيتها في ملف وورد أوتكست؟؟؟؟؟
فهل يستطيع الأوتو عمل ذلك:abc_138:
محمد سامر
02-08-2016, 05:49 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
01 - فعل الإضافة clipboard
http://store1.up-00.com/2016-08/1470131979881.jpg
02 - اجعل عنصر listbox قابل للتحديد المتعدد
http://store2.up-00.com/2016-08/14701320351.jpg
03 - الكود في زر :
------------------------------------------------------------------
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
موفق :abc_138:
____ أنا مُحرج فعلا من كثرة الأسئلة-------- وكل الردود قد إستفدت منها كثيرااااااااااااااااااااا ااااااااا
آخير إن شاء الله وليس آخرا...... هل يمكن لصقها في جدول بالوورد أو الإكسل
ثامر أبو بلقيس
02-08-2016, 09:05 PM
------------------------------------------------------------------
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
تسلم يداااااااااااااااااك أخ ثامر
الأكواد شغاله تمام وتم اللصق...وتم لصق الأسماء في الجدول في الوورد...
الأكواد ماشاء الله كلها ممتازه .. وتمت العملية بنجاح.:abc_050::abc_138:
ثامر أبو بلقيس
02-08-2016, 11:50 PM
و للإستغناء على الاضافة " كيبورد"
نستعمل هذا الكود
------------------------------------------------------------------
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);
--------------------------------------------------------------------
موفق أستاذ :abc_138:
ثامر أبو بلقيس
03-08-2016, 12:08 AM
وللتخلي عن شرط أو ميزة التحديد المتعدد كما تم التخلي عن الاضافة " كيبورد"
يهذب الكود على التحو التالي
------------------------------------------------------------------
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
تكرم أستاذي الغالي ...:abc_020:
جزاك الله عنا كل خير....
صراحةً أستاذ ورئيس قسم.. زادك الله علما وتواضعا.
ياسرهتهت
03-08-2016, 01:13 AM
بسم الله الرحمن الرحيم
بارك الله فيك استاذنا الفاضل ابوبلقيس
اكواد احترافية كالعادة ابداع
:abc_138::abc_138::abc_138:
وشكرا لك اخي المحترف على المساهمات والاكواد المميزة
والشكر موصول لاخونا سامر على طرح الموضوع
الذي استفدنا منة جميعا
:abc_152::abc_152:
عمر والي
04-08-2016, 09:43 PM
وللتخلي عن شرط أو ميزة التحديد المتعدد كما تم التخلي عن الاضافة " كيبورد"
يهذب الكود على التحو التالي
------------------------------------------------------------------
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
oDoc:SaveAs("C:\\THAMEUR.doc")
عمر والي
05-08-2016, 12:25 AM
oDoc:SaveAs("C:\\THAMEUR.doc")
يمكن تغيير الحفظ لل desktop ?
حاولت لكن لم أستطيع.. ممكن الإفادة.
محمد سامر
05-08-2016, 01:58 AM
oDoc:SaveAs("C:\\THAMEUR.doc")
يمكن تغيير الحفظ لل desktop ?
حاولت لكن لم أستطيع.. ممكن الإفادة.
إن شاء الله موفق يكون هكذا...
oDoc:SaveAs(_DesktopFolder .. "\\THAMEUR.doc")
رانيا حسن
10-08-2016, 12:07 AM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
اود ان اعرض لكم فكرة تضيف لكم الكثير من الروعه في هذا المجال
لكني لم استطيع اجد الكود المناسب
لان شفت الفكرة معمولة بالفيجوال بيسك ولم اكن اجيد طريقة كيف اكتب الكود ببرنامج الاوتوبلاي
لكن الفكرة انه عملت برنامج المصحف ووضعت باركراف اي عند ادخال نص بحث بالانبوت تظهر بالباركراف وتظهر عدد الكلمات الموجودة بنتيجة البحث
ما اريده هوكيف ان اجعل زرب اخر يقوم بنسخ ما موجود تلقائيا الى ملف ورد اي يفتح ملف الورد وينسخ النص تلقائياً وساضع ملف مفتوح ليبين الحاله
عبد الهادي بهاب
10-08-2016, 01:45 AM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
اود ان اعرض لكم فكرة تضيف لكم الكثير من الروعه في هذا المجال
لكني لم استطيع اجد الكود المناسب
لان شفت الفكرة معمولة بالفيجوال بيسك ولم اكن اجيد طريقة كيف اكتب الكود ببرنامج الاوتوبلاي
لكن الفكرة انه عملت برنامج المصحف ووضعت باركراف اي عند ادخال نص بحث بالانبوت تظهر بالباركراف وتظهر عدد الكلمات الموجودة بنتيجة البحث
ما اريده هوكيف ان اجعل زرب اخر يقوم بنسخ ما موجود تلقائيا الى ملف ورد اي يفتح ملف الورد وينسخ النص تلقائياً وساضع ملف مفتوح ليبين الحاله
في زر النسخ ضعي الكود التالي
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 باسم ثامر
عبد الهادي بهاب
10-08-2016, 01:46 AM
فيه ملاحظة النص مشكل يعني ان البحث لن يجد كلمة ان لم نكتبها بشكل مطابق لما هو موجود
مثلا كلمة ريب ..........لن يجد شيئا الا اذا كتبناها مشكلة
اذن ما الحل ؟
في زر البحث الغي التشكيل
استعملي string.find ..............و لما نجد الحركات نعوضها بفراغ "" باستخدام string.replace
حاولي و لنا عودة
رانيا حسن
10-08-2016, 10:50 AM
السلام عليكم ورحمة الله وبركاته ارفق لكم هذا الملف المفتوح وارجو ان تجدوا لي كود مناسب حيث يمكنه فتح ملف الورد تلقائيا و كذلك نسخ ماموجود في نتيجة البحث و شـكــ وبارك الله فيكم ـــرا لك ... لكم مني أجمل تحية .
عبد الهادي بهاب
10-08-2016, 11:36 AM
السلام عليكم ورحمة الله وبركاته ارفق لكم هذا الملف المفتوح وارجو ان تجدوا لي كود مناسب حيث يمكنه فتح ملف الورد تلقائيا و كذلك نسخ ماموجود في نتيجة البحث و شـكــ وبارك الله فيكم ـــرا لك ... لكم مني أجمل تحية .
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()
الم ينفعك هذا الكود ؟؟
عبد الهادي بهاب
10-08-2016, 12:36 PM
السلام عليكم ورحمة الله وبركاته ارفق لكم هذا الملف المفتوح وارجو ان تجدوا لي كود مناسب حيث يمكنه فتح ملف الورد تلقائيا و كذلك نسخ ماموجود في نتيجة البحث و شـكــ وبارك الله فيكم ـــرا لك ... لكم مني أجمل تحية .
اولا لماذا البحث في نفس الملف في مجلدين ؟ الاصل ان يكون احداهما للقران من غير تشكيل لنبحث فيه و م تم ينقل لنا النتيجة من الملف الاخر المشكل
اما النشخ فهو يعمل جيدا فقط لابد من تفعيل الاضافة luacom
عبد الهادي بهاب
10-08-2016, 12:53 PM
http://up.harajgulf.com/do.php?id=996197
عوضي هذا الملف الموجود في
"AutoPlay\\Plugins\\WinApi\\as.txt"
لقد حدفت التشكيل و بالتالي سيعمل زر البحث
عبد الهادي بهاب
10-08-2016, 02:04 PM
بعد جعل كل اية لوحدها في سطر
و جعل ملف دون تشكيل
سيكون زر البحث اكثر فاعلية
و يكون لزر النسخ ايضا معنى
الملف المفتوح بعد التعديل
http://up.harajgulf.com/do.php?id=996473
رانيا حسن
10-08-2016, 09:06 PM
شكرا جزيلا لكن الكود لم يفي بالغرض لانه لم يفتح ملف الورد تلقائياُ
عبد الهادي بهاب
10-08-2016, 09:09 PM
شكرا جزيلا لكن الكود لم يفي بالغرض لانه لم يفتح ملف الورد تلقائياُ
ما معنى تلقائيا ..........الم تجد ملف وورد في c ؟
هو من فتحه و هو من اغلقه
يمكن تركه مفتوحا بتغغير الكود اعلاه
رانيا حسن
10-08-2016, 09:35 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
هكذا يصبح الكود لكن لم يفلح
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")
--oDoc=luacom.openObject("Word.Document")
oWordApp.Visible = false;
oDoc=oWordApp.Documents.Add(1)
oDoc.Content.Text=b
--oDoc:saveas("d:\\THAMEUR.doc")
--oWordApp:Quit()
عبد الهادي بهاب
10-08-2016, 09:49 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
هكذا يصبح الكود لكن لم يفلح
الكود شغال عن
ي لكن هناك حل اخر
امحي الكود السابق و جرب الكود التالي ستظهر صفحة الوورد اماك و سنقل اماك الموضوع لكنه لكن يحفظ الملف الا اذا وافقت و حددت اين يحتفظ به
b= Paragraph.GetText("Paragraph1");
s = Input.GetText("Input1");
DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
----------------------------------------------------------------------
word = luacom.CreateObject("Word.Application")
local book = word.documents:Add()
word.Visible = true
paras = book.Paragraphs:Add()
range = paras.Range
range.Text = "موضوع البحث هو "..s;
range:InsertParagraphAfter()
paras = book.Paragraphs:Add()
range = paras.Range
range.Text = b
range.Style = ("Normal")
range:InsertParagraphAfter()
word.DisplayAlerts = false
doc = nil
word = nil
رانيا حسن
10-08-2016, 10:05 PM
شكرا جزيلا الان يعمل الملف كما هو الحال في الفيجوال بيسك
عبد الهادي بهاب
10-08-2016, 10:22 PM
شكرا جزيلا الان يعمل الملف كما هو الحال في الفيجوال بيسك
الحمد لله من قبل و من بعد
طبعا يبقى لك الكثير من الامور
لكن اكيد سنرى مشروعك كاملا كتطبيق في القريب العاجل
بالتوفيق
رانيا حسن
10-08-2016, 11:00 PM
انشاء الله شكرا جزيلا لكم اتعبتكم كثيرا جدا
هل من الممكن اضافة زر اخر للنسخ لبرنامج الفوتوشوب
عبد الهادي بهاب
11-08-2016, 10:57 AM
انشاء الله شكرا جزيلا لكم اتعبتكم كثيرا جدا
هل من الممكن اضافة زر اخر للنسخ لبرنامج الفوتوشوب
يعني نسخ محتى البارغارف ..عندما تفتح الفوتوشوب تلصقه في مكان النصوص
فعلي الاضافة Clipboard
في زر النسخ نضيف هذا الكود في الاعلى او الاسفل
Clipboard.CopyText(Paragraph.GetText("Paragraph1"));
واي برنامج يقبل النصوص وورد او مذكرة او نوتباد او فوتوشوب او .......................... نقوم باللصق و تمام
رانيا حسن
11-08-2016, 11:19 AM
شكرا جزيلا وبقي لدي سؤال واحد فقط حتى اكمل التجميعه هو هل من الممكن تحديد البحث فقط باللون الازرق وباقي النص بغير لون
عبد الهادي بهاب
11-08-2016, 02:39 PM
شكرا جزيلا وبقي لدي سؤال واحد فقط حتى اكمل التجميعه هو هل من الممكن تحديد البحث فقط باللون الازرق وباقي النص بغير لون
يعني المقصود لما يتم البحث تظهر الاية في البارغارف
من خصائص البارغارف انه نصي كله بلون واحد
لكن الذي يقبل التجزئة هو عنصر richtext
و تختلف اكواده عن البارغارف
عبد الهادي بهاب
11-08-2016, 02:40 PM
ولا داع لكلمة ( فقط )
فمشروعك يجب ان يتم ولا عليك من الاسئلة
فالاخوة كلهم حاضرون
و المشروع مقدس يجب ان يتم باحسن صورة
vBulletin® v3.8.11, Copyright ©2000-2024, abohmam