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

[Mahmoud Nabil]

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

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

if (String.Find(x1, x2, s, false) then

Input.SetText("Input2", X);

else

Dialog.Message("Notice", "eroo", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end

[ثامر أبو بلقيس]

بافتراض أن معيار البحث كلمة thameur
k = File.Find("AutoPlay\\Docs", "*.txt", false, false, nil, nil);
for b = 1,#k do
result = TextFile.ReadToTable(k[b]);
for i,n in pairs(result) do
result2 = String.Find(n, "thameur", 1, false);
if result2 ~= -1 then
Dialog.Message('', 'TextFile: '..k[b].."\r\n".."Line: "..i.."\r\n"..'Text: '..n);
end
end
end

[ثامر أبو بلقيس]

المتغير k[b] معبر عن الملف
المتغير i رقم السطر الذي وجدت فيه المفردة محل البحث
المتغير n نص السطر المتضمن للمفردة لمبحوث عنها

موفق

[ثامر أبو بلقيس]

واذا قصدت بكلمة (تحتو) هي الذي يليه
k = File.Find("AutoPlay\\Docs", "*.txt", false, false, nil, nil);
for b = 1,#k do
result = TextFile.ReadToTable(k[b]);
for i,n in pairs(result) do
result2 = String.Find(n, "thameur", 1, false);
if result2 ~= -1 then
Dialog.Message('', 'TextFile: '..k[b].."\r\n".."Line: "..i.."\r\n"..'Text: '..result[i+1]);
end
end
end

[ثامر أبو بلقيس]

أخبرك أحد هم بأنني سرقت ردوده


نعم نقلته لك هنا حتى لا تضيع تلك المجهودات الجبارة
وحتى لا يبق سؤالك بدون رد ( حتى لا نقع في إحراج عدم القدرة على الرد )

موفقين و نعتذر لكم و نعدكم بأن لا نسرق ردودكم مرة ثانية

[Mahmoud Nabil]

أخبرك أحد هم بأنني سرقت ردوده


نعم نقلته لك هنا حتى لا تضيع تلك المجهودات الجبارة
وحتى لا يبق سؤالك بدون رد ( حتى لا نقع في إحراج عدم القدرة على الرد )

موفقين و نعتذر لكم و نعدكم بأن لا نسرق ردودكم مرة ثانية

اها لقد فهمت الأن ما سبب المشكلة لاكن بارك الله فيك علي ردك علي ايضاً :abc_139:
وفي النهاية جميعنا عرب اهم شئ ان نفيد بعضنا لبعض :abc_022:
واسف علي هذه المشكلة لان كان لا يجب علي طرح موضوع في المنتديان في وقت واحد :abc_070:

[ثامر أبو بلقيس]

اها لقد فهمت الأن ما سبب المشكلة لاكن بارك الله فيك علي ردك علي ايضاً :abc_139:
وفي النهاية جميعنا عرب اهم شئ ان نفيد بعضنا لبعض :abc_022:
واسف علي هذه المشكلة لان كان لا يجب علي طرح موضوع في المنتديان في وقت واحد :abc_070:

لا عليك أخي الكريم أنت بين أهلك كما أنت هناك ومرحبا بك :abc_139:

[عبود عبود]

أخبرك أحد هم بأنني سرقت ردوده


نعم نقلته لك هنا حتى لا تضيع تلك المجهودات الجبارة
وحتى لا يبق سؤالك بدون رد ( حتى لا نقع في إحراج عدم القدرة على الرد )

موفقين و نعتذر لكم و نعدكم بأن لا نسرق ردودكم مرة ثانية

بصماتك على الأقل هنا تشهد من أنت أخى العزيز " أنت قيمة و قامة " من ليس متأكدا من ذلك عليه البحث أولا

تحياتى لك أخى أبوبلقيس وفى أغلب الأحوال تكون أستاذى

:abc_152:

[Mahmoud Nabil]

لا عليك أخي الكريم أنت بين أهلك كما أنت هناك ومرحبا بك :abc_139:

بارك الله فيك اخي ثامر :abc_114: