رانيا حسن
07-01-2017, 08:43 AM
السلام عليكم ورحمة الله وبركاته
الى اعضاء المنتدى الطيبون
ارجو توضيح هذا الكود المميز للاخ و الاستاذ ثامر ابو بلقيس المحترم الذي وضع مثال عن البحث داخل ملفات التكست المتعددة لعد اقراص
الكود هو
db = ""
kiss = Input.GetText("Input1");
for x =1,4 do
txt=TextFile.ReadToTable(_SourceFolder.."\\AutoPlay\\Docs\\"..x..".txt");
if txt ~= nil then
for i,y in pairs(txt) do
bel= String.Compare(kiss,y );
if bel== 0 then
db=db.."íãßäß ÇíÌÇÏ ÇáßÊÇÈ Ýí ÇáÞÑÕ Ç".. i.."\t\t".."DVD"..x.."\r\n"
end;end;end;end
Dialog.Message("ÇáãßÊÈÉ ÇáÇÞÊÕÇÏíÉ ÇáÔÇãáÉ /ÈÑãÌÉ ÇáãßÊÈÉ ÇáÑÞãíÉ",db);
اريد تعديل بسيط وهو عند عدم وجود كلمة البحث ارجو ان تظهر رسالة نفيد بان كلمة البحث غير موجودة في هذا القرص
وشكرا
الى اعضاء المنتدى الطيبون
ارجو توضيح هذا الكود المميز للاخ و الاستاذ ثامر ابو بلقيس المحترم الذي وضع مثال عن البحث داخل ملفات التكست المتعددة لعد اقراص
الكود هو
db = ""
kiss = Input.GetText("Input1");
for x =1,4 do
txt=TextFile.ReadToTable(_SourceFolder.."\\AutoPlay\\Docs\\"..x..".txt");
if txt ~= nil then
for i,y in pairs(txt) do
bel= String.Compare(kiss,y );
if bel== 0 then
db=db.."íãßäß ÇíÌÇÏ ÇáßÊÇÈ Ýí ÇáÞÑÕ Ç".. i.."\t\t".."DVD"..x.."\r\n"
end;end;end;end
Dialog.Message("ÇáãßÊÈÉ ÇáÇÞÊÕÇÏíÉ ÇáÔÇãáÉ /ÈÑãÌÉ ÇáãßÊÈÉ ÇáÑÞãíÉ",db);
اريد تعديل بسيط وهو عند عدم وجود كلمة البحث ارجو ان تظهر رسالة نفيد بان كلمة البحث غير موجودة في هذا القرص
وشكرا