#1  
قديم 01-10-2017, 08:47 PM
عضو ذهبي
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 803
تلقى دعوات الى: 131 موضوع
تلقى دعوات الى: 131 موضوع
إعجاب: 104
تلقى 164 إعجاب على 140 مشاركة
مستوى التقييم: 27
الصورة الرمزية Mahmoud Nabil
سؤال في بحث عن نص معين واستعداء سطر الموالية



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


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

كود PHP:
x1 TextFile.ReadToString("AutoPlay\\Docs\\File"..s..".txt"
x2 "Memy"

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




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

ان كل الإكتشافات والإختراعات التي نشهدها في الحاضر ، تم الحكم عليها قبل إكتشافها أو إختراعها بأنها : مستحيلة.
المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
طلب طريقه لحجب موقع معين عن عميل معين awad1983 سيرفرات المايكروتك, صفحات هوت سبوت 1 10-03-2018 11:53 AM
سؤال عن كيفية عمل برنامج بحث في موقع معين ببرنامج فيجوال بيسك ؟ المظلوم2 لغات البرمجة 5 09-09-2016 11:04 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
  #2  
قديم 01-10-2017, 09:51 PM
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 334
تلقى دعوات الى: 4 موضوع
تلقى دعوات الى: 4 موضوع
إعجاب: 55
تلقى 99 إعجاب على 56 مشاركة
مستوى التقييم: 12



و عليكم السلام و رحمة الله و بركاته
كود PHP:
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 
راجع المرفقات
موفق

  #3  
قديم 01-10-2017, 10:57 PM
عضو ذهبي
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 803
تلقى دعوات الى: 131 موضوع
تلقى دعوات الى: 131 موضوع
إعجاب: 104
تلقى 164 إعجاب على 140 مشاركة
مستوى التقييم: 27
الصورة الرمزية Mahmoud Nabil



المشاركة الأصلية كتبت بواسطة أوتومان 
و عليكم السلام و رحمة الله و بركاته
كود PHP:
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 
راجع المرفقات
موفق
بارك الله فيك اخي اتومان
لك جزيل الشكر علي هذه المساعدة
  #4  
قديم 01-10-2017, 10:59 PM
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 334
تلقى دعوات الى: 4 موضوع
تلقى دعوات الى: 4 موضوع
إعجاب: 55
تلقى 99 إعجاب على 56 مشاركة
مستوى التقييم: 12



المشاركة الأصلية كتبت بواسطة Mahmoud Nabil 
بارك الله فيك اخي اتومان
لك جزيل الشكر علي هذه المساعدة
بالتوفيق اخى الكريم
  #5  
قديم 01-10-2017, 11:05 PM
عضو ذهبي
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 803
تلقى دعوات الى: 131 موضوع
تلقى دعوات الى: 131 موضوع
إعجاب: 104
تلقى 164 إعجاب على 140 مشاركة
مستوى التقييم: 27
الصورة الرمزية Mahmoud Nabil



اخي اتومان الكود يعمل في ملفك المرفق بشكل صحيح لاكن عند استبدال الكود بكود البحث في جميع الملفات التي بداخل ملف Docs يأتيني هذة الرسالة
  #6  
قديم 01-10-2017, 11:06 PM
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 334
تلقى دعوات الى: 4 موضوع
تلقى دعوات الى: 4 موضوع
إعجاب: 55
تلقى 99 إعجاب على 56 مشاركة
مستوى التقييم: 12



جارى اعداد ملف مفتوح
  #7  
قديم 01-10-2017, 11:13 PM
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 334
تلقى دعوات الى: 4 موضوع
تلقى دعوات الى: 4 موضوع
إعجاب: 55
تلقى 99 إعجاب على 56 مشاركة
مستوى التقييم: 12



راجع المرفقات
  #8  
قديم 01-10-2017, 11:27 PM
عضو ذهبي
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 803
تلقى دعوات الى: 131 موضوع
تلقى دعوات الى: 131 موضوع
إعجاب: 104
تلقى 164 إعجاب على 140 مشاركة
مستوى التقييم: 27
الصورة الرمزية Mahmoud Nabil



المشاركة الأصلية كتبت بواسطة أوتومان 
جارى اعداد ملف مفتوح
حاولت ان ارفق لك ما اريد في هذا المشروع في المرفقات
  #9  
قديم 01-10-2017, 11:33 PM
عضو ذهبي
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 803
تلقى دعوات الى: 131 موضوع
تلقى دعوات الى: 131 موضوع
إعجاب: 104
تلقى 164 إعجاب على 140 مشاركة
مستوى التقييم: 27
الصورة الرمزية Mahmoud Nabil



المشاركة الأصلية كتبت بواسطة أوتومان 
راجع المرفقات
كان هذا عمل رائع وتم تنشيط الفكرة لاكن عندما اقوم بجلب النص في Paragraph يقوم بأعطائي هذة الرسالة بعد ان يقوم بجلب النص لاكن الكود يعمل بشكل جيد لاكني لا اعرف كيف اتخلص من هذه الرساله
  #10  
قديم 01-10-2017, 11:37 PM
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 334
تلقى دعوات الى: 4 موضوع
تلقى دعوات الى: 4 موضوع
إعجاب: 55
تلقى 99 إعجاب على 56 مشاركة
مستوى التقييم: 12



لا بأس
  #11  
قديم 01-10-2017, 11:52 PM
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 334
تلقى دعوات الى: 4 موضوع
تلقى دعوات الى: 4 موضوع
إعجاب: 55
تلقى 99 إعجاب على 56 مشاركة
مستوى التقييم: 12



ملحوظة أخيرة
نسيت وضع الأمر break

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

كود PHP:
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 قبل و بعد تعديل الكود

تحياتى
تصبح على خير
  #12  
قديم 01-10-2017, 11:52 PM
عضو ذهبي
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 803
تلقى دعوات الى: 131 موضوع
تلقى دعوات الى: 131 موضوع
إعجاب: 104
تلقى 164 إعجاب على 140 مشاركة
مستوى التقييم: 27
الصورة الرمزية Mahmoud Nabil



المشاركة الأصلية كتبت بواسطة أوتومان 
لا بأس
بارك الله فيك اخي أتومان انت فعلاً مبدع
لاكن هناك مشكلة تواجهني وهي عندما اقوم بالبحث عن كلمة معينة والكلمة دي في السطر الي اسفلها البرنامج بيتلغبط
يعني مثلا هبحث عن كلمة "اتومان"
نفرض ان كلمة "اتومان" مكتوبة في المستند كدا
(أتومان)
(يقوم أتومان بصنع البرامج وبرمجة التطبيقات)

اذا قمت بالبحث عن اسمك يقوم البرنامج بأستعداء نص اخر وهذا لتكرار الأسم مرتين فهل يمكن حل هذة المشكلة
  #13  
قديم 02-10-2017, 12:02 AM
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 334
تلقى دعوات الى: 4 موضوع
تلقى دعوات الى: 4 موضوع
إعجاب: 55
تلقى 99 إعجاب على 56 مشاركة
مستوى التقييم: 12



جارى تخطى المشكل بتعديل كود الزر
  #14  
قديم 02-10-2017, 12:08 AM
عضو مميز
رقم العضوية: 518407
تاريخ التسجيل: Nov 2014
المشاركات: 334
تلقى دعوات الى: 4 موضوع
تلقى دعوات الى: 4 موضوع
إعجاب: 55
تلقى 99 إعجاب على 56 مشاركة
مستوى التقييم: 12



حسنا

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

غير كود الزر الى
كود PHP:
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 
لتختفى مشكلة تكرار الكلمة فى العنوان و التعريف

و لكن أبدا لن تختفى هواية تعديل الحلول و نقلها لمنتديات أخرى بواسطة اعضاء من دولة شقيقة
فهذا الداء ليس له دواء أبدا عزيزى !!
تحية لهؤلاء الأعضاء
و تحية لكل الدول الشقيقة
ههههههههههه
الى اللقاء
  #15  
قديم 02-10-2017, 01:04 AM
عضو ذهبي
رقم العضوية: 895497
تاريخ التسجيل: Jan 2017
المشاركات: 803
تلقى دعوات الى: 131 موضوع
تلقى دعوات الى: 131 موضوع
إعجاب: 104
تلقى 164 إعجاب على 140 مشاركة
مستوى التقييم: 27
الصورة الرمزية Mahmoud Nabil



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


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

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

لاكني قمت بطرح السؤال في منتدي اخر بالفعل ولاكن لم يجبني احد علي سؤالي لاكني لا اقوم بنقل من هذا المنتدي الي منتدي اخر
Powered by vBulletin® Version
Copyright ©2000 - 2018, 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.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.
DamasGate English