كود تدقيق الكلمات

هل من مجيب...؟؟....أتمنى أن يساعدني أحد في كود فكرة المقارنة على الأقل...

وجزاكم الله خير.....شكرا...

اسف لانى لم ار موضوعك إلا اليوم على كل لمقارنة سلسه نصيه باخرى فانت ستستخدم دالة StrComp و هذه مقاله توضح عمل الداله

Comparing strings

شكرا يا أخ طارق إبراهيم ...

ولكن لو سمحت المقالة لا تفتح (اللينك لا يعمل كي أقرأ المقالة) أتمنى وضعه مرة أخرى وشكرا...

أختكم bonjoue101

شكرا شكرا...جزيلا اشتغل اللينك...

السلام عليكم

جرب هذا الكود ، ويجب ان تكون text1 , text2 في الفورم .

Dim arry1, arry2, tt, st As Variant
Dim i As Integer
'دالة سبلت تقوم بتقسيم سلسلة حرفية الى مجموعة كلمات وتضعهم في مصفوفة
'ويقص السلسلة اينما وجد فراغ اي حسب البارمتر الثاني
arry1 = Split(Text1.Text, " ", -1, 1)
arry2 = Split(Text2.Text, " ", -1, 1)
'المتغيرين التاليين يحتويان على السلسلة كامة
st = Text2.Text
tt = Text2.Text

i = 0
While arry2(i) <> ""
    If arry1(i) <> arry2(i) Then
        'يقطع الكلمة الخطاء
        tt = Mid(tt, Len(arry2(i - 1)) + 2, Len(arry2(i)))
        'يحذف الكلمة الخطأ مع الفراغ الذي بعدها
        st = Replace(st, tt & " ", "")
    End If
    i = i + 1
Wend
Text2.Text = st