تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طباعة ناتج المقارنة
#1
Information 
كود :
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim firstFile As String = "D:\aaa.txt"
       Dim secondFile As String = "D:\bbb.txt"

       Dim firstFile_st As String = IO.File.ReadAllText(firstFile)
       Dim secondFile_st As String = IO.File.ReadAllText(secondFile)

       Dim words_firstFile() As String
       Dim words_secondFile() As String
       'Dim counter_word() As Integer

       words_firstFile = Split(firstFile_st, " ")
       words_secondFile = Split(secondFile_st, " ")

       Dim counter As Integer = 0

       For i As Integer = 0 To words_firstFile.Length - 1
           For j As Integer = 0 To words_secondFile.Length - 1
               If words_firstFile(i) = words_secondFile(j) Then
                   counter = counter + 1
               End If
           Next
       Next
   End Sub
من المفترض أن هذا الكود يقرأ ملفين ومن ثم يخزن كل ملف في مصفوفة بحيث كل موقع في المصفوفة يحتوى على كلمة ومن بعدها يأخد أول كلمة في المصفوفة الاول ويقارنها مع جميع عناصر المصفوفة التانية بحيث كل ماوجد الكلمة موجود في المصفوفة التانية يزيد العداد 1 على ماأعتقد أن الكود شغال على السابق ولكي أقطع الشك باليقين أحتاج إلى طباعة الكلمة وعدد المرات الموجوده بها جميع محاولاتي تطبع الكلمة الاخير من الملف فقط أريد طباعة على textbox أوLable
الرد }}}
تم الشكر بواسطة:
#2
كود :
If words_firstFile(i) = words_secondFile(j) Then

counter = counter + 1

 textbox1.Text += words_firstFile(i) + "\n"

End If

الرد }}}
تم الشكر بواسطة: Salma Soliman
#3
(10-04-18, 09:38 PM)محمد كريّم كتب :
كود :
If words_firstFile(i) = words_secondFile(j) Then

counter = counter + 1

 textbox1.Text += words_firstFile(i) + "\n"

End If

من المفترض أن يطبع عند كل كلمة عدد مرات تواجد هذه الكلمة في الملف الاخر بالاضافة إلى أن هذا الرمز \n يخرج في الطباعة بدلا من القفز إلى سطر جديد
الرد }}}
تم الشكر بواسطة:



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


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