+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مقارنة نصين وايحاد الفرق بينهما (/showthread.php?tid=10028)
مقارنة نصين وايحاد الفرق بينهما - barakascap - 12-08-13
السلام عليكم ورحمة الله وبركاته
لدى تكست بوكس 1 "e,4,8,h,ss"
ونكست بوكس 2 "8,6,g,e,xx"
اريد ان ايجاد ماهو موجود فى تكست بوكس 1 وليس فى تكست بوكس 2 وكذا ماهو موجود فى 2 وليس فى و 1
وكل عام وانتم بخير
مقارنة نصين وايحاد الفرق بينهما - أبو أحمد الحربي - 12-08-13
وعليكم السلام ورحمة الله وبركاته
تفضل هذا الكود
PHP كود :
Imports System.Text.RegularExpressions
في الزر الاول وهو "الموجد في 1 وليس موجود في 2"
PHP كود :
Dim T As MatchCollection
Dim Txt As String = ""
For Each x As String In TextBox1.Text.Split(",")
T = Regex.Matches(TextBox2.Text, x)
If T.Count = 0 Then Txt &= x & Space(3)
Next
MsgBox(Txt)
وفي الثاني "الموجود في 2 وليس موجود في 1"
PHP كود :
Dim T As MatchCollection
Dim Txt As String = ""
For Each x As String In TextBox2.Text.Split(",")
T = Regex.Matches(TextBox1.Text, x)
If T.Count = 0 Then Txt &= x & Space(3)
Next
MsgBox(Txt)