منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مقارنة ملفيين نصيين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24398)



مقارنة ملفيين نصيين - Salma Soliman - 02-04-18

السلام عليكم 
أبحث عن كود للمقارنة بين ملفين نصيين بحيث يتم وضع كل سطر من الملف في مصفوفة 
ومن ثم مقارنة المصفوفتين وبعدها الانتقال إلى السطر التالي إلى نهاية الملف


RE: مقارنة ملفيين نصيين - محمود بكرى - 02-04-18

ما هو الغرض من ذلك لمعرفة ان الملفين مختلفين ام لماذا حيث ممكن تستخدمي اومر batch_script  وبالخص الامر comp

This batch command compares 2 files based on the file size

Syntax

كود :
COMP [sourceA] [sourceB]



RE: مقارنة ملفيين نصيين - Salma Soliman - 02-04-18

(02-04-18, 02:03 PM)محمود بكرى كتب : ما هو الغرض من ذلك لمعرفة ان الملفين مختلفين ام لماذا حيث ممكن تستخدمي اومر batch_script  وبالخص الامر comp

This batch command compares 2 files based on the file size

Syntax

كود :
COMP [sourceA] [sourceB]
 مقارنة السطر الاول من الملف الاول بالسطر الاول في الملف التاني وهكذا


RE: مقارنة ملفيين نصيين - silverlight - 02-04-18

فيه أكثر من أسلوب للمقارنة
مثلا تقوم بقراءة الملفات و تحول كل منهما الي مصفوفة بايت ثم تقارن بين المصفوفات
حل أخر تقرأ الملفات و تحول كل ملف الي مصفوفة سطور ثم تقارت المصفوفات ايضا
في كلتا الحالات فكرة كتابة الكود واحدة

الحل الأول

PHP كود :
       Dim firstFile As String ".\File1.txt"
 
       Dim secondFile As String ".\File2.txt"

 
       Dim a As Byte() = IO.File.ReadAllBytes(firstFile)
 
       Dim b As Byte() = IO.File.ReadAllBytes(secondFile)

 
       Dim result As Boolean False
        If a Is Nothing AndAlso b Is Nothing Then
            result 
True
        ElseIf a IsNot Nothing AndAlso b IsNot Nothing AndAlso a
.Length b.Length Then
            result 
True
            For i 
As Integer 0 To a.Length 1
                If a
(i) <> b(iThen
                    result 
False
                    Exit 
For
 
               End If
 
           Next
        End 
If 

حل أخر

PHP كود :
       Dim firstFile As String ".\File1.txt"
 
       Dim secondFile As String ".\File2.txt"

 
       Dim c As String() = IO.File.ReadAllLines(firstFile)
 
       Dim d As String() = IO.File.ReadAllLines(secondFile)

 
       Dim result As Boolean False
        If c Is Nothing AndAlso d Is Nothing Then
            result 
True
        ElseIf c IsNot Nothing AndAlso d IsNot Nothing AndAlso c
.Length d.Length Then
            result 
True
            For i 
As Integer 0 To c.Length 1
                If c
(i) <> d(iThen
                    result 
False
                    Exit 
For
 
               End If
 
           Next
        End 
If 



RE: مقارنة ملفيين نصيين - Salma Soliman - 03-04-18

(02-04-18, 03:23 PM)silverlight كتب : فيه أكثر من أسلوب للمقارنة
مثلا تقوم بقراءة الملفات و تحول كل منهما الي مصفوفة بايت ثم تقارن بين المصفوفات
حل أخر تقرأ الملفات و تحول كل ملف الي مصفوفة سطور ثم تقارت المصفوفات ايضا
في كلتا الحالات فكرة كتابة الكود واحدة

الحل الأول

PHP كود :
       Dim firstFile As String ".\File1.txt"
 
       Dim secondFile As String ".\File2.txt"

 
       Dim a As Byte() = IO.File.ReadAllBytes(firstFile)
 
       Dim b As Byte() = IO.File.ReadAllBytes(secondFile)

 
       Dim result As Boolean False
        If a Is Nothing AndAlso b Is Nothing Then
            result 
True
        ElseIf a IsNot Nothing AndAlso b IsNot Nothing AndAlso a
.Length b.Length Then
            result 
True
            For i 
As Integer 0 To a.Length 1
                If a
(i) <> b(iThen
                    result 
False
                    Exit 
For
 
               End If
 
           Next
        End 
If 

حل أخر

PHP كود :
       Dim firstFile As String ".\File1.txt"
 
       Dim secondFile As String ".\File2.txt"

 
       Dim c As String() = IO.File.ReadAllLines(firstFile)
 
       Dim d As String() = IO.File.ReadAllLines(secondFile)

 
       Dim result As Boolean False
        If c Is Nothing AndAlso d Is Nothing Then
            result 
True
        ElseIf c IsNot Nothing AndAlso d IsNot Nothing AndAlso c
.Length d.Length Then
            result 
True
            For i 
As Integer 0 To c.Length 1
                If c
(i) <> d(iThen
                    result 
False
                    Exit 
For
 
               End If
 
           Next
        End 
If 
بارك الله فيك