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

**الأمل القادم الأمل القادم** · 07-11-2015, 09:56 PM

موفق بإذن الله ... لك مني أجمل تحية .

عبد الهادي بهاب · 07-11-2015, 10:28 PM

موفق باذن الله

عبد الهادي بهاب · 07-11-2015, 11:03 PM

من حيث المبدا .......في زر مقارنة ازرع هذا الكود و جرب......

كود PHP:


t = RichText.GetText("RichText1", false);
TextFile.WriteFromString("C:\\MyFile.txt", t, false);
r = TextFile.ReadToTable("C:\\MyFile.txt");
t1 = Input.GetText("Input1");
t1 = Input.GetText("Input2");

for i in pairs(r) do
 if r[2] == Input.GetText("Input1") and r[3] == Input.GetText("Input2") then
     Dialog.Message("ÇáäÊíÌÉ","ÇáÌæÇÈ ÕÍíÍ ãÈÑæß Úáíß ËáÇÌÉ æ ÚãÑÉáÔÎÕíä ");
     break
 else
     Dialog.Message("ÇáäÊíÌÉ","ÇÚÏ ÇáãÍÇæáÉ ãä ÌÏíÏ");
     break
 end
 end

سافكر في قضية الاخطاء

**أبو زكريا أبو زكريا** · 08-11-2015, 05:35 AM

شكراً لك أخي الكريم

يظهر لدي رسالة عدم التوافق سواء تساوت النصوص أم اختلفت مع العلم أنني غيرت مصدر الملفات النصية

**ثامر أبو بلقيس ثامر أبو بلقيس** · 08-11-2015, 12:59 PM

بالتوفيق

**ثامر أبو بلقيس ثامر أبو بلقيس** · 08-11-2015, 06:29 PM

حاولت الاجابة لكن سأقول السؤال صعب عني موفق

**أبو زكريا أبو زكريا** · 08-11-2015, 11:46 PM

شكراً أخي اقلي
وشكراً أخي ثامر

أجريت تعديلاً فعمل الكود بنجاح

بقي موضوع تحديد الأخطاء في النصوص أرجو أن ييسر الله حلها

**ثامر أبو بلقيس ثامر أبو بلقيس** · 09-11-2015, 08:41 PM

السلام عليكم ورحمة الله وبركاته
لدي نص في RichText1 متعدد الاسطر
و لدي Input1 مكتوب فيه جملة

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

على ان تتم المقارنة هنا كما قلت مع جملة الانبوت و السطر الاول في RichText1

انطلاقا منه عدل حسب مشروعك ولما لا نقرا حلولا اسرع و اسهل

كود PHP:


result = RichText.GetLine("RichText1", 1);
my_table = {};
result2 = String.Replace(RichText.GetText("RichText1", false), " ", "ثامر2014", true);
Y=Input.GetText("Input1");
b = ""
h =""
for w in string.gmatch (Input.GetText("Input1"), "%S+") do
tbSearchResult = RichText.FindText("RichText1",w, 1, #result+1, false, false);
if not (tbSearchResult) then
b=b..w.."----------------الكلمة ليست من مفردات النص الاصلي او غير متناسبة ترتيبا".."\r\n"
end
end
-----------------------------------------------------
for token in string.gmatch(result2, "[^%s]+") do
e = #token/#token 
Table.Insert(my_table, e, token);
e=e+1
belkiss =1+#(my_table)
end
FF=my_table[belkiss-1]
X = String.Replace(FF, "ثامر2014", " ", true);
------------------------------------------------------
 for w2 in string.gmatch (X, "%S+") do
 result = String.Find(Y, w2, 1, false);
if  result == -1 then
h=h.."ما كتبت يفتقد للمفردة".."----------------"..w2.."\r\n"
 end
end 
 Dialog.Message("هاااااام", h..b);

**ربيع ربيع** · 09-11-2015, 11:25 PM

السلام عليكم ورحمة الله وبركاته
كلمات السطر من RichText1 مصفوفة
كلمات Input1 مصفوفة
بابعاد تقاطعهما تنتج المفردات المشتملة للاخطاء

اي العناصر المتواجدة في المساحة ذات اللون الاحمر

**أبو زكريا أبو زكريا** · 11-11-2015, 10:32 PM

شكراً جزيلاً من الأعماق لأخي الفاضل ثامر

وشكراً جزيلاً لأخي ربيع

لدي إشكال وهو

الرسالة حينما تكون الجملة سليمة من الأخطاء تظهر الرسالة فارغة

لماذا لا تظهر رسالة تؤكد مطابقة الجملة ؟

وأريد أيضاً أمراً بالانتقال إلى سطر جديد للمقارنة بعد كتابة جملة جديدة في صندوق النص

وسؤال آخر
كيف أستطيع معرفة عدد الأسطر في ملف نصي مثل (txetfile) أو (richtxet)

وهل هناك طريقة لإزالة جميع المسافات الزائدة من الجمل .؟

آسف لكثرة الأسئلة ولكن لطيبتكم طمعنا في الاستفادة من خبرتكم

أخوكم
أبو زكريا

**ربيع ربيع** · 11-11-2015, 10:44 PM

كيف أستطيع معرفة عدد الأسطر في ملف نصي مثل (txetfile)

كود PHP:


rabie= TextFile.ReadToTable("AutoPlay\\Docs\\1.txt")

 Dialog.Message("Notice",Table.Count(rabie));

او

كود PHP:


rabie= TextFile.ReadToTable("AutoPlay\\Docs\\1.txt")

 Dialog.Message("Notice",#rabie);

نفس الناتج

**ربيع ربيع** · 11-11-2015, 10:53 PM

كيف أستطيع معرفة عدد الأسطر في ملف نصي مثل (richtxet)

كود PHP:


 Search = RichText.GetText("RichText1", false);

Line = 1;

Position = 1;

while (true) do

    local Found = String.Find(Search, "\r\n", Position, false);

    if (Found ~= -1) then

        Line = Line + 1;

        Position = Found + 1;

    else

        break;

    end

end

 Dialog.Message("Notice", Line);

**ربيع ربيع** · 11-11-2015, 10:55 PM

وهل هناك طريقة لإزالة جميع المسافات الزائدة من الجمل

وضح هل فراغات الاسطر

هل كل الفراغات حتى الفراغات التي تشوه المفردة

وضح لان هناك ازالة غير عملية و لا يمكن تطبيقها

**ربيع ربيع** · 11-11-2015, 11:08 PM

الرسالة حينما تكون الجملة سليمة من الأخطاء تظهر الرسالة فارغة

لماذا لا تظهر رسالة تؤكد مطابقة الجملة ؟

كود PHP:


result = RichText.GetLine("RichText1", 1);

my_table = {};

result2 = String.Replace(RichText.GetText("RichText1", false), " ", "ثامر2014", true);

Y=Input.GetText("Input1");

b = ""

h =""

for w in string.gmatch (Input.GetText("Input1"), "%S+") do

tbSearchResult = RichText.FindText("RichText1",w, 1, #result+1, false, false);

if not (tbSearchResult) then

b=b..w.."----------------الكلمة ليست من مفردات النص الاصلي او غير متناسبة ترتيبا".."\r\n"

end

end

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

for token in string.gmatch(result2, "[^%s]+") do

e = #token/#token 

Table.Insert(my_table, e, token);

e=e+1

belkiss =1+#(my_table)

end

FF=my_table[belkiss-1]

X = String.Replace(FF, "ثامر2014", " ", true);

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

 for w2 in string.gmatch (X, "%S+") do

 result = String.Find(Y, w2, 1, false);

if  result == -1 then

h=h.."ما كتبت يفتقد للمفردة".."----------------"..w2.."\r\n"

 end

end 

if h..b == "" then

 Dialog.Message("Notice", "تطابق");



else

 Dialog.Message("هاااااام", h..b);  

end

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

هل يمكن مقارنة نص بنص آخر ومعرفة الأخطاء ؟

هل يمكن مقارنة نص بنص آخر ومعرفة الأخطاء ؟

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك