Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


Russo,
Если я правильно понял задачу, то у меня так получилось:
Код: Выделить весь код
#include <File.au3>
#include <Array.au3>

Dim $aArray1, $aArray2, $aArray3, $aArray4

$file1 = "1.txt"
$file2 = "2.txt"
$file3 = "3.txt"
$file4 = "4.txt"

_FileReadToArray($file1, $aArray1)
_FileReadToArray($file2, $aArray2)
_FileReadToArray($file3, $aArray3)
_FileReadToArray($file4, $aArray4)

For $i = 1 To UBound($aArray1) - 1
    $error2 = _ArraySearch($aArray2, $aArray1[$i])
    If $error2 = -1 Then
        MsgBox(48, $file1 & " строка " & $i, "Данные файла " & $file2 & " в строке № " & $i _
                 & " не совпадают", 5)
    Else
        MsgBox(64, $file1 & " строка " & $i, "Данные файла " & $file2 & " в строке № " & $i _
                 & " совпадают", 5)
    EndIf
    $error3 = _ArraySearch($aArray3, $aArray1[$i])
    If $error3 = -1 Then
        MsgBox(48, $file1 & " строка " & $i, "Данные файла " & $file3 & " в строке № " & $i _
                 & " не совпадают", 5)
    Else
        MsgBox(64, $file1 & " строка " & $i, "Данные файла " & $file3 & " в строке № " & $i _
                 & " совпадают", 5)
    EndIf
    $error4 = _ArraySearch($aArray4, $aArray1[$i])
    If $error4 = -1 Then
        MsgBox(48, $file1 & " строка " & $i, "Данные файла " & $file4 & " в строке № " & $i _
                 & " не совпадают", 5)
    Else
        MsgBox(64, $file1 & " строка " & $i, "Данные файла " & $file4 & " в строке № " & $i _
                 & " совпадают", 5)
    EndIf
Next
Построчно 1.txt сравнивается по-очереди с 2, 3 и 4.txt и показывает, совпадают строки или нет.

PS
Наверное, можно сделать изящнее и проще...
Это сообщение посчитали полезным следующие участники:

Отправлено: 17:34, 02-03-2010 | #6