Добрый день!
Как добавить еще такую же колонку с результатом справа (см вложение) и можно ли чтоб в конце кажлой колонки было итого (общая сумма всех строк)?
Как добавить еще такую же колонку с результатом справа (см вложение) и можно ли чтоб в конце кажлой колонки было итого (общая сумма всех строк)?
Код:
#include <array.au3>
Opt("TrayIconHide", 0)
Opt("TrayIconDebug", 1)
$zaglav = "Счетчик - калькулятор"
$filename = FileOpenDialog($zaglav, @ScriptDir, "TXT (*.txt)", 1 + 4)
Global $Drawing = '***Чертеж простая***' ;Рисунок из 7 колонки по которому выполнять поиск
Global $n = 0
Dim $aResult[0]
If @error Then
MsgBox(4096, "", "The End")
Else
If StringInStr($filename, '|') Then;если выбрано несколько файлов
$aListFile = StringSplit($filename, '|')
$Folder = $aListFile[1]
For $i = 2 To $aListFile[0]
$sFullPath = $Folder & '\' & $aListFile[$i]
_Count($sFullPath)
Next
Else ;если выбран один файл
_Count($filename)
EndIf
_ArrayDisplay($aResult)
EndIf
Func _Count($Path)
$aFile = FileReadToArray($Path)
For $i = 0 To UBound($aFile) - 1
If StringStripWS($aFile[$i], 8) Then;Исключаем пустые строки
$aLine = StringSplit($aFile[$i], ';')
If $aLine[7] = $Drawing Then;Выбор только по заданному рисунку
$n += 1
ReDim $aResult[$n]
$aResult[$n - 1] = (($aLine[3]/1000) * ($aLine[4]/1000))*$aLine[5]
EndIf
EndIf
Next
EndFunc ;==>_Count