|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [архив - Часть 2] AutoIt скрипты |
|
[архив - Часть 2] AutoIt скрипты
|
(*.*) Сообщения: 36510 |
Внимание! Тема переведена в архивное состояние Текущая тема http://forum.oszone.net/thread-98914.html (настоятельно рекомендуется к прочтению/поиску) Руководство к действию по работе c AutoIt. ![]() Сайт программы Русская справка Коллекция AutoIt скриптов от Sanja Alone Коллекция AutoIt скриптов от MSFN (могут быть устаревшие). Справочник по командам rundll32 (команды запуска диалоговых окон и не только...) AutoIt скрипты - введение и FAQ (статья содержит вводную информацию по AutoIt, а также ответы на ЧаВо). Данная тема предназначена для общих вопросов по AutoIt. Вопросы по установке приложений при помощи AutoIt следует задавать в соответствии с правилами форума "Автоматическая установка приложений". Таким образом, если вы хотите узнать как установить Winamp 5.x при помощи AutoIt, то создайте тему [autoit] Winamp 5.х (если таковой еще нет на форуме). Проверить наличие тем можно при помощи поиска или фильтров. Цитата Vadikan:
|
||
------- Отправлено: 00:02, 05-02-2006 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать gregaz,
Цитата:
|
|
------- Отправлено: 06:59, 15-01-2008 | #981 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 7
|
Профиль | Отправить PM | Цитировать А вот еще вопросец: А если в телепередаче более двух обозначений времени а то и вовсе все 10 как на канале РБК. То тут как быть? Например
Цитата:
|
|
Отправлено: 08:57, 15-01-2008 | #982 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать Timurko,
Цитата:
#include <Array.au3> #include <File.au3> $String = FileRead(@ScriptDir & "\source1.txt") Dim $aStrArray = StringSplit(StringStripCR($String), @LF) Dim $aNewArray[1] For $i = 1 To $aStrArray[0] $sTVShow_Name = StringRegExpReplace($aStrArray[$i], "((, |)\d\d:\d\d)", "") $aTVShow_Time = StringRegExp($aStrArray[$i], "(\d\d:\d\d)", 3) For $j = 0 To UBound($aTVShow_Time)-1 $aNewArray[0] += 1 ReDim $aNewArray[$aNewArray[0] + 1] $aNewArray[$aNewArray[0]] = $aTVShow_Time[$j] & " " & $sTVShow_Name Next Next _ArraySort($aNewArray, 0, 1) _ArrayDisplay($aNewArray) _FileWriteFromArray(@ScriptDir & "\dest1.txt", $aNewArray, 1) |
|
------- Отправлено: 10:27, 15-01-2008 | #983 |
Новый участник Сообщения: 7
|
Профиль | Отправить PM | Цитировать Спасибо я еще немного подправил, так чтобы лишние пробелы уберались и время выглядило такого формата \d\d (передача)
|
Отправлено: 12:14, 15-01-2008 | #984 |
Новый участник Сообщения: 7
|
Профиль | Отправить PM | Цитировать хм... А вот если в файле с программой присутствуют названия каналов то они тут просто удаляются...
Я вроде сделал переменную RegExp которая определяет что в данной строке находится именно канал...
Теперь получается уже надо юзать двумерный массив? Хм... Вот пример текста программы Цитата:
|
|
Отправлено: 12:36, 15-01-2008 | #985 |
Пользователь Сообщения: 65
|
Профиль | Отправить PM | Цитировать кто подскажет почему скрипт, после удаления ярлыка из автозагрузки, перед самым ребутом, создает его снова???
;Определение буквы виртуального CDROM-а (67 - ASCII-код символа "C", 90 - "Z") ;(в качестве маркерного файла используем "wpi.hta") $i = 67 While FileExists( Chr($i) & ':\WPI\WPI.hta' )=0 AND $i<=90 $i = $i + 1 WEnd Sleep ( 500 ) Global $set_reg1=Chr($i) & ':\$OEM$\noanimate.reg', $set_reg2=Chr($i) & ':\$OEM$\sound.reg' ;если ярлык сущ-ет то, скрипт выполняет для чего он собственно и задумывался If FileExists ( @StartupCommonDir & '\Lastep.lnk' ) Then ;предотвращение возможности множественного запуска скрипта If WinExists(@ScriptName) Then Exit AutoItWinSetTitle(@ScriptName) ;Отображать текущую строку сценария с помощью индикатора системной панели в режиме отладки. AutoItSetOption("TrayIconDebug", 1) AutoItSetOption("SendKeyDelay", 20) Sleep ( 5000 ) ;создаем ярлык на запуск wpi на рабочем столе FileCreateShortcut ( Chr($i) & ':\WPI\WPI.hta', @DesktopCommonDir & '\wpi.lnk', Chr($i) & ':\WPI', '' ,'Windows Post Install', Chr($i) & ':\WPI\WPI.ICO') Sleep ( 5000 ) ;удаляем ярлык из автозагрузки FileDelete ( @StartupCommonDir & '\Lastep.lnk' ) Sleep ( 20000 ) ; переносим ярлыки в старт меню FileMove ( @ProgramsDir & '\Internet Explorer.lnk', @ProgramsCommonDir & '\network\', 9 ) FileMove ( @ProgramsDir & '\Outlook Express.lnk', @ProgramsCommonDir & '\network\', 9 ) DirRemove( @ProgramsDir & '\Accessories\Entertainment' , 1 ) Sleep ( 10000 ) ;загружаем "проблемные" ключи реестра RunWait ('regedit /S ' & $set_reg1, '', @SW_HIDE ) RunWait ('regedit /S ' & $set_reg2, '', @SW_HIDE ) ; перезагружаем компьютер Sleep ( 10000 ) Shutdown(6) EndIf ; если ярлык в автозапуске не сущ-ет - создаем его и выходим FileCreateShortcut ( Chr($i) & ':\$OEM$\lastep.exe',@StartupCommonDir & '\Lastep.lnk', @StartupCommonDir & '\' ) Exit |
------- Отправлено: 09:58, 21-01-2008 | #986 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Открывая 7z архив пишет не удаётся открыть как архив. Можно ли его восстановить? | DreDo | Хочу все знать | 4 | 01-12-2009 18:54 | |
[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:. | Vadikan | AutoIt | 1543 | 18-01-2009 10:46 | |
[Архив - Часть 1.3] AutoIt скрипты | biork | AutoIt | 503 | 09-06-2007 11:27 | |
[Архив - Часть 1.2] AutoIt скрипты | Dirk Diggler | AutoIt | 505 | 02-12-2006 11:00 | |
[Архив - Часть 1.1] AutoIt скрипты | EgOrus | AutoIt | 335 | 04-02-2006 16:58 |
|