+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] جلب نسبة التشابه بين نصين (/showthread.php?tid=28550)
جلب نسبة التشابه بين نصين - DK-x - 10-02-19
مرحبا 
عندي مشروع لازم اكمله
فكرة المشروع جلب نسبة التشابه بين نصين
ويحسبها في النسبة المئوية
منتظركم
عندي مشروع لازم اكمله
فكرة المشروع جلب نسبة التشابه بين نصين
ويحسبها في النسبة المئوية
منتظركم
NO ONE
RE: جلب نسبة التشابه بين نصين - ابراهيم ايبو - 10-02-19
السلام عليكم اخي الكريم
انشأت لك هذا المثال حيث يعطيك عدد الكلمات المتشابهه بين النصين
وبما ان النسبة المئوية لايمكن تحقيقها الا اذا كان عدد كلمات النصين متساويا
لذلك لجأت الى نظام عدد الكلمات المشتركة بينهما
أرجو ان تستفيد من هذا المثال دمت بخير
RE: جلب نسبة التشابه بين نصين - thevirus - 10-02-19
شكرا ابراهيم
قمت بتحميل مشروعك ونسخت الكود للتسهيل سأقوم بوضعه هنا:
كود :
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
NextRE: جلب نسبة التشابه بين نصين - DK-x - 11-02-19
(10-02-19, 06:34 PM)ابراهيم ايبو كتب :السلام عليكم اخي الكريمانشأت لك هذا المثال حيث يعطيك عدد الكلمات...
(10-02-19, 06:54 PM)thevirus كتب : شكرا ابراهيم
قمت بتحميل مشروعك ونسخت الكود...
مشكورين يا شباب ما قصرتوا