[Массивы] Сравнение двух массивов, поиск значений, подсчет одинаковых элементов

#include <File.au3>
#include <Array.au3>
$hTimer = TimerInit() ; Запускаем таймер

Global $N = 0, $FileOut[0][4]
Local $i = 1, $Draft

If _FileReadToArray(@ScriptDir & '\Out.txt', $Draft) = 0 Then Exit MsgBox(16, 'Ошибка "_FileReadToArray"', '@error = ' & @error)
If Not _ArraySort($Draft, 0, 1) Then Exit MsgBox(16, 'Ошибка "_ArraySort"', '@error = ' & @error) ; Сортируем массив

Do ; В массиве "$Draft[]" узнаем количество одноименных элементов и выводим информацию в "$FileOut[][]"
    $aiResult = _ArrayFindAll($Draft, $Draft[$i])
    $UB = UBound($aiResult)
    $Size = UBound($FileOut)
    ReDim $FileOut[$Size + 1][4]
    $FileOut[$Size][0] = $Draft[$i]
;~  If $UB > 1 Then $FileOut[$Size][1] = '[' &$UB& ']' ; Записываем количество дубликатов только если их больше 1 ...
    $FileOut[$Size][3] = '[' & $UB & ']' ; ... или записываем все
    $i += $UB
Until $i > $Draft[0]
If Not $FileOut[0][0] Then _ArrayDelete($FileOut, 0) ; Удаляем возможные пустые строки

;~ _ArrayDisplay($FileOut, '"$FileOut[][]"') ; Проверка массива "$FileOut[][]"

$FileBase = FileOpen(@ScriptDir & '\Base.txt')
While 1
    $sLine = FileReadLine($FileBase) ; Считываем строку текста из "Base.txt"
    If @error = -1 Then ExitLoop ; Условие штатного выхода из цикла
	If Not $sLine Then ContinueLoop ; Если попалась пустая строка - пропускаем текущий шаг цикла
    $aArray = StringRegExp($sLine, '(\d{7,9}?)\h*?(код\d{7,9})\h*(\S*)\h*?', 2) ; Разделяем стоку на три составляющие в массив
    If @error Then ContinueLoop
;~  _ArrayDisplay($aArray, '"$aArray[]"') ; Проверка результата поиска функции "StringRegExp" в строке "$sLine"

    For $i = 0 To UBound($FileOut) - 1 ; Ищем совпадения
        If $FileOut[$i][0] = $aArray[1] And $FileOut[$i][1] = '' Then ; Условие "$FileOut[$i][1] = ''" позволяет пропускать уже найденные элементы массива
            $FileOut[$i][1] = $aArray[2]
            If Not $aArray[3] Then
                $FileOut[$i][2] = 'Пусто!'
            Else
                $FileOut[$i][2] = $aArray[3]
            EndIf
			$N += 1
            ExitLoop
        EndIf
    Next
	If $N = UBound($FileOut) - 1 Then ExitLoop ; Если количество найденных элементов = количеству элементов массива => досрочное окончание поиска
WEnd

FileClose($FileBase)

; Вписываем в массив значения для "Отсутствующих"
For $i = 0 To UBound($FileOut) - 1
    If Not $FileOut[$i][1] Then
        $FileOut[$i][1] = 'код00000000'
        $FileOut[$i][2] = 'Отсутствует!'
    EndIf
Next

; Записываем массив в файл
$FileResult = FileOpen(@ScriptDir & '\Результат.txt', 2)
If $FileResult = -1 Then Exit MsgBox(16, 'Ошибка "$FileResult"', 'Невозможно создать файл для записи!' & @CRLF & @CRLF & 'Выход.')
For $i = 0 To UBound($FileOut) - 1
    FileWriteLine($FileResult, $FileOut[$i][0] & @TAB & $FileOut[$i][1] & @TAB & @TAB & $FileOut[$i][2] & @TAB & $FileOut[$i][3])
Next
FileClose($FileResult)

_ArrayDisplay($FileOut, 'Готово!  (Время обработки: ' & Round(TimerDiff($hTimer) / 1000, 3) & ' сек.)', Default, 32 + 64, Default, Default, Default, 0xFFFFB8)
;~ _ArrayDisplay($FileOut)

#include <File.au3>
#include <Array.au3>
$hTimer = TimerInit() ; Запускаем таймер

Local $FileOut[0][4], $i = 1, $Position = 1, $Draft

If _FileReadToArray(@ScriptDir & '\Out.txt', $Draft) = 0 Then Exit MsgBox(16, 'Ошибка "_FileReadToArray"', '@error = ' & @error)
If Not _ArraySort($Draft, 0, 1) Then Exit MsgBox(16, 'Ошибка "_ArraySort"', '@error = ' & @error) ; Сортируем массив

Do ; В массиве "$Draft[]" узнаем количество одноименных элементов и выводим информацию в "$FileOut[][]"
	$aiResult = _ArrayFindAll($Draft, $Draft[$i])
	$UB = UBound($aiResult)
	$Size = UBound($FileOut)
	ReDim $FileOut[$Size + 1][4]
	$FileOut[$Size][0] = $Draft[$i]
;~  If $UB > 1 Then $FileOut[$Size][1] = '[' &$UB& ']' ; Записываем количество дубликатов только если их больше 1 ...
	$FileOut[$Size][3] = '[' & $UB & ']' ; ... или записываем все
	$i += $UB
Until $i > $Draft[0]
If Not $FileOut[0][0] Then _ArrayDelete($FileOut, 0) ; Удаляем возможные пустые строки

;~ _ArrayDisplay($FileOut, '"$FileOut[][]"') ; Проверка массива "$FileOut[][]"

$FileBaseOpen = FileOpen(@ScriptDir & '\Base.txt')
$FileBase = FileRead($FileBaseOpen)

SetError(0, 0)
$i = 0
While $i <= UBound($FileOut) - 1 ; Ищем совпадения с определенной позиции в тексте
	$aArray = StringRegExp($FileBase, $FileOut[$i][0] & '\h*?(код\d{7,9})\h*(\S*)\h*?', 2, $Position) ; Находим и затем разделяем найденную стоку на три составляющие в массив
	If @error Then ; Если "StringRegExp" не вернула массив, тогда ...
		$Str = StringInStr($FileBase, $FileOut[$i][0], 2, -2, $Position) ; ... поиск в обратном направлении от той же позиции ...
		If $Str Then ; ... Если "StringInStr" вернула позицию, то повторяем "StringRegExp" уже от этой позиции
			$Position = $Str
			ContinueLoop
		Else ; Если совпадений нет, то вписываем в массив следующие значения:
			$FileOut[$i][1] = 'код00000000'
			$FileOut[$i][2] = 'Отсутствует!'
		EndIf
	Else ; Если "StringRegExp" вернула массив ...
		$Position = @extended
		$FileOut[$i][1] = $aArray[1]
		If Not $aArray[2] Then
			$FileOut[$i][2] = 'Пусто!'
		Else
			$FileOut[$i][2] = $aArray[2]
		EndIf
	EndIf
	$i += 1
WEnd

FileClose($FileBase)

; Записываем массив в файл
; (Это можно было сделать и в предыдущем цикле)
$FileResult = FileOpen(@ScriptDir & '\Результат.txt', 2)
If $FileResult = -1 Then Exit MsgBox(16, 'Ошибка "$FileResult"', 'Невозможно создать файл для записи!' & @CRLF & @CRLF & 'Выход.')
For $i = 0 To UBound($FileOut) - 1
	FileWriteLine($FileResult, $FileOut[$i][0] & @TAB & $FileOut[$i][1] & @TAB & @TAB & $FileOut[$i][2] & @TAB & $FileOut[$i][3])
Next
FileClose($FileResult)

_ArrayDisplay($FileOut, 'Готово!  (Время обработки: ' & Round(TimerDiff($hTimer) / 1000, 3) & ' сек.)', Default, 32 + 64, Default, Default, Default, 0xFFFFB8)
;~ _ArrayDisplay($FileOut)