Проверка повтора - Форум NeoBook

Дата: Пн, 19 Сентября 2011, 22:03 | Сообщение # 1

Любопытный

Всем привет. Вообщем такое дело... Можно ли реализовать что-то вроде этого.

Quote

У нас есть строка в ней будут записаны цифры, получается 0-9 но не в них дело. Суть в том что бы воссоздать код который будет проверять заданную строку на наличие одинаковых символов. Ну и естественно оповещать если они есть.

Пример дал в цифрах, может так легче будет. Мне что-то ничего в голову не приходит. Нужен какой-то толчек, направление... Ну и конечно желательно без плагинов.

NeoBook 5.7.1

Format-X22

Дата: Пн, 19 Сентября 2011, 22:15 | Сообщение # 2

Участник

Да это же примитив!
Какие тут могут быть плагины вообще?
Отрезаем первый символ, сверяем с остальными, если повторов нет - берем второй и т.д. Если найдено совпадение - тормозим. Через Loop.

Мой сайт - http://фирмы.онлайн

Если хелп и форум не помогли, тогда все ответы здесь

Дата: Пн, 19 Сентября 2011, 22:34 | Сообщение # 3

Любопытный

Что-то разрисовываться...
Когда есть 9 переменных с символами:
[1]-[9]
Проверяем с другими:
If "[1]" "=" "[2]"
+
Else
-
EndIf
Зациклим:
Loop "1" "9" "[a]"
Loop "1" "9" "[b]"
If "[a]" "=" "[b]"
+
Else
-
EndIf

эээууу.... збился....
надо убирать используемую переменную с цикла....

NeoBook 5.7.1

mishem

Дата: Вт, 20 Сентября 2011, 00:18 | Сообщение # 4

Эксперт форума

Kaktuz, если 0-9, то SearchStr тебе в помощь. Без всяких циклов.

Не хочешь читать хелп?

Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.

Дата: Вт, 20 Сентября 2011, 10:57 | Сообщение # 5

Необукер

можно через список(ListBoxFindItem) и без циклов

Дата: Вт, 20 Сентября 2011, 12:06 | Сообщение # 6

Админ NeoBook

Quote (mishem)

если 0-9, то SearchStr тебе в помощь. Без всяких циклов

Quote (Сергей)

можно через список(ListBoxFindItem) и без циклов

Можно не только с цифрами, правда без циклов все-равно не обойтись.
Возможный пример в прикреплении.

Прикрепления: SearchString.rar (1.9 Kb)

- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!

При модном втюхе модоподдающимся начинает нравиться

Дата: Вт, 20 Сентября 2011, 13:18 | Сообщение # 7

Любопытный

О! Хороший пример Peter. В суть кода еще не углублялся, позже. Но думаю там получится кое что подправить что бы в итоге выделялось больше двух одинаковых позиций. Ну и так как это будет девять объектов, их тоже надо будет выделить.
В любом случаи всем спасибо, попробуем

NeoBook 5.7.1

Дата: Вт, 20 Сентября 2011, 17:02 | Сообщение # 8

Админ NeoBook

Quote (Kaktuz)

думаю там получится кое что подправить что бы в итоге выделялось больше двух одинаковых позиций.

Это уже на ваше усмотрение, т.к. приведенный мною код - только пример, и, возможно, не самый рациональный алгоритмически (но это не означает, что не самый быстрый в данном случае).

При модном втюхе модоподдающимся начинает нравиться

Дата: Вс, 02 Октября 2011, 15:55 | Сообщение # 9

Любопытный

Подскажите еще один нюанс поиска. Я могу организовать поиск... мм.. Вообщем такого плана.
Есть текст к примеру:
00001464639000140945
Берем за пример простые значения. Ну и необходимо читать строку и копировать в переменную только ту часть которая находится в промежутке 1-9 (включая 1-9). Все остальное остается нетронутым.

NeoBook 5.7.1

Дата: Вс, 02 Октября 2011, 16:09 | Сообщение # 10

Админ NeoBook

Quote (Kaktuz)

необходимо читать строку и копировать в переменную только ту часть которая находится в промежутке 1-9 (включая 1-9).

Kaktuz, фактически вы сами и ответили на свой вопрос.

Команды SearchStr и SubStr - в помощь.

Вы сами-то хоть пытались что-то сделать?

При модном втюхе модоподдающимся начинает нравиться

Дата: Вс, 02 Октября 2011, 16:25 | Сообщение # 11

Необукер

а в чем трудность?
SearchStr "1" "[str]" "[Search]" ""
SubStr "[str]" "[Search]-1" "9" "[out]"

Дата: Вс, 02 Октября 2011, 16:40 | Сообщение # 12

Админ NeoBook

Quote (Сергей)

SearchStr "1" "[str]" "[Search]" ""
SubStr "[str]" "[Search]-1" "9" "[out]"

Этот код будет работать неправильно.

Подождем вариант решения от автора вопроса.

При модном втюхе модоподдающимся начинает нравиться

Дата: Вс, 02 Октября 2011, 17:00 | Сообщение # 13

Любопытный

Точно, точно.

Вот что получилось в итоге:
Строка в файле: 0001Text9000001000009000
Кнопка

Code

FileRead "[PubDir]Test.txt" "1" "[Line]"
SearchStr "1" "[Line]" "[N1]" ""
SearchStr "9" "[Line]" "[N2]" ""
Math "([N2]-[N1])-1" "-1" "[N]"
SubStr "[Line]" "[N1]+1" "[N]" "[Text]"

Вот только еще надо это все дело продолжить, что бы не только одна строка выводилась.

NeoBook 5.7.1

Сообщение отредактировано
Kaktuz - Вс, 02 Октября 2011, 17:03

Дата: Вс, 02 Октября 2011, 17:33 | Сообщение # 14

Админ NeoBook

Ну, в принципе, направление правильное, только команду Math можно исключить, и записать примерно так:

Code

SearchStr "1" "[Line]" "[N1]" ""
SearchStr "9" "[Line]" "[N2]" ""
SubStr "[Line]" "[N1]" "[N2]-[N1]+1" "[Text]"

Quote (Kaktuz)

дело продолжить, что бы не только одна строка выводилась.

Kaktuz, отсекаете из строки все до позиции символа 9 (включительно), и - по второму кругу...
Потом - по третьему, и т.д. сколько потребуется.

Добавлено (02 Октябрь 2011, 17:33)
---------------------------------------------
Да, кстати, нелишним будет учесть в коде ситуацию когда "9" в строке идет раньше "1", и т.п.

При модном втюхе модоподдающимся начинает нравиться

Дата: Вс, 02 Октября 2011, 17:56 | Сообщение # 15

Любопытный

Думаю можно сделать чуток проще и использовать начало как A1 и окончание как B1. Добавить в цикл и норм. А! Ну и конечно же первым символом будет длина цикла.

Code

FileRead "[PubDir]Test.txt" "1" "[Test]"
SubStr "[Test]" "1" "2" "[X]"
Loop "1" "[X]" "[i]"
    FileRead "[PubDir]Test.txt" "1" "[Line]"
    SearchStr "A[i]" "[Line]" "[N1]" ""
    SearchStr "B[i]" "[Line]" "[N2]" ""
    If "[N1]" "<" "[N2]"
       Math "([N2]-[N1])-2" "-1" "[N]"
       SubStr "[Line]" "[N1]+2" "[N]" "[Text]"
       ListBoxAddItem "ListBox2" "0" "[Text]"
    EndIf
EndLoop
AlertBox "Message" "Done!"

А проверка... Ну тогда загрузка отменяется, переходим дальше.

NeoBook 5.7.1

Дата: Вс, 02 Октября 2011, 18:02 | Сообщение # 16

Необукер

Quote (Peter)

Этот код будет работать неправильно.

написал в блокноте по памяти, не тестил, не вникал в логику, просто направление дал. Если надо скопипастить, то на форуме тем по парсингу миллион и больше, этот сабж очередной дубляж

Добавлено (02 Октябрь 2011, 18:02)
---------------------------------------------
Для этого сабжа в самый раз, можно использовать регулярку (1.*?9) найдет все совпадения

Дата: Вс, 02 Октября 2011, 18:54 | Сообщение # 17

Админ NeoBook

Quote (Kaktuz)

Гм...
Kaktuz, то, что вы представили в своем последнем коде, мягко говоря, отличается от обозначенной ранее задачи.
Вы этот код в работа проверяли?
Честно говоря, есть большие сомнения в его работоспособности в принципе.

Quote (Сергей)

не вникал в логику, просто направление дал

Направление было дадено ранее, а если "не вникал в логику", то - ....

Quote (Сергей)

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

Это подразумевает использование плагинов или "внешних" скриптовых языков.
Только вот зачем, если это можно сделать средствами самой NeoBook?

При модном втюхе модоподдающимся начинает нравиться

Дата: Вс, 02 Октября 2011, 19:01 | Сообщение # 18

Необукер

Quote (Peter)

Направление было дадено ранее

ты крут...
только когда я начал отвечать ни каких ответов не было.

Quote (Peter)

Только вот зачем, если это можно сделать средствами самой NeoBook

чтоб не городить то, что выше. Известно, что в НБ нет поиска по маске, а с помощью регулярок максимум 2 строчки кода...

Дата: Вс, 02 Октября 2011, 19:33 | Сообщение # 19

Админ NeoBook

Quote (Сергей)

ты крут...

Мы, что, пиписками меряемся, что ли?...

Quote (Сергей)

только когда я начал отвечать ни каких ответов не было.

На неточный ответ (без вникания в логику и т.п.) из трех строчек потребовалось полчаса?

Да, ладно... Какая разница...

Quote (Сергей)

чтоб не городить то, что выше.

Городить?
А для чего, вообще, язык скриптов в NB присутствует?
Для того, чтобы записать GoToPage и все?

Мастерство заключается в том, чтобы при минимуме средств получить максимальный результат!
Ас-мастер свои проекты вообще без плагинов (за исключением очень редких ситуаций, когда было просто никак) делал!
И КАК делал!

А у нас в NB (при том условии, что NB может больше ММВ) уже сформировалась практика: чуть что - подайте плагин с командой в одну строчку!

При модном втюхе модоподдающимся начинает нравиться

Дата: Вс, 02 Октября 2011, 20:09 | Сообщение # 20

Необукер

Сообщение отредактировано
Сергей - Вс, 02 Октября 2011, 20:18

Дата: Вс, 02 Октября 2011, 21:04 | Сообщение # 21

Админ NeoBook

Quote (Сергей)

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

Никак не может прийти в гоову, что "отвлечение" может служить объяснением неправильного ответа.

Сергей, я ж сказал:

Quote (Peter)

Да, ладно... Какая разница...

К чему все эти "попытки-оправдания"?

Quote (Сергей)

Это просто тупо и геморно искать в строке 00001Text90001tExt9495010001teXt90001texT945 все совпадения 1***9 средствами НБ, когда есть простой и надежный способ.

И чего же тут тупого и геморного-то?
Все элементарно просто.
Может код и не идеален, но, первое, что пришло на ум...
См. прикрепление.

Quote (Сергей)

Чтоб писать, как мне удобно, комфортно

Впрочем, какой смысл спорить?
Каждый сам себе режиссер...

Прикрепления: Test.rar (1.9 Kb)

При модном втюхе модоподдающимся начинает нравиться

Дата: Вс, 02 Октября 2011, 22:06 | Сообщение # 22

Необукер

Kaktuz, если ты не страдаешь идеализмом, то пример с регуляркой в прищепке
Там два способа и парсят по разному. Можешь, если есть желание, нагуглить и другие примеры регулярок по парсингу сабжа, т.е. есть возможность настроить так, как нужно с учетом такой последовательности из строки 056100012229096500 = 100012229, 12229, 10001222909 и т.д. выбрать нужное. Ну либо доделывать пример на НБ.

Прикрепления: regexp.rar (2.5 Kb)

Сообщение отредактировано
Сергей - Вс, 02 Октября 2011, 22:09

Дата: Вс, 02 Октября 2011, 22:25 | Сообщение # 23

Админ NeoBook

При модном втюхе модоподдающимся начинает нравиться

Дата: Вс, 02 Октября 2011, 22:37 | Сообщение # 24

Необукер

Дата: Вс, 02 Октября 2011, 23:11 | Сообщение # 25

Админ NeoBook

При модном втюхе модоподдающимся начинает нравиться

Дата: Вс, 02 Октября 2011, 23:59 | Сообщение # 26

Необукер

Дата: Пн, 03 Октября 2011, 00:29 | Сообщение # 27

Админ NeoBook

При модном втюхе модоподдающимся начинает нравиться

Дата: Пн, 03 Октября 2011, 01:19 | Сообщение # 28

Необукер

Дата: Пн, 03 Октября 2011, 21:22 | Сообщение # 29

Любопытный

Скажите. По каким причинам NB выполняет команду не так как указанно?
Команда:
SetVar "[A]" "89504E47"
В итоге при работе:
8,9504E51
А с SetVar "[Z]" "AE426082" все нормально.

NeoBook 5.7.1