السلام عليكم اخي الكريم
انشأت لك هذا المثال حيث يعطيك عدد الكلمات المتشابهه بين النصين
وبما ان النسبة المئوية لايمكن تحقيقها الا اذا كان عدد كلمات النصين متساويا
لذلك لجأت الى نظام عدد الكلمات المشتركة بينهما
أرجو ان تستفيد من هذا المثال دمت بخير
شكرا ابراهيم
قمت بتحميل مشروعك ونسخت الكود للتسهيل سأقوم بوضعه هنا:
كود :
Dim splite As String = TextBox3.Text
If TextBox3.Text.Trim = "" Then
splite = " "
Else
splite = TextBox3.Text.Trim
End If
Dim xx() As String = TextBox1.Text.Split(splite)
Dim RR() As String = TextBox2.Text.Split(splite)
Dim f As Integer = 0
Label1.Text = xx.Count
Label2.Text = RR.Count
For Each x As String In xx
If RR.Contains(x) Then
f += 1
Label3.Text = "عدد الكلمات المتشابهه " & f
End If
Next
