Форум о ботах Eggdrop/Windrop

[ssd]

Добрый вечер. Очень нужен скрипт, который будет каждый час и 10мин проверять текстовый файл на сайте. В файле будут цифры, если цифры поменялись, то бот их будет писать на канале один раз и еще что бы можно было по команде вывести цифры на канал из данного текстового файла.
Буду очень благодарен за любую помощь.

[tvrsh]

Проверку каждый час десять минут надо делать с помощью таймеров. Это немного сложнее чем используя bind time. На последнем и остановимся.

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

# Биндим на каждые 00 минут. То-есть будет срабатывать раз в час.
bind time - "00 * * * *" timeccheck

# Начинаем процедуру в которой указываем канал куда будем писать новые цифры из файла.
proc timecheck {min hour day month year} {
set channel "#chan"

Далее открываем тему Работа с файлами и читаем там пункт номер 1.
Копипастим оттуда все строки кроме последней.

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

# Имя файла который будем читать.
set fname "yourfile.txt"

# Открываем доступ к файлу для чтения (мы не ловим ошибки, однако
# можно использовать catch {} в случае если файл отсутствует.
set fp [open $fname "r"]

# Тут мы считываем все данные из файла.
set data [read -nonewline $fp]

# Закрываем файл.
close $fp

Ну вот, все цифры у нас теперь в переменной data. Сохраняем ее во временный файл.

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

# Имя файла в который будем писать.
set fname "timedfile.txt"

# Открываем доступ к файлу для записи (мы не ловим ошибки, однако
# можно использовать catch {} в случае если файл отсутствует.
set fp [open $fname "w"]

# Тут мы записываем все данные файл.
puts $fp $data

# Закрываем файл.
close $fp

Далее, при следующей проверки мы должны снова считать данные из твоего файла и сравнить из с данными из временного, если результаты совпадут то оставить все как есть, если нет то вывести новые данные в канал и перезаписать их во временный файл. Выглядеть это будет примерно так:

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

# Проверяем наличие временного файла.
if {[file exists "timedfile.txt"]} {

# Считываем данные из обоих файлов и сравниваем их.
# Имя файла который будем читать.
set fname "yourfile.txt"

# Открываем доступ к файлу для чтения (мы не ловим ошибки, однако
# можно использовать catch {} в случае если файл отсутствует.
set fp [open $fname "r"]

# Тут мы считываем все данные из файла.
set data [read -nonewline $fp]

# Закрываем файл.
close $fp

# Имя файла который будем читать.
set fname "timedfile.txt"

# Открываем доступ к файлу для чтения (мы не ловим ошибки, однако
# можно использовать catch {} в случае если файл отсутствует.
set fp [open $fname "r"]

# Тут мы считываем все данные из файла.
set data2 [read -nonewline $fp]

# Закрываем файл.
close $fp

    # Если данные разные до переписываем данные из основного файла во временный.
    if {$data != $data2} {

    # Имя файла в который будем писать.
    set fname "timedfile.txt"

    # Открываем доступ к файлу для записи (мы не ловим ошибки, однако
    # можно использовать catch {} в случае если файл отсутствует.
    set fp [open $fname "w"]

    # Тут мы записываем все данные файл.
    puts $fp $data

    # Закрываем файл.
    close $fp
    }
}

И итоговый скрипт:

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

bind time - "00 * * * *" timeccheck
proc timecheck {min hour day month year} {
set channel "#chan"
    if {[file exists "timedfile.txt"]} {
        set fname "yourfile.txt"
        set fp [open $fname "r"]
        set data [read -nonewline $fp]
        close $fp
        set fname "timedfile.txt"
        set fp [open $fname "r"]
        set data2 [read -nonewline $fp]
        close $fp
            if {$data != $data2} {
                foreach line [split $data "\n"] {
                    putserv "PRIVMSG $channel :$line"
                }
                set fname "timedfile.txt"
                set fp [open $fname "w"]
                puts $fp $data
                close $fp
            }
    }
}

Ничего не тестировал. Может не работать.

[ssd]

tvrsh, спасибо большое. На днях попробую проверить.

[ssd]

tvrsh, Не покажешь как сделать. В файле к примеру так 1111 2222, что бы бот выводил не всю строку а цифры 111 т.е до пробела которые. Спасибо за ранее.

[tvrsh]

tvrsh, Не покажешь как сделать. В файле к примеру так 1111 2222, что бы бот выводил не всю строку а цифры 111 т.е до пробела которые. Спасибо за ранее.

[22:44:21] <@tvrsh> $$ set infile "111 222 333"; return [lindex [split $infile] 0]
[22:44:21] <+bionic> Return: 111 - 0.114 ms.

[wr`]

а если файл который будем читать на другом сервере,что нибудь от этого меняется?

# Имя файла который будем читать.
set fname "yourfile.txt"

Здесь прописываем путь до файла?

[tvrsh]

Да, здесь.

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

set fname "хттп:\\твойсайт.ру/yourfile.txt"