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

**محمد سامر محمد سامر** · 05-08-2016, 12:00 AM

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

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

فهمت المقصد أخي...لكن الأكواد التي تذكرها كانت تخص listox ....فأنا كنت أريد الزر يعمل copy لقيمه موجوده في الملف ini ...ليس listbox
عموما أخي جزاك الله خيرا ..تسلم من كل سوء

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

**ياسرهتهت ياسرهتهت** · 05-08-2016, 01:17 AM

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

------------------------------------
بسم الله الرحمن الرحيم
اخي الكريم
حمل الملف من المرفقات اتمنا ان يكون ما تريد
موفق بإذن الله ... لك مني أجمل تحية .

الملفات المرفقة

TEST5001.rar (46.9 كيلوبايت, 32 مشاهدات)

**ثامر أبو بلقيس ثامر أبو بلقيس** · 05-08-2016, 01:18 AM

حدد أيهما تريد

في ملف word أو text

**ثامر أبو بلقيس ثامر أبو بلقيس** · 05-08-2016, 01:24 AM

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

------------------------------------
بسم الله الرحمن الرحيم
اخي الكريم
حمل الملف من المرفقات اتمنا ان يكون ما تريد
موفق بإذن الله ... لك مني أجمل تحية .

لا أريد أن أقول لك أني أشعر أنه يوجد خطأ لا أدري هل جربت الأكواد
أم لا " فقد تكون ظروف التساؤل مختلفة "

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

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

حدد أيهما تريد

في ملف word أخي..

**ثامر أبو بلقيس ثامر أبو بلقيس** · 05-08-2016, 01:26 AM

لحظــــــات ...

**ثامر أبو بلقيس ثامر أبو بلقيس** · 05-08-2016, 01:36 AM

السلام عليكم ورحمة الله وبركاته
..
global functions ازرع هذا الكود لكن بمعيارين 2 سنتعامل معهما فيما بعد
في الزر
المهم الان ازرع في global functions الكود التالي

كود PHP:


 function samer(Word_Search,filename)

g = INIFile.GetSectionNames(filename);

m =""

for i,n in pairs(g)do

k = INIFile.GetValue(filename,n, Word_Search);

m=m..k.."\r\n"

end

return m.."\r\n"

end

سنلاحظ أنه سيشمل القيمة و مسار الملف
وهذا تسهيلا لك لانه لديك ملفات عدة
المهم الصقه في global functions كما هو

بعد ذلك ..
في الزر نكتب :

كود PHP:


g =  samer("Name","AutoPlay\\Docs\\1ere\\DB1A1T.ini")

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

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

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(g);  

word.Selection:PasteSpecial();  

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

paras = book.Paragraphs:Add()  

range = paras.Range  

range:InsertParagraph()  

book:Close()  

word:Quit()

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

لاحظ ما تقوم به هو في السطر الاول لكود الزر
لديك معيارين بيتهما فاصلة تحدد في الاول القيمة التي تريد استدعائها
و في الثاني مسار ملف الايني ربما لديك عدة ملفات لذلك ترك لك حرية التحكم في أي ملف تريد

موفق

ملاحظة : تفعيل الاضافتين : Clipboard و LuaCom

**ياسرهتهت ياسرهتهت** · 05-08-2016, 01:41 AM

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

لا أريد أن أقول لك أني أشعر أنه يوجد خطأ لا أدري هل جربت الأكواد
أم لا " فقد تكون ظروف التساؤل مختلفة "

----------------
بسم الله الرحمن الرحيم
استاذي الفاضل جربت الاكواد وعندي تعمل بشكل جيد ؟
لو هناك خطأ ارجو منك تصحيحة ؟ وتوضيحة ؟
انا اصلا اعجبني كود نسخ البيانات الي ملف الورد بدون الاضافات الذي وضعته انت بالامس
بالفعل رائع ويسهل طباعة القوائم
موفق بإذن الله ... لك مني أجمل تحية .

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

بسم الله ماشاء الله.... أكواد رائعه ومجهود فوق الممتاز أ. ثامر .

والأكوااااااااااااااااااا ااااااااد مهذبه جدااااااااااااااااااااااا ااااااااااااااا..
....وملف راااااااااااااااااااااااا ااااااااااااااااااااااااا ااااااااااااااااااااائع ..أ .ياسر....

أكثر مما طلبت بكثيييييييييييييييييييييي يييييييييييييييييييييييير ..

عبد الهادي بهاب · 05-08-2016, 02:05 AM

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

جزاك الله خيرا أخي على ذوقك وآدبك...
كنت أريد فقط زر أستطيع من خلاله إستدعاء إحدى القيم وليكن العمرage مثلا؟؟؟؟؟
ومعنى إستدعائهم؟؟ اي عند الضغط على هذا الزر..يعمل بمثابة copy
بحيث أستطيع عمل past لهم في ملف word أو text
بحيث يكونو هكذا عند اللصق ::
18
18
19
19
هذا بالنسبه للعمرage..

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

في هذا الملف المفتوح ( تعديل على الملف خاصتك ) اضفت عنصر كومبوكس بحيث تظهر فيه عناصر السيكشن ( اسم عمر جنس ..........)
عندما تختار عنصر من الكومبوكس ستظهر القائمة لكل عنصر مثلا اذا اخترت العمر سيظهر اليا كل الاعمار و اذا اخترت الاسم ستظهر كل الاسماء .........و اليا وضعت كود نسخ القائمة بحيث دون اللجوء الى القائمة الصقها حيث تريد في المذكرة او الوورد ..الخ

http://up.harajgulf.com/do.php?id=981714

حتى نريد حلول اخرى تقبل تحياتي

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

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

**محمد سامر محمد سامر** · 05-08-2016, 02:19 AM

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

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

في هذا الملف المفتوح ( تعديل على الملف خاصتك ) اضفت عنصر كومبوكس بحيث تظهر فيه عناصر السيكشن ( اسم عمر جنس ..........)
عندما تختار عنصر من الكومبوكس ستظهر القائمة لكل عنصر مثلا اذا اخترت العمر سيظهر اليا كل الاعمار و اذا اخترت الاسم ستظهر كل الاسماء .........و اليا وضعت كود نسخ القائمة بحيث دون اللجوء الى القائمة الصقها حيث تريد في المذكرة او الوورد ..الخ

http://up.harajgulf.com/do.php?id=981714

حتى نريد حلول اخرى تقبل تحياتي

أستاذي المحترف ...لقد وسعت آفاقي 360 درجه بهذا التعديل الرااااااااااااااائع.جزاك الله كل خير....سأسير في هذا المسار...

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

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

----------------
بسم الله الرحمن الرحيم
استاذي الفاضل جربت الاكواد وعندي تعمل بشكل جيد ؟
لو هناك خطأ ارجو منك تصحيحة ؟ وتوضيحة ؟
انا اصلا اعجبني كود نسخ البيانات الي ملف الورد بدون الاضافات الذي وضعته انت بالامس
بالفعل رائع ويسهل طباعة القوائم
موفق بإذن الله ... لك مني أجمل تحية .

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

**محمد سامر محمد سامر** · 05-08-2016, 02:23 AM

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

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

جزاك الله كل خير أستاذي الكريم ...الأستاذ ثامر... كنت لا أعلم ذلك ...بارك الله فيك
"""""ضروري تكون بخاصية مسؤولة قبل اخراج العمل في صورته النهائية"""" أستطيع عمل ذلك.
ممكن توضيح أستاذي لجملة """و يحفظ بصيغة فولدر"""" هل تقصد ""Hard drive folder

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

إستدعاء value من ملف ini

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك