Недавние сообщения

Страницы: 1 2 [3] 4 5 ... 10
21
Общие вопросы по AutoIt / Re: Как посчитать однокоренные слова, на страницах сайта?
« Последний ответ от Anna Отправлен Август 18, 2018, 19:15:53 »
InnI  [?]
Цитировать
Поэтому и не находит
Что же делать? Нельзя ли добавить условие: если встретился [email protected] то заменить на значок "@"
22
Стол заказов / Re: Помогите сделать "бота" для игры
« Последний ответ от be4hoctb Отправлен Август 18, 2018, 19:14:39 »
У меня есть полностью рабочий бот по этой игре если интересно пишите в скайп
[email protected]
23
Общие вопросы по AutoIt / Re: Как посчитать однокоренные слова, на страницах сайта?
« Последний ответ от InnI Отправлен Август 18, 2018, 16:05:05 »
Anna  [?]
Цитировать
не видит "[email protected]#$%^&*()_" или "[email protected]#$%^&*()_Divergence"
InetRead скачивает страницу для незарегистрированного пользователя. К тому же на странице есть скрипты. В результате страница выглядит так (см. вложение). Поэтому и не находит.
24
Общие вопросы по AutoIt / Re: Как посчитать однокоренные слова, на страницах сайта?
« Последний ответ от Anna Отправлен Август 18, 2018, 00:22:42 »
Вот в этом сообщении оно есть :)
Слово необязательно должно начинаться на "Divergence". Возможные варианты: "WPR_Divergence.mq4", "[email protected]#$%^&*()_" "RSI_Divergence_v2".
25
Общие вопросы по AutoIt / Re: Как посчитать однокоренные слова, на страницах сайта?
« Последний ответ от Anna Отправлен Август 18, 2018, 00:13:08 »
Alofa
Вероятно я не правильно выразилась.
скрипт находит и пишет в файл всё как мне нужно
"Divergence".
"WPR_Divergence.mq4",
"RSI_Divergence_v2"
"divergence"
должно быть ещё словечко "[email protected]#$%^&*()_" после WPR_Divergence.mq4
26
Общие вопросы по AutoIt / Re: Как посчитать однокоренные слова, на страницах сайта?
« Последний ответ от Alofa Отправлен Август 18, 2018, 00:00:48 »
OffTopic
(нажмите для показа/скрытия)

... в общем всё что не отделено пробелом от "divergence"...
Прошу прощения за невнимательность.
27
Общие вопросы по AutoIt / Re: Как посчитать однокоренные слова, на страницах сайта?
« Последний ответ от Anna Отправлен Август 17, 2018, 22:33:59 »
InnI, Спасибо.
Не считает если есть спец. символы,
не видит "[email protected]#$%^&*()_" или "[email protected]#$%^&*()_Divergence"
Как сделать чтобы считал все?
Код: AutoIt [Выделить]
$word = "divergence"
$str = InetRead("http://autoit-script.ru/index.php?topic=26002.msg145122#msg145122") ;
$find = StringRegExp(BinaryToString($str, 4), "(?i)\S*" & $word & "\S*", 3) ;ищем слова
If IsArray($find) And UBound($find) >= 1 Then ;
    For $i in $find
        FileWriteLine(@ScriptDir & "\foundedwords1.txt", $i) ;записываем слова в файл foundedwords.txt
    Next
EndIf
 

28
Общие вопросы по AutoIt / Получить данные из окна 1С (либо не из окна, если можно)
« Последний ответ от Andruxakonst Отправлен Август 17, 2018, 16:20:38 »
Доброго всем времени суток, коллеги!
Имеется окно 1с с неким списком заданий. Запустить и заставить AutoIt добраться до этого окна получилось. Теперь вопрос: Как получить данные из этого окна (номер заявки, ФИО и наименование в частности) и передать в массив для дальнейшей обработки. Зачем? 1С на умеет автоматически обновляться! По тому нужно раз 20-30 минуть жамкать кнопку обновления и выискивать нужные мне заявки.
Иначе можно просто пропустить заявку.
Текста в frozen не видно.
Может есть какая возможность перехватывать приходящие данные.
В потрахах 1с не лазил ни разу.
Картинку окнон прикладываю для наглядносьти
29
Общие вопросы по AutoIt / Re: Как посчитать однокоренные слова, на страницах сайта?
« Последний ответ от InnI Отправлен Август 17, 2018, 12:05:58 »
Код: AutoIt [Выделить]
$word = "pai"
$find = StringRegExp(BinaryToString($str, 4), "(?i)\S*" & $word & "\S*", 3) ;ищем слова

30
Общие вопросы по AutoIt / Re: Как посчитать однокоренные слова, на страницах сайта?
« Последний ответ от Anna Отправлен Август 17, 2018, 10:02:42 »
Собираю сторонним софтом ссылки в файл. Из скрипта читаю и перехожу по ним.
Но как сделать чтобы сохранялись слова перед которыми есть символы например ищу "pai" находит "pairs",
"pair.." нужно чтобы находил ещё и "multipair". Как это сделать?
Код: AutoIt [Выделить]
#include <File.au3>
$oFile = FileOpen("lin.txt")
While 1
    $oURL = FileReadLine($oFile)
    If @error Then ExitLoop
$str = InetRead($oURL) ;читаем страницу https://www.forexfactory.com/showthread.php?t=526638
$find = StringRegExp(BinaryToString($str, 4), "(pai[^\h]*)\h", 3) ;ищем слова
If IsArray($find) And UBound($find) >= 3 Then ;если найдено 3 и более слов
    For $i in $find
        FileWriteLine(@ScriptDir & "\foundedwords1.txt", $i) ;записываем слова в файл foundedwords.txt
    Next
EndIf
Sleep(1000)
WEnd
FileClose($hFile)

Страницы: 1 2 [3] 4 5 ... 10