تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] جلب نسبة التشابه بين نصين
#1
Exclamation 
مرحبا  Heart
عندي مشروع لازم اكمله   Dodgy
فكرة المشروع جلب نسبة التشابه بين نصين  Idea
ويحسبها في النسبة المئوية  Big Grin
منتظركم  Heart

NO ONE Dodgy
هم يسرقون والقانون كتب لنا...

الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم اخي الكريم
انشأت لك هذا المثال حيث يعطيك عدد الكلمات المتشابهه بين النصين
وبما ان النسبة المئوية لايمكن تحقيقها الا اذا كان عدد كلمات النصين متساويا 
لذلك لجأت الى نظام عدد الكلمات المشتركة بينهما
 أرجو ان تستفيد من هذا المثال دمت بخير


الملفات المرفقة
.rar   compar 2Text.rar (الحجم : 108.87 ك ب / التحميلات : 30)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: princelovelorn , thevirus , DK-x
#3
شكرا ابراهيم
قمت بتحميل مشروعك ونسخت الكود للتسهيل سأقوم بوضعه هنا:
كود :
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
لا شيء مستحيل
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#4
(10-02-19, 06:34 PM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
انشأت لك هذا المثال حيث يعطيك عدد الكلمات...

(10-02-19, 06:54 PM)thevirus كتب : شكرا ابراهيم
قمت بتحميل مشروعك ونسخت الكود...
Heart مشكورين يا شباب ما قصرتوا Heart
هم يسرقون والقانون كتب لنا...

الرد }}}
تم الشكر بواسطة: ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم