Недавние сообщения

Страницы: 1 [2] 3 4 ... 10
11
Дни рождения / С днём рождения Asshaker!
« Последний ответ от Представитель Сообщества Отправлен Июнь 22, 2019, 01:00:51 »
От имени всего Русского сообщества AutoIt поздравляем Вас Asshaker с днём рождения!


Нажмите для отображения изображения в оригинальном размере.

Цитировать
Пусть все мечты исполнятся,
Пусть все желанья сбудутся,
Пусть радости запомнятся,
А горести забудутся.

Здоровье будет крепкое,
В делах всегда согласие,
Любовь навеки верная —
Без ссор и разногласия.

Зарплата только вовремя,
Стабильная, высокая.
Работа будет лёгкая
И не совсем далёкая.

Пусть жизнь Вам дарит самые
Прекрасные мгновения.
Желаем только радости
И счастья, с днем рождения!
12
Стол заказов / Re: пакетная обработка логов
« Последний ответ от xXx Отправлен Июнь 21, 2019, 19:25:42 »
... я не могу заставить его работать из другого каталога...
Исправлено.
13
Стол заказов / Re: [Автоматизация] Поиск файлов рекурсивно по данному списку
« Последний ответ от Tosyk Отправлен Июнь 21, 2019, 19:21:29 »
Можно, но не гарантирую быстрого ответа, так как времени свободного мало.
спасибо, вот в этом сообщении я высказываю идеи как ускорить поиск
http://autoit-script.ru/index.php?topic=26970.msg148587#msg148587
14
Стол заказов / Re: [Автоматизация] Поиск файлов рекурсивно по данному списку
« Последний ответ от IMStrelcov Отправлен Июнь 21, 2019, 17:19:33 »
Можно, но не гарантирую быстрого ответа, так как времени свободного мало.
15
Общие вопросы по AutoIt / Re: Как встроить окно Excel - в окно autoit-интерфейса
« Последний ответ от InnI Отправлен Июнь 21, 2019, 16:35:53 »
Запустите скрипт и активируйте окно Excel.
Проверил на Excel 2010: зелёное меню "Файл" не нажимается, остальное, вроде, работает
Код: AutoIt [Выделить]
$hGUI = GUICreate("Excel", 1000, 800)
$hWnd = WinWaitActive("[Class:XLMAIN]")
DllCall("user32.dll", "hwnd", "SetParent", "hwnd", $hWnd, "hwnd", $hGUI)
WinMove($hWnd, "", 0, 0, 1000, 800)
GUISetState()
Sleep(111)
WinMove($hWnd, "", -8, -8, 1016, 816)
Do
Until GUIGetMsg() = -3
WinClose($hWnd)
WinWaitClose($hWnd)

16
Стол заказов / Re: [Сеть, интернет] Загрузка файла на FTP
« Последний ответ от yokselmoksel Отправлен Июнь 21, 2019, 16:25:21 »
Есть живые то?
17
Стол заказов / Re: пакетная обработка логов
« Последний ответ от Glass4217 Отправлен Июнь 21, 2019, 14:52:17 »
Мой косяк, исправил.
Спасибо, теперь работает без спутывания сумм. По какой-то причине я не могу заставить его работать из другого каталога кроме как из каталога с логами.



Добавлено: Июнь 21, 2019, 14:56:19
Вариант без регулярок с отдельными итогами и общей суммой
Это волшебно, сверх моих ожиданий. код работает а я даже примерно понять не могу как) спасибо что открываете мне новые грани знаний, я хоть одним пальцем прикоснулся к волшебству)

после выходных свежим взглядом посмотрел, я понял код)). очень изящное и интересное решение.
18
Стол заказов / Re: пакетная обработка логов
« Последний ответ от InnI Отправлен Июнь 21, 2019, 14:11:37 »
Вариант без регулярок с отдельными итогами и общей суммой
Код: AutoIt [Выделить]
#include <File.au3>

$Folder = "D:\Test" ; путь к папке с логами

$Summa = 0
$aFiles = _FileListToArray($Folder, "*.log", 1)
If @error Then Exit MsgBox(0x40000, "Error", "Ошибка поиска файлов")
For $i = 1 To $aFiles[0]
  CheckLog($aFiles[$i])
Next
FileWriteLine($Folder & "\Summa.txt", "Итого отменено на сумму: " & StringFormat("%.2f", $Summa * -1))

Func CheckLog($FileName)
  If Not FileExists($Folder & "\" & $FileName) Then Return SetError(1, 0, 0)
  Local $Str = "", $Sum = 0, $aText, $aData
  $aText = FileReadToArray($Folder & "\" & $FileName)
  If Not IsArray($aText) Then Return SetError(2, 0, 0)
  For $i = 0 To UBound($aText) - 1
    $aData = StringSplit($aText[$i], ";")
    If $aData[0] <> 13 Then
      FileWriteLine($Folder & "\" & $FileName & ".txt", "Line " & $i + 1 & ": некорректный формат строки")
      ContinueLoop
    EndIf
    If $aData[4] = 56 Then
      $Str = "Line " & $i + 1 & ": " & $aData[2] & ";" & $aData[3] & ";" & $aData[12]
      FileWriteLine($Folder & "\" & $FileName & ".txt", $Str)
      $Sum += $aData[12]
    EndIf
  Next
  FileWriteLine($Folder & "\Summa.txt", $FileName & ": отмененных чеков на сумму " & StringFormat("%.2f", $Sum * -1))
  $Summa += $Sum
EndFunc

19
Стол заказов / Re: пакетная обработка логов
« Последний ответ от Glass4217 Отправлен Июнь 21, 2019, 04:54:51 »
Ваш скрипт работает но выдает приличное количество странных записей, подозреваю в логах есть мусорные данные частично соответствующие шаблону регулярного выражения
upd. нашел в чем причина, если номер чека 56. то он тоже ловится регулярным выражением. и как следствие тоже проваливается в лог.

18.03.19;16:42:11;-215.00
19.03.19;09:03:39;-216.70
19.03.19;19:16:13;-58.30
20.03.19;11:34:51;-43.50
11;1;20.03.19
11;1;20.03.19
11;1;20.03.19
11;1;20.03.19
11;1;20.03.19
11;1;20.03.19
11;1;20.03.19
11;1;20.03.19
75;1;20.03.19
75;1;20.03.19
40;1;20.03.19
140;1;20.03.19
140;1;20.03.19
54;1;20.03.19
55;1;20.03.19
130;1;20.03.19
11;1;20.03.19
11;1;20.03.19
40;1;20.03.19
140;1;20.03.19
140;1;20.03.19
54;1;20.03.19
55;1;20.03.19
21.03.19;09:02:05;-53.70
21.03.19;09:15:57;-118.90


Добавлено: Июнь 21, 2019, 04:56:07
Ваш вариант к сожалению не выдает данных, создается пустой файл.
upd. если файл скрипта подсунуть в каталог то все вышло, прошу прощения.
Но выявился другой недостаток, он последний чек отмены за вчера помимо вчерашнего дня еще плюсует к "сегодня".
вот результат работы скрипта sngr
01.02.19;08:21:26;-37.10
01.02.19;21:32:05;-102.68
02.02.19;10:45:13;-243.20
03.02.19;17:07:27;-1018.89
04.02.19;10:30:52;-344.70
04.02.19;11:37:53;-65.30
04.02.19;16:18:12;-121.60

а вот xXx
"20190201.log" имеет отмененных чеков на сумму 139.78
"20190202.log" имеет отмененных чеков на сумму 382.98
"20190203.log" имеет отмененных чеков на сумму 1401.87
"20190204.log" имеет отмененных чеков на сумму 1933.47
"20190208.log" имеет отмененных чеков на сумму 6267.39

если одного лог файла маловато в архиве вложил 4 дня больше не влазит


20
Общие вопросы по AutoIt / Как встроить окно Excel - в окно autoit-интерфейса
« Последний ответ от Ragn Отправлен Июнь 21, 2019, 03:06:29 »
Добрый день.
Помогите решить вопрос.

Как при помощи скрипта autoit - встроить в окно (окно создано GUI) - программу Excel ?
Вопрос в том, что окно Excel программы - должно вписываться внутрь окна GUI.
Окно эксель открыто и его Title, включает слово "Книга1 -"

Нашел на форуме - вот такой код:
(нажмите для показа/скрытия)

Но он почему-то не хочет работать, при выделении окна Excel - самопроизвольно закрывается.
Страницы: 1 [2] 3 4 ... 10