[архив - Часть 2] AutoIt скрипты

Vikma19 · Сообщение **Vikma19** » 13 янв 2008, 10:54

Maza Faka, Редактирование Itemov -понятно, а как с SubItemami(ввел колонку с помощью _GUICtrlListView_AddSubItem

ввел данные) но исправить можно только Item - а как с SubItem и с вводом новых данных в пустую ячейку?

Спасибо.

Creat0R · Сообщение **Creat0R** » 13 янв 2008, 15:41

Creat0R,
Цитата Creat0R:

Кроме метода использования который привёл Maza Faka (более разумный метод), можно ещё запускать сам vbs код из под AutoIt'а... но мне почему то кажется что речь не про vbs, а про Visual Basic? хотя всё что можно на нём сделать, на AutoIt тоже можно

[архив - Часть 2] AutoIt скрипты

спасибо, речь действительно идет о Visual Basic. Попробую реализовать в Autoit, хотя все что связано со строками и сортировкой и поиском, как мне кажется проще на V B. Сейчас почитаю - (Edit In Place Listview (multi-column)

Vikma19 · Сообщение **Vikma19** » 13 янв 2008, 15:41

Vikma19,

Цитата:

хотя все что связано со строками и сортировкой и поиском, как мне кажется проще на V B

Я особо не знаком с синтаксисом VB, но знаю что проще сделать именно там, где это возможно для вас сделать

(это как с выбором дороги по которой нужно идти - короче будет всегда та дорогоа, которая нам известна

). Но на AutoIt работать со строками, поиском, довольно не сложно, хотя вот сортировка немного сомнительна (в некоторых случаях), тот же List View, приходится подключать внешние вызовы API, и тоже не всегда идеально.

Creat0R · Сообщение **Creat0R** » 13 янв 2008, 16:13

Creat0R,
Цитата Creat0R:

(Edit In Place Listview (multi-column))

[архив - Часть 2] AutoIt скрипты

Извините, а какую версию использовать - я поставил последнюю и скрипт по этой ссылке не работает...

Vikma19 · Сообщение **Vikma19** » 13 янв 2008, 16:13

Vikma19,

Цитата:

какую версию использовать

Скорее всего 3.2.8.1, т.к скрипт был написан ещё раньше выпуска 3.2.10.0...

Creat0R · Сообщение **Creat0R** » 13 янв 2008, 22:29

Цитата Creat0R:

Скорее всего 3.2.8.1, т.к скрипт был написан ещё раньше выпуска 3.2.10.0...

[архив - Часть 2] AutoIt скрипты

к сожалению с 3.2.8.1 тоже не работает- а по всему видно -это то что надо.

пробовал исправлять - но ошибки так и сыпятся.

Vikma19 · Сообщение **Vikma19** » 13 янв 2008, 22:29

Vikma19,

Цитата:

к сожалению с 3.2.8.1 тоже не работает

У меня работает

Цитата:

пробовал исправлять - но ошибки так и сыпятся

Я исправил все ошибки (для 3.2.10.0), но некоторые функции изменились в синтаксисе, поэтому работоспособность скрипта нарушена

- если у меня получится исправить, то выложу рабочий вариант.

Creat0R · Сообщение **Creat0R** » 14 янв 2008, 10:34

Цитата Creat0R:

если у меня получится исправить, то выложу рабочий вариант.

[архив - Часть 2] AutoIt скрипты

большое спасибо

Vikma19 · Сообщение **Vikma19** » 14 янв 2008, 10:34

Помогите решить проблему. Есть исходный файл "source1.txt" там лежит ТВ-Программа без форматирования данного рода.

Цитата:

05:00, 22:30 Малхолланд Драйв

07:30 Евротрип

09:00 Свадьба на Рождество

11:00 Без ума от любви

13:00 Брюс Всемогущий

15:00 Красная шапочка

16:30 Нечего декларировать

18:30 Ze фильм

20:30 Львиное сердце

01:00 Увеселительница

03:00 Обучение Клэр

Я забабашил скрипт который бы брал от туда числа отдельно определял название канала и заменял на шаблонный текст

Код: Выделить всё

#include <file.au3>

#include <Array.au3>



Dim $strArray, $file



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



$file = "source.txt"



_FileReadToArray( $file , $strArray)



_ArrayInsert( $strArray,1,"<br>")

_ArrayInsert( $strArray,2,"<br>")



For $i = 0 To UBound($strArray)-2

    $strArray[$i] = StringRegExpReplace($strArray[$i], $chanels, '<br>' & @LF & 'канал \0')            

Next



_FileWriteFromArray("temporary.txt",$strArray,1)

Этот скрипт вроде работает нормально, пишу еще один скрипт который бы определял сколько сейчас времени и взависимости от последнего убирал бы передачи которые уже прошли или будут дольше чем через 2 часа:

Код: Выделить всё

#include <file.au3>

Dim $strArray



$file = "temporary.txt"



_FileReadToArray( $file , $strArray)

MsgBox(0, "", UBound($strArray)-2)

For $i = 1 To UBound($strArray)

        $arraytext = StringRegExp($strArray[$i], '(\d\d):(\d\d).+',2)

        if (@Error=1) then ContinueLoop;

            $prgtime=$arraytext[1]+($arraytext[2]/60)

        ;Если время в передаче меньше 4 часов утра то прибавляем 24 часа чтобы он не подумал что время после полуночи меньше реального и не удалил

        if ($prgtime<=4) then $prgtime=$prgtime+24

        ;Также навсякий случай и с реальным временем

        $curtime=@HOUR+@MIN/60

            if ($curtime<=4) then $curtime=$curtime+24

        ;Если передача уже прошла то удалять ее

        if (($prgtime)<=($curtime)) then 

            _FileWriteToLine($file, $i, "", 1)

            _FileReadToArray( $file , $strArray)

        endif

        ;Вот тут я хотел чтобы еще удалялись программы которые будут больше через 2 часа

        if (($prgtime)>=($curtime+2)) then 

            _FileWriteToLine($file, $i, "", 1)

            _FileReadToArray( $file , $strArray)

        endif

Next

FileClose($file)

http://forum.oszone.net/attachment.p...1&d=1200305273

Но Выскакивает ошибка... Что неправильный тут массив(Или регэкспы), хотя часть работы при этом программа делает.

И еще: Пожалуйста помогите еще, как сделать так чтобы например есть строка:

Цитата:

05:00, 22:30 Малхолланд Драйв

07:30 Евротрип

09:00 Свадьба на Рождество

11:00 Без ума от любви

13:00 Брюс Всемогущий

15:00 Красная шапочка

16:30 Нечего декларировать

18:30 Ze фильм

20:30 Львиное сердце

01:00 Увеселительница

03:00 Обучение Клэр

И время через запятую выставлялось бы в верное время вот так:

Цитата:

05:00 Малхолланд Драйв

07:30 Евротрип

09:00 Свадьба на Рождество

11:00 Без ума от любви

13:00 Брюс Всемогущий

15:00 Красная шапочка

16:30 Нечего декларировать

18:30 Ze фильм

20:30 Львиное сердце

22:30 Малхолланд Драйв

01:00 Увеселительница

03:00 Обучение Клэр

Timurko · Сообщение **Timurko** » 14 янв 2008, 11:36

Помогите решить проблему. Есть исходный файл "source1.txt" там лежит ТВ-Программа без форматирования данного рода.

Цитата:

05:00, 22:30 Малхолланд Драйв

07:30 Евротрип

09:00 Свадьба на Рождество

11:00 Без ума от любви

13:00 Брюс Всемогущий

15:00 Красная шапочка

16:30 Нечего декларировать

18:30 Ze фильм

20:30 Львиное сердце

01:00 Увеселительница

03:00 Обучение Клэр

Я забабашил скрипт который бы брал от туда числа отдельно определял название канала и заменял на шаблонный текст

Код: Выделить всё

#include <file.au3>

#include <Array.au3>



Dim $strArray, $file



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



$file = "source.txt"



_FileReadToArray( $file , $strArray)



_ArrayInsert( $strArray,1,"<br>")

_ArrayInsert( $strArray,2,"<br>")



For $i = 0 To UBound($strArray)-2

    $strArray[$i] = StringRegExpReplace($strArray[$i], $chanels, '<br>' & @LF & 'канал \0')            

Next



_FileWriteFromArray("temporary.txt",$strArray,1)

Этот скрипт вроде работает нормально, пишу еще один скрипт который бы определял сколько сейчас времени и взависимости от последнего убирал бы передачи которые уже прошли или будут дольше чем через 2 часа:

Код: Выделить всё

#include <file.au3>

Dim $strArray



$file = "temporary.txt"



_FileReadToArray( $file , $strArray)

MsgBox(0, "", UBound($strArray)-2)

For $i = 1 To UBound($strArray)

        $arraytext = StringRegExp($strArray[$i], '(\d\d):(\d\d).+',2)

        if (@Error=1) then ContinueLoop;

            $prgtime=$arraytext[1]+($arraytext[2]/60)

        ;Если время в передаче меньше 4 часов утра то прибавляем 24 часа чтобы он не подумал что время после полуночи меньше реального и не удалил

        if ($prgtime<=4) then $prgtime=$prgtime+24

        ;Также навсякий случай и с реальным временем

        $curtime=@HOUR+@MIN/60

            if ($curtime<=4) then $curtime=$curtime+24

        ;Если передача уже прошла то удалять ее

        if (($prgtime)<=($curtime)) then 

            _FileWriteToLine($file, $i, "", 1)

            _FileReadToArray( $file , $strArray)

        endif

        ;Вот тут я хотел чтобы еще удалялись программы которые будут больше через 2 часа

        if (($prgtime)>=($curtime+2)) then 

            _FileWriteToLine($file, $i, "", 1)

            _FileReadToArray( $file , $strArray)

        endif

Next

FileClose($file)

Вложения: [Расширение jpg было запрещено, вложение больше недоступно.]

Но Выскакивает ошибка... Что неправильный тут массив(Или регэкспы), хотя часть работы при этом программа делает.

И еще: Пожалуйста помогите еще, как сделать так чтобы например есть строка:

Цитата:

05:00, 22:30 Малхолланд Драйв

07:30 Евротрип

09:00 Свадьба на Рождество

11:00 Без ума от любви

13:00 Брюс Всемогущий

15:00 Красная шапочка

16:30 Нечего декларировать

18:30 Ze фильм

20:30 Львиное сердце

01:00 Увеселительница

03:00 Обучение Клэр

И время через запятую выставлялось бы в верное время вот так:

Цитата:

05:00 Малхолланд Драйв

07:30 Евротрип

09:00 Свадьба на Рождество

11:00 Без ума от любви

13:00 Брюс Всемогущий

15:00 Красная шапочка

16:30 Нечего декларировать

18:30 Ze фильм

20:30 Львиное сердце

22:30 Малхолланд Драйв

01:00 Увеселительница

03:00 Обучение Клэр

[архив - Часть 2] AutoIt скрипты

Re: [архив - Часть 2] AutoIt скрипты

Re: [архив - Часть 2] AutoIt скрипты

Re: [архив - Часть 2] AutoIt скрипты

Re: [архив - Часть 2] AutoIt скрипты

Re: [архив - Часть 2] AutoIt скрипты

Re: [архив - Часть 2] AutoIt скрипты

Re: [архив - Часть 2] AutoIt скрипты

Re: [архив - Часть 2] AutoIt скрипты

Re: [архив - Часть 2] AutoIt скрипты

Re: [архив - Часть 2] AutoIt скрипты