Версия AutoIt: 3.5.4
Описание:Здравствуйте, прошу помочь решить проблему есть файл Excel в нем таблица с кучей столбиков
нужно перебрать строки на наличие схожих по значению в поле фио, дата рождения и диагноз, и если есть строки у которых эти значения не совпали ни с одним значением из других строк то их надо удалить. т.е. есть строки с человеками у которых было несколько записей(их оставляем), а есть у которых запись одна их удаляем. Заранее спасибо!!!
попытался сделать через массивы но что то не работает
Примечания:
Описание:Здравствуйте, прошу помочь решить проблему есть файл Excel в нем таблица с кучей столбиков
нужно перебрать строки на наличие схожих по значению в поле фио, дата рождения и диагноз, и если есть строки у которых эти значения не совпали ни с одним значением из других строк то их надо удалить. т.е. есть строки с человеками у которых было несколько записей(их оставляем), а есть у которых запись одна их удаляем. Заранее спасибо!!!
попытался сделать через массивы но что то не работает
Код:
#include <Array.au3>
#include <Excel.au3>
$File = FileOpenDialog('Выбрать файл для сортировки', @ScriptDir, "Файлы EXCEL (*.xls;*.xlsx)", 2 + 1)
If Not @error Then
Local $oExcel = _Excel_Open(False)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Ошибка !", "Ошибка создания объекта Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, $File)
If @error Then
MsgBox($MB_SYSTEMMODAL, "Ошибка !", "Ошибка открытия файла Excel " & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Excel_Close($oExcel)
Exit
EndIf
Dim $aSin = _Excel_RangeRead($oWorkbook)
Dim $sGar = _Excel_RangeRead($oWorkbook)
Dim $aGarReady
Dim $aGarUndef
For $i = 1 to UBound($aSin) - 1
If StringRegExp($sGar, $aSin[$i]) =1 Then
_ArrayAdd($aGarReady, $aSin[$i])
Else
_ArrayAdd($aGarUndef, $aSin[$i])
EndIf
Next
_ArrayDisplay($aGarReady)
_ArrayDisplay($aGarUndef)