تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب من ذوي الخبرة جزاكم الله كل خير
#1
السلام عليكم ورحمة الله وبركاته

اخواني ذوي الخبرة في البرمجة

محتاج برنامج مقارنة عمله كالتالي

يكون في البرنامج ثلاثة تكست 1 2 3

فمثلا كان موجودا في التكست رقم 1 عدة أسماء مختلفة على سبيل المثال محمد؛ أحمد؛ خليل ؛عمر وهكذا بشكل عمودي

وايضا في نفس الوقت كان موجودا في تكست رقم 2 عدة أسماء مثلا أحمد؛ سليمان؛ خليل أيضا بشكل عمودي

عند الضغط على على الكوماند يخرج في تكست رقم ثلاثة الاسماء الجديدة المختلفة عن تكست رقم 2 وهي محمد ؛ عمر ؛بشكل عمودي

اتمنى من اخواني مساعدتي ولكم جزيل الشكر والامتنان
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

- هذا هو الكود :

كود :
Private Sub Command1_Click()

Dim zNames1() As String
Dim zNames2() As String

zNames1 = Split(Trim$(Text1.Text), vbCrLf)
zNames2 = Split(Trim$(Text2.Text), vbCrLf)

If UBound(zNames1) > -1 And UBound(zNames2) > -1 Then

   Dim I, N As Integer
  
   Text3.Text = ""
  
   For I = LBound(zNames1) To UBound(zNames1)
  
       For N = LBound(zNames2) To UBound(zNames2)
           If Trim$(zNames1(I)) = Trim$(zNames2(N)) Then
              Exit For
           Else
              If N = UBound(zNames2) Then
                 Text3.Text = Text3.Text & Trim$(zNames1(I)) & vbNewLine
              End If
           End If
       Next
      
   Next
      
End If

End Sub

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#3
بارك الله فيك يا أخي وزادك من علم الدين والدنيا
نعم هو المطلوب
الرد }}}
تم الشكر بواسطة:
#4
كود ممتاز شكرا لكم
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم...

إذا كنت تقوم بهذا الأمر عدة مرات في برنامجك فربما تفيدك الوحدة المرفقة (Class Module) باسم TSet و التي تمثل مجموعة أو فئة (التي يمكن إجراء عمليات التقاطع و الاتحاد و الطرح عليها).

1. أضف الوحدة المسماة TSet.cls (في المرفقات) إلى المشروع (يحتوي الكود على توضيحات للعمليات بالعربي).
2. الكود يكون كالتالي:
كود :
Private Sub Command1_Click()
    Dim MySet1 As New TSet
    Dim MySet2 As New TSet
    
    MySet1.SetItemsByArray Split(Text1.Text, vbCrLf)
    MySet2.SetItemsByArray Split(Text2.Text, vbCrLf)

    Text3.Text = MySet1.Subtract(MySet2).AsString(vbCrLf)
    
    Set MySet1 = Nothing
    Set MySet2 = Nothing
End Sub

نرجو الاستفادة و السلام.


الملفات المرفقة
.rar   TSet.rar (الحجم : 2.18 ك ب / التحميلات : 41)
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#6
بارك الله فيك أخي ناجي
لقد قام أخي VB_Coder جزاه الله كل خير بالواجب
نسأل الله ان يزيدكم من علمه
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار بارك الله فيكم افيدوني اي سفن 2 189 26-12-23, 05:15 PM
آخر رد: اي سفن
  [كود] التعديل على هذا الكود جزاكم الله خيراً عبد الرحمن على 15 5,318 09-05-17, 06:56 PM
آخر رد: عبد الرحمن على
  [كود] مطلوب الاكواد التالية حفظكم الله .. pro-ye 5 2,656 21-06-16, 03:04 AM
آخر رد: Amir_Alzubidy
  [سؤال] اسئله في غاية الاهميه بارك الله فيكم الخثعمي 1 1,975 26-04-15, 01:53 PM
آخر رد: abulayth
  مساعدة من لديهم الخبرة فتح فورم جديد alsindbada 1 1,929 25-10-14, 11:57 PM
آخر رد: تركي الحلواني
  الله يوفقكم ساعدوني ، ابغى ابرمج برنامج .. صغير Lover programming 6 3,121 21-08-13, 01:05 PM
آخر رد: ahmed3d
  تعديل على الكود جزاكم الله الجنه samee119485r 16 5,731 14-06-13, 02:01 PM
آخر رد: samee119485r
  طلب كود الله يجزيكم الخير فـ ـيـ ـصـ ـل 5 2,549 24-05-13, 12:37 PM
آخر رد: عبد الله190
  طلب مساعدة من اعضاء المنتدى جزاكم الله خيرا AHMED213 0 1,511 19-05-13, 10:30 PM
آخر رد: AHMED213
  سؤال لذو الخبرة فى البرمجة Originalprogrammer 1 1,676 07-04-13, 03:18 AM
آخر رد: VB_Coder

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


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