+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24490)
طباعة ناتج المقارنة - Salma Soliman - 10-04-18
كود :
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 SubRE: طباعة ناتج المقارنة - محمد كريّم - 10-04-18
كود :
If words_firstFile(i) = words_secondFile(j) Then
counter = counter + 1
textbox1.Text += words_firstFile(i) + "\n"
End IfRE: طباعة ناتج المقارنة - Salma Soliman - 10-04-18
(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 يخرج في الطباعة بدلا من القفز إلى سطر جديد