أستغفر الله العظيم ... سبحان الله وبحمده



العودة   منتديات داماس > اسطوانة الويندوز الخاصة > ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


01-10-2017, 08:47 PM
Mahmoud Nabil متصل
عضو محترف
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 594
إعجاب: 98
تلقى 101 إعجاب على 88 مشاركة
تلقى دعوات الى: 7 موضوع
    #1  

سؤال في بحث عن نص معين واستعداء سطر الموالية


سؤال معين واستعداء الموالية وبركاته
السؤال عاوز الكود يبحيث عن النص في المستندات ذات امتدات TXT الي في فولد Docs وبمجرد انو يلاقي النص يقوم بأستدعاء السطر الي تحتو علي طول لاكن لا يتسعدي النص بل يستدعي النص الي تحتو

x1 TextFile.ReadToString("AutoPlay\\Docs\\File"..s..".txt"
x2 "Memy"

if (String.Find(x1x2sfalsethen
    
    Input
.SetText("Input2"X);
    
end 





لا تيأس في ابتكار شئ من وحي الخيال

ان كل الإكتشافات والإختراعات التي نشهدها في الحاضر ، تم الحكم عليها قبل إكتشافها أو إختراعها بأنها : مستحيلة.

المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
سؤال عن كيفية عمل برنامج بحث في موقع معين ببرنامج فيجوال بيسك ؟ المظلوم2 لغات البرمجة 5 09-09-2016 11:04 PM
تخصيص كمبيوتر معين لسحب الانترنت من خط معين من اصل caw_boy3 سيرفرات المايكروتك, صفحات هوت سبوت 1 10-04-2015 11:34 PM
احتاج الى ان افصل جزء معين بلون معين من كل صورة ميشو عاطف خلفيات فوتوشوب - فريمات وزخارف للفوتوشوب GFX 5 08-10-2012 04:32 PM
سؤال عن دمج الملفات وتنزيلها بمسار معين seto xp المنتدى العام لتصميم الأسطوانة 3 08-04-2012 02:16 PM
سؤال عن كيفيه عمل skin معين للوينامب هو الاساسي HamoOokshA المرحلة الثالثة : إضافة البرامج و الدرايفرات وبعض ملفات الميديا أو الخلفيات 10 07-06-2009 02:36 PM

01-10-2017, 09:51 PM
أوتومان غير متصل
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 325
إعجاب: 54
تلقى 90 إعجاب على 52 مشاركة
تلقى دعوات الى: 4 موضوع
    #2  
و عليكم السلام و رحمة الله و بركاته
result TextFile.ReadToTable("AutoPlay\\Docs\\File"..s..".txt");
x2 "Memy"

for 1,#result do
if String.Find(result[i], x21false) ~= -1 then  
    Input
.SetText("Input2"result[i+1]);
 
end   
end 
راجع المرفقات
موفق


01-10-2017, 10:57 PM
Mahmoud Nabil متصل
عضو محترف
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 594
إعجاب: 98
تلقى 101 إعجاب على 88 مشاركة
تلقى دعوات الى: 7 موضوع
    #3  
المشاركة الأصلية كتبت بواسطة أوتومان 
و عليكم السلام و رحمة الله و بركاته
result TextFile.ReadToTable("AutoPlay\\Docs\\File"..s..".txt");
x2 "Memy"

for 1,#result do
if String.Find(result[i], x21false) ~= -1 then  
    Input
.SetText("Input2"result[i+1]);
 
end   
end 
راجع المرفقات
موفق
بارك الله فيك اخي اتومان
لك جزيل الشكر علي هذه المساعدة

01-10-2017, 10:59 PM
أوتومان غير متصل
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 325
إعجاب: 54
تلقى 90 إعجاب على 52 مشاركة
تلقى دعوات الى: 4 موضوع
    #4  
المشاركة الأصلية كتبت بواسطة Mahmoud Nabil 
بارك الله فيك اخي اتومان
لك جزيل الشكر علي هذه المساعدة
بالتوفيق اخى الكريم

01-10-2017, 11:05 PM
Mahmoud Nabil متصل
عضو محترف
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 594
إعجاب: 98
تلقى 101 إعجاب على 88 مشاركة
تلقى دعوات الى: 7 موضوع
    #5  
اخي اتومان الكود يعمل في ملفك المرفق بشكل صحيح لاكن عند استبدال الكود بكود البحث في جميع الملفات التي بداخل ملف Docs يأتيني هذة الرسالة

01-10-2017, 11:06 PM
أوتومان غير متصل
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 325
إعجاب: 54
تلقى 90 إعجاب على 52 مشاركة
تلقى دعوات الى: 4 موضوع
    #6  
جارى اعداد ملف مفتوح

01-10-2017, 11:13 PM
أوتومان غير متصل
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 325
إعجاب: 54
تلقى 90 إعجاب على 52 مشاركة
تلقى دعوات الى: 4 موضوع
    #7  
راجع المرفقات

01-10-2017, 11:27 PM
Mahmoud Nabil متصل
عضو محترف
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 594
إعجاب: 98
تلقى 101 إعجاب على 88 مشاركة
تلقى دعوات الى: 7 موضوع
    #8  
المشاركة الأصلية كتبت بواسطة أوتومان 
جارى اعداد ملف مفتوح
حاولت ان ارفق لك ما اريد في هذا المشروع في المرفقات

01-10-2017, 11:33 PM
Mahmoud Nabil متصل
عضو محترف
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 594
إعجاب: 98
تلقى 101 إعجاب على 88 مشاركة
تلقى دعوات الى: 7 موضوع
    #9  

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

01-10-2017, 11:37 PM
أوتومان غير متصل
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 325
إعجاب: 54
تلقى 90 إعجاب على 52 مشاركة
تلقى دعوات الى: 4 موضوع
    #10  
لا بأس

01-10-2017, 11:52 PM
أوتومان غير متصل
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 325
إعجاب: 54
تلقى 90 إعجاب على 52 مشاركة
تلقى دعوات الى: 4 موضوع
    #11  
ملحوظة أخيرة
نسيت وضع الأمر break

للحصول على نتيجة دقيقة
عدل كود الزر الى

files File.Find(_SourceFolder.."\\AutoPlay\\Docs\\""*.txt"falsefalsenilnil);
for 
a,z in pairs (files) do
result TextFile.ReadToTable(z);
x2 Input.GetText("Input1");
for 
1,#result do
if String.Find(result[i], x21false) ~= -1 then  
Paragraph
.SetText("Paragraph1",  result[i+1]);
break
 
end   
end  
end 
مهم جدا وضع break
لا تصدق ؟؟
جرب البحث عن Tools قبل و بعد تعديل الكود

تحياتى
تصبح على خير

01-10-2017, 11:52 PM
Mahmoud Nabil متصل
عضو محترف
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 594
إعجاب: 98
تلقى 101 إعجاب على 88 مشاركة
تلقى دعوات الى: 7 موضوع
    #12  
المشاركة الأصلية كتبت بواسطة أوتومان 
لا بأس
بارك الله فيك اخي أتومان انت فعلاً مبدع
لاكن هناك مشكلة تواجهني وهي عندما اقوم بالبحث عن كلمة معينة والكلمة دي في السطر الي اسفلها البرنامج بيتلغبط
يعني مثلا هبحث عن كلمة "اتومان"
نفرض ان كلمة "اتومان" مكتوبة في المستند كدا
(أتومان)
(يقوم أتومان بصنع البرامج وبرمجة التطبيقات)

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

02-10-2017, 12:02 AM
أوتومان غير متصل
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 325
إعجاب: 54
تلقى 90 إعجاب على 52 مشاركة
تلقى دعوات الى: 4 موضوع
    #13  
جارى تخطى المشكل بتعديل كود الزر

02-10-2017, 12:08 AM
أوتومان غير متصل
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 325
إعجاب: 54
تلقى 90 إعجاب على 52 مشاركة
تلقى دعوات الى: 4 موضوع
    #14  
حسنا

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

غير كود الزر الى
files File.Find(_SourceFolder.."\\AutoPlay\\Docs\\""*.txt"falsefalsenilnil);
for 
a,z in pairs (files) do
result TextFile.ReadToTable(z);
x2 Input.GetText("Input1");
for 
1,#result,2 do
if String.Find(result[i], x21false) ~= -1 then  
Paragraph
.SetText("Paragraph1",  result[i+1]);
break
 
end   
end  
end 
لتختفى مشكلة تكرار الكلمة فى العنوان و التعريف

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

02-10-2017, 01:04 AM
Mahmoud Nabil متصل
عضو محترف
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 594
إعجاب: 98
تلقى 101 إعجاب على 88 مشاركة
تلقى دعوات الى: 7 موضوع
    #15  
المشاركة الأصلية كتبت بواسطة أوتومان 


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

اخي الكريم انا لم افهم معني هذا (و لكن لن تختفى مشكلة تعديل الحلول و نقلها لمنتديات أخرى
فهذا الداء ليس له دواء أبدا عزيزى !!
ههههههههههه
الى اللقاء)

لاكني قمت بطرح السؤال في منتدي اخر بالفعل ولاكن لم يجبني احد علي سؤالي لاكني لا اقوم بنقل من هذا المنتدي الي منتدي اخر

 


سؤال في بحث عن نص معين واستعداء سطر الموالية

English

Powered by vBulletin® Version
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.