Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.09.2014, 12:16   #1
jamayka
 
Регистрация: 18.09.2014
Сообщений: 8
Лампочка Изменить программу подключения к группам VK

У меня проблема есть программа и код программы , с этим кодом автоматически вступает в группы вк НО я хотел чтоб она вступала не во все подряд группы а именно с поиском слов в названии , я пытался изменить своими силами но только добился того что она вступает в конкретное название то есть в точно название группы , а мне нужно по самих словах например в название есть слово цветы "сад и цветы" чтоб оно делало поиск по названию этого слова и если оно есть то вступало , на данный момент кидаю сам код , и тот код который я изменил , помогите пожалуйста добиться того чего я хочу , Спасибо.

ЭТО ОРИГИНАЛ
last = ask_string("Создайте группу и введите ее номер.\nЭто нужно чтобы определить какой номер последний").to_i

Код:
while true
     
     #Не вылетаем на исключениях
     
     safe{
           #Существует ли такая группа?
           group = Group.id(last)



           #Игнорируем ошибки
           safe do

                  #Если группа открыта
                  if group.open
          
                    #Войти
                    group.enter
          
                  end
          end
     
          #Перейти к следующей
          last+=1
    }

end 

ЭТО ТО ЧТО Я ИЗМЕНИЛ


last = ask_string("Создайте группу и введите ее номер.\nЭто нужно чтобы определить какой номер последний").to_i


while true
     
     #Не вылетаем на исключениях
     
     safe{
           #Существует ли такая группа?
           group = Group.id(last)



           #Игнорируем ошибки
           safe do

                  #Если группа открыта
                  if group.open and group.name ==="цветы" or group.name === "собака" or group.name === "кот" or group.name === "любовь"
          
                    #Войти
                    group.enter
          
                  end
          end
     
          #Перейти к следующей
          last+=1
    }

end
пробовал и == и === результат не изменяется )

Последний раз редактировалось Stilet; 18.09.2014 в 12:40.
jamayka вне форума Ответить с цитированием
Старый 18.09.2014, 14:48   #2
jamayka
 
Регистрация: 18.09.2014
Сообщений: 8
По умолчанию Почему нет ответов?*((((

ПОМОГИТЕ ПЛЗ ОЧЕНЬ НУЖНО , ЛОМАЮ ГОЛОВУ ПРИДУМАТЬ НИЧЕГО НЕ МОГУ ...
jamayka вне форума Ответить с цитированием
Старый 18.09.2014, 15:14   #3
8Observer8
Старожил
 
Регистрация: 02.01.2011
Сообщений: 3,328
По умолчанию

Впервые вижу такой синтаксис Как называется язык?
8Observer8 вне форума Ответить с цитированием
Старый 18.09.2014, 15:26   #4
jamayka
 
Регистрация: 18.09.2014
Сообщений: 8
По умолчанию

я не знаю ((( я не программист , я нуждаюсь в помощи ))
jamayka вне форума Ответить с цитированием
Старый 18.09.2014, 16:08   #5
disbnt
Пользователь
 
Регистрация: 18.09.2014
Сообщений: 32
По умолчанию

if group.open and (pos('цветы',group.name) > 0) then
begin
group.enter
end

функция pos() чуствительна к регистру если искать 'цветы' а там 'Цветы' то не найдет
disbnt вне форума Ответить с цитированием
Старый 18.09.2014, 17:52   #6
jamayka
 
Регистрация: 18.09.2014
Сообщений: 8
По умолчанию

ошибку выбрасывает
jamayka вне форума Ответить с цитированием
Старый 18.09.2014, 21:02   #7
disbnt
Пользователь
 
Регистрация: 18.09.2014
Сообщений: 32
По умолчанию

Извиняюсь показалось что ето delphi
А какой программой компилируете или ето обычный текстовый документ?
Странный какой-то язык, Хотелось бы взглянуть полныть код скиньте мне исходники(лучше з программой) на disbnt@mail.ru
disbnt вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как соединить Access с Delphi. после подключения сообщение "не выполнена проверка подключения из-за ошибки при инициализации татьяна09 БД в Delphi 1 19.05.2014 09:47
Заплачу за программу подключения к Интернет. probov Фриланс 2 05.01.2010 07:10
Добавить или изменить текст при появлении ошибок подключения Doctor greid Win Api 0 06.11.2009 09:20
Изменить программу HECTOR.A. Помощь студентам 0 05.06.2009 00:06
Изменить номер подключения к Internet Акашаев Нурлан Безопасность, Шифрование 6 10.05.2007 10:27