[Creat0R]

gregaz,

Func WM_NOTIFY должна определить какое окно послало вызов или нужна отдельная ф-я ?

В этой функции нужно проверять $wParam, оно будет ровняться идентиикатору ListView, BitAND($wParam, 0xFFFF) вернёт идентификатор конкретного элемента (ListViewItem).

[Timurko]

А вот еще вопросец: А если в телепередаче более двух обозначений времени а то и вовсе все 10 как на канале РБК. То тут как быть? Например

05:05 Азбука инвестора. 05:10, 18:07 Афиша. 05:20, 03:07 Autonews. 05:35 Рынки. Глобальный взгляд. Российский рынок акций: уроки 2007 года. 06:05 Сфера интересов. Сериальная киноэкономика. 06:35, 10:35, 14:35 Зарубежный бизнес. 06:50, 07:05, 10:50, 13:20, 14:50, 15:07, 16:50 Отдых и Туризм. 07:00-06:30 Новости. Каждые 30 минут. 07:10, 15:10, 19:20 Азбука инвестора 07:20 В фокусе. Крупные ресторанные сети. 08:05 Капитал. Опцион для независимого директора. 08:35 Сфера интересов. Сетевые продажи. 09:05, 10:05, 11:05, 12:05, 13:05, 14:05, 15:05, 16:05, 17:05, 18:05, 19:05, 20:05, 21:05, 22:05, 23:05, 00:05, 01:05, 02:05, 03:05, 04:05 Рынки.

[Creat0R]

Timurko,

если в телепередаче более двух обозначений времени а то и вовсе все 10 как на канале РБК. То тут как быть?

Вот вариант по короче, работает для любых совпадении в строке:

Код:

#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)

[Timurko]

Спасибо я еще немного подправил, так чтобы лишние пробелы уберались и время выглядило такого формата \d\d (передача)

PHP код:

#include <Array.au3>
#include <File.au3>
$file = "C:\titles\programma\source1.txt"
$String = FileRead($file)

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)
For $i = 1 To $aNewArray[0]
    $aNewArray[$i] = StringRegExpReplace($aNewArray[$i], '\s(\s+)', ' ')
    $aNewArray[$i] = StringRegExpReplace($aNewArray[$i], '(\d\d) - ', '\1 ')
Next
_FileWriteFromArray(@ScriptDir & "\dest1.txt", $aNewArray, 1) 

[Timurko]

хм... А вот если в файле с программой присутствуют названия каналов то они тут просто удаляются...
Я вроде сделал переменную RegExp которая определяет что в данной строке находится именно канал...

PHP код:

$chanels = '^TV1000$|^РБК$|^Дамский клуб$|^Детский мир$|^Школьник ТВ$|^Eurosport2$|^Eurosport$|^Explorer$|^Discovery$|^Animal Planet$|^Viasat History$|^365$|^КиноСоюз$|^Наше Новое Кино$|^Дом Кино$|^Авто плюс$|^Боец$|^Звезда$|^MTV-Россия$|^Муз ТВ$|^STYLE$|^Теленяня$' 

Теперь получается уже надо юзать двумерный массив? Хм...

Вот пример текста программы

TV1000 05:00, 23:00 Я и ты, и все, кого мы знаем 07:00 Грязные делишки 09:00 Суперзвезда 11:00 Девушка на мосту 13:00 Сердце и души 15:00 Звездная ночь 17:00 Сердцеедки 19:00 Осиное гнездо 21:00 Ирландский Квартал 01:00 Белокурые бестии 03:00 Голубой воротничок РБК 07:00-15:00 Профилактика на канале РБК. 15:00-06:30 Новости. Каждые 30 минут. 15:10, 16:10, 17:10, 18:15, 20:10, 21:10, 00:15, 03:10, 04:10 Рынки. 15:35, 19:35 Новости компаний. 15:50, 18:50, 04:20 Звездная пыль. 16:20 В фокусе. Рынок мясопереработки. 17:20, 23:50, 01:20 Отдых и Туризм. 17:35 Капитал. Банковские вклады: перспективы роста? 18:35 Рынки. Спецвыпуск. Открытие торгов в Америке. 19:10 Рынки. Спецвыпуск. Итоги торгов в России. 19:50, 03:20 Азбука инвестора. 20:35 Рекламная пауза. 21:35, 03:35 Диалог. "Конвертная" борьба. 22:10, 02:10 Интрига дня. 23:00, 01:30 Мир сегодня. 23:35 Зарубежный бизнес. 00:35, 04:35 Сфера интересов. Ювелирные торговые сети. 01:10 Рынки. Спецвыпуск. Итоги торгов в Америке.

[kalikanzaros]

кто подскажет почему скрипт, после удаления ярлыка из автозагрузки, перед самым ребутом, создает его снова???

Код:

;Определение буквы виртуального 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