[архив

Creat0R · Конфигурация компьютера

Vikma19,

Цитата:

можно ли объединить Autoit и VB

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

Цитата:

а как с SubItem и с вводом новых данных в пустую ячейку?

на оф. форуме это сделали (Edit In Place Listview (multi-column)), правда есть иногда проблемы с использованием многих колонок, а также если использовать иконки/чекбоксы для элементов..

rimm,

Цитата:

кто может помочь с английским переводом описаний функций

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

Попробуй обратиться к Валере.

Vikma19 · Отправлено: **16:58, 13-01-2008** | #**962**

Creat0R,

Цитата Creat0R:

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

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

Creat0R · Конфигурация компьютера

Vikma19,

Цитата:

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

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

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

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

Vikma19 · Отправлено: **18:07, 13-01-2008** | #**964**

Creat0R,

Цитата Creat0R:

(Edit In Place Listview (multi-column)) »

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

Creat0R · Конфигурация компьютера

Vikma19,

Цитата:

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

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

Vikma19 · Отправлено: **11:16, 14-01-2008** | #**966**

Цитата Creat0R:

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

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

Creat0R · Конфигурация компьютера

Vikma19,

Цитата:

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

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

Цитата:

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

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

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

Vikma19 · Отправлено: **12:36, 14-01-2008** | #**968**

Цитата Creat0R:

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

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

Timurko · Отправлено: **12:44, 14-01-2008** | #**969**

Помогите решить проблему. Есть исходный файл "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 Обучение Клэр

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

PHP код:


#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 часа:

PHP код:


#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 Обучение Клэр

Creat0R · Конфигурация компьютера

Timurko,
С массивом я вижу одну проблему - нужно к Ubound() добавить -1...

Код:

For $i = 1 To UBound($strArray)-1

Цитата:

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

Через RegExp сложновато (хотя мне кажется вовсе не реально

), но вот через массив...

Код:

#include <Array.au3>

$String = _
    "05:00, 22:30 Малхолланд Драйв" & @CRLF & _
    "07:30 Евротрип" & @CRLF & _
    "09:00 Свадьба на Рождество" & @CRLF & _
    "11:00 Без ума от любви" & @CRLF & _
    "13:00 Брюс Всемогущий" & @CRLF & _
    "15:00 Красная шапочка" & @CRLF & _
    "16:30 Нечего декларировать" & @CRLF & _
    "18:30 Ze фильм" & @CRLF & _
    "20:30 Львиное сердце" & @CRLF & _
    "01:00 Увеселительница" & @CRLF & _
    "03:00 Обучение Клэр"

Dim $aStrArray = StringSplit(StringStripCR($String), @LF)
Dim $aNewArray[1]

For $i = 1 To $aStrArray[0]
    If StringRegExp($aStrArray[$i], ", \d\d:\d\d") Then
        $aNewArray[0] += 2
        ReDim $aNewArray[$aNewArray[0] + 1]
        $aNewArray[$aNewArray[0]-1] = StringRegExpReplace($aStrArray[$i], ", \d\d:\d\d", "")
        $aNewArray[$aNewArray[0]] = StringRegExpReplace($aStrArray[$i], ".*, (\d\d:\d\d.*$)", "\1")
    Else
        $aNewArray[0] += 1
        ReDim $aNewArray[$aNewArray[0] + 1]
        $aNewArray[$aNewArray[0]] = $aStrArray[$i]
    EndIf
Next

_ArraySort($aNewArray, 0, 1)
_ArrayDisplay($aNewArray)

Совсем другое дело