الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عندي فكرة و أحتاج برمجتها

بدأه شهودة في 13 يناير 2009 · 3 رد · 575 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

:blush:

لدي فكرة وأريد برمجتها لكني احترت ....

لذلك رأيت أن أعرض عليكم الفكرة وقد يساعدني احدكم في تنفيذها بكود بسيط

انا لدي جملتين واريد المقارنة بينهما ....في الأولى الجملة الأصلية أما الثانية فهي ماسيقارن بالأولى

أريد أن استخرج جميع الجمل التي لم تكتب في الجملة الاولى (وهذه سهلة ) ولكن أريد عندما يدخل المستخدم جملة بها أخطاء إملائية أن يدلني على ذلك الخطأ

سأضرب مثال لتوضيح الفكرة:

النص الأصلي: ذهب أحمد إلى المدرسة المجاورة .

النص المُقارن:دهب إلى المدرسة مجاورة.

أريد من البرنامج استخراج كلمة ذهب

وأن يعرف بأن كلمة أحمد مفقودة

وكلمة مجاورة ينقصها ال التعريف حيث الكلمة الأصلية لها هي المجاورة.

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

لكن جملة مجاورة كيف يعرف البرنامج بأن الكلمة التي قارنتها بها هي المجاورة وبذلك تعتبر خطأ لانها خالية من ال التعريف .

#2

السلام عليكــم ورحمـة الله وبركاتــه


Dim y() As String
Dim mm As String

xx = "ÐåÈ ÃÍãÏ Åáì ÇáãÏÑÓÉ ÇáãÌÇæÑÉ æßÇä íÌáÓ ãÚ ÕÏíÞå Úáì Ýí ÇáãÞÚÏ ÇáÇæá"

yy = "ÐåÈ Åáì ÇáãÏÑÓÉ ãÌÇæÑÉ æßÇä ÕÏíÞå Úáì Ýí ÇáãÞÚÏ ÇáÇæá"
x() = Split(xx, " ")

y() = Split(yy, " ")
a = UBound(x)
c = UBound(y)
n = 0
For i = 0 To a
For j = 0 To c
If x(i) = y(j) Then
b = 1
Exit For
End If
Next j
If b <> 1 Then mm = mm & i
b = 0
Next i
Dim x() As String

هدا الكود يعيد لك الاماكن المفقودة والغير المتاشبهة بين النصين وبمعرفة الاماكن المختلفة بين الجملتين يمكن تصحيح الجملة الناقصة

#3

شكرا جزيلا أخي

لكن طبقت الكود ولم يعطي اي ناتج؟؟

#4

الكود يعيد قيم الاماكن المختلفة فا في الكود السايق تكون m=1467

اي ان الكلمة رقم 1 والكلمة رقم 4 و6 و 7 من الجملة الاصلية اما تكون غير موجودة في الجملة الثانية او غير متاطبقة

والان باقي الكود عليك فاعتقد الكود الاول حل مشكلتكي

ملاحضة الجملة الاولي في الكود السابق هي

xx = "ذهب أحمد إلى المدرسة المجاورة وكان يجلس مع صديقه على في المقعد الاول"

والجملة الثانية هي

yy = "ذهب إلى المدرسة مجاورة وكان صديقه على في المقعد الاول"

مواضيع مشابهة