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

Страницы: 1 ... 8 9 [10]
91
Дни рождения / С днём рождения kossvir, Leta_Toke!
« Последний ответ от Представитель Сообщества Отправлен Июль 12, 2018, 01:02:10 »
От имени всего Русского сообщества AutoIt поздравляем Вас kossvir, Leta_Toke с днём рождения!



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

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

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

Пусть жизнь Вам дарит самые
Прекрасные мгновения.
Желаем только радости
И счастья, с днем рождения!
92
Код: AutoIt [Выделить]
$sTest = "1333рвовлвл 4лалвлоаов огж АБС ГУР АБС асл"
$sSymbol = 'а'

If StringRegExp(' ' & $sTest, '(?i)[^A-zА-я](' & $sSymbol & ')', 0) Then         ; "РВО" - найдет, "с" - Нет
   MsgBox(4096, "", "Есть")
Else
   MsgBox(4096, "", "Нет")
EndIf

93
... есть ли в этом тесте слова ...
А что есть слово?
"А=пр", "А4а", "а", "_Аввв" - это слова?
94
У меня есть текст:
$test ="1333рвовлвл 4лалвлоаов огж АБС ГУР АБС асл"
Нужно что бы скрипт проверил есть ли в этом тесте слова начинающиеся на А(без учёта регистра)
95
Стол заказов / Re: Поиск по маске и удаление не нужных файлов
« Последний ответ от InnI Отправлен Июль 11, 2018, 18:20:59 »
Сделал вывод файлов в консоль SciTE. Если всё правильно, то раскомментируйте нужный режим удаления самостоятельно ;)
И не забудьте сделать резервную копию
Код: AutoIt [Выделить]
#include <File.au3>

$sPath = "D:\Base\"

$aFiles = _FileListToArray($sPath, "*.zip", $FLTA_FILES)
If @error Then Exit MsgBox(0, "Error", "Ошибка поиска файлов: " & @error)

For $i = 0 To $aFiles[0]
  $aFind = StringRegExp($aFiles[$i], ".*?-\d{4}-(\d\d)-(\d\d)-\d\d-\d\d.zip", 3)
  If @error Then ContinueLoop
  If $aFind[0] = @MON Or $aFind[1] = "05" Or $aFind[1] = "25" Then ContinueLoop
  ConsoleWrite($sPath & $aFiles[$i] & @CRLF)
  ; FileRecycle($sPath & $aFiles[$i]) ; удаление в корзину
  ; FileDelete($sPath & $aFiles[$i]) ; полное удаление
Next

96
Стол заказов / Поиск по маске и удаление не нужных файлов
« Последний ответ от SLameN Отправлен Июль 11, 2018, 16:45:11 »
Версия AutoIt: 3.5.4

Описание:
Привет! Помогите написать следующее:

Имеется папка, путь и название у нее не будет меняться. Внутри папки много файлов с таким названием - "name-2018-05-11-23-59.zip"

Необходимо удалять файлы по такому принципу:
Удалить все, кроме -
1. когда в названии присутствует 5 или 25 день в любом месяце, пример - "name-2018-06-05-15-59.zip" - его оставить не удалять
2. файлы за текущий месяц (согласно названию)


Примечания:
У меня даже просто не получается найти файлы по маске
Код: AutoIt [Выделить]
$sPath = 'D:\Base\'
$sMask = '_msi_keyfile*'

$aSearch = _FileSearch($sPath, $sMask, 1)

    For $i = 1 To $aSearch[0]
        FileDelete($aSearch[$i])
   Next
MsgBox(4096, "", "Ба-бах!!")
 

97
Код: AutoIt [Выделить]
$iPID = Run(@ComSpec & " /c " & "net use /?", "", @SW_HIDE, 8)

ProcessWaitClose($iPID)
$sOutput = StdoutRead($iPID)

$aRet = DllCall("user32.dll", "bool", "OemToChar", "str", $sOutput, "str", $sOutput)
ConsoleWrite($aRet[2] & @CRLF)

98
просто хочу из скрипта AutoIt кидать в CMD  команды и знать что оно мне ответило.

например так:

Код: AutoIt [Выделить]
RunWait(@ComSpec & " /c " & 'net use \\192.168.13.170\technological_department /user:tehnolog 123456Tt', "")  


но как потом узнать ответ?  :stars:

например хочу отловить номер системной ошибки и текст:

99
Общие вопросы по AutoIt / [Автоматизация] Использование COM объектов в Lotus Notes
« Последний ответ от vladimir_dfx Отправлен Июль 10, 2018, 20:02:47 »
Доброго времени суток форумчане! Возможно кто нибудь сможет просветить новичка. Суть в следующем, есть ПО Lotus Notes, с ним можно взаимодействовать через com объекты для выполнения определенных действий.
Если я правильно понимаю, (см. вложение) то левый столбец свойств - это название полей, в которые можно записать новое значение.
Тут у меня запуск клиента, без авторизации
Код: AutoIt [Выделить]
#include <date.au3>
Global $recipient, $Subject, $bodytext, $attachment, $saveit
SendNotesMail($recipient, $Subject, $bodytext, $attachment, $saveit)
Func SendNotesMail($recipient, $Subject, $bodytext, $attachment, $saveit)
$Session = ObjCreate("Notes.NotesSession")
$UserName = $Session.UserName
;~ $Maildb = $Session.GETDATABASE("Локальный компьютер", 'names.nsf')
 


Итого, каким методом можно открыть локальную базу names.nsf и поменять там имя расположения? :stars:

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

100
Примеры и рабочие проекты / TreeView + RadioButton : Изменение поведения пунктов
« Последний ответ от joiner Отправлен Июль 10, 2018, 12:05:32 »
AutoIt: 3.3.12.0

Категория: Вспомогательные функции,  Элементы GUI, Разное

Описание: Изменение поведения пунктов в TreeView. Пункты могут иметь поведение RadioButton и ChekBox.
Для визуального отображения используются иконки. Иконки произвольные. Для примера в архиве есть файл сохранения\загрузки TreeView
Выбор пункта делается мышкой либо кнопкой Пробел на клавиатуре.

Сохранение в файл и загрузка TreeView.
Добавление информации элементам TreeView, сохранение информации в файл

Код/Пример:
(нажмите для показа/скрытия)

Файл: Исходник + пример

История версий:
(нажмите для показа/скрытия)

Источник: Идея сохранения в файл и загрузки взята с официального форума
Остальное отсюда
Автор(ы): joiner
Страницы: 1 ... 8 9 [10]