HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ОФФТОП > Болталка
Перезагрузить страницу Вопрос по Excel
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

xxx
  #1  
Старый 20.09.2009, 17:00
GoodGod
Постоянный
Регистрация: 20.12.2006
Сообщений: 350
С нами: 10205606

Репутация: 584
Question xxx
xxx
𝕏 Twitter Reddit Telegram Копировать ссылку
Последний раз редактировалось GoodGod; 09.03.2010 в 20:52..
 
Ответить с цитированием

  #2  
Старый 20.09.2009, 17:02
noo0
Новичок
Регистрация: 16.07.2007
Сообщений: 1
С нами: 9906183

Репутация: 0
По умолчанию
регулярки
 
Ответить с цитированием

  #3  
Старый 20.09.2009, 17:07
Nelzone
Постоянный
Регистрация: 12.04.2008
Сообщений: 403
С нами: 9515846

Репутация: 261
По умолчанию
ест скрипт от шарки юзай ево
 
Ответить с цитированием

  #4  
Старый 20.09.2009, 17:24
GoodGod
Постоянный
Регистрация: 20.12.2006
Сообщений: 350
С нами: 10205606

Репутация: 584
По умолчанию
Цитата:
ест скрипт от шарки юзай ево
посмотрел я все 5 страниц выданные поиском по шарку, но чето то так и не найду то что нужно. может кинешь мне в пм?
 
Ответить с цитированием

  #5  
Старый 20.09.2009, 17:29
AlexPro
Новичок
Регистрация: 30.08.2008
Сообщений: 2
С нами: 9313947

Репутация: 3
По умолчанию
Есть такая программка... Специально для этого предназначена!

Вытаскивает из списка указанный вами домен и сразу же удаляет повторы!

Думаю, разобраться не проблема

Скачать

(NOD32 странно реагирует, пишет SpamTools.Agent - вероятно модифицированный троян)
Последний раз редактировалось AlexPro; 20.09.2009 в 17:37.. Причина: х3, писалось что троян o_O
 
Ответить с цитированием

  #6  
Старый 20.09.2009, 17:33
Gray_Wolf
Постоянный
Регистрация: 07.03.2009
Сообщений: 357
С нами: 9042754

Репутация: 399
По умолчанию
Ну или как-то так
PHP код:
Private Sub CommandButton1_Click()
Dim srt, fnd As String
fnd = "@mail.ru"
i = 1
txt = Cells(1, 1)
Do While txt <> ""
    txt = Cells(i, 1)
    If InStr(1, txt, fnd) = 0 Then
        Rows(i).Delete
        MsgBox InStr(1, txt, fnd)
    End If
    i = i + 1
Loop
End Sub 
 
Ответить с цитированием

  #7  
Старый 20.09.2009, 17:44
GoodGod
Постоянный
Регистрация: 20.12.2006
Сообщений: 350
С нами: 10205606

Репутация: 584
По умолчанию
thx
 
Ответить с цитированием
Ответ



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сетевой этикет (Перед тем, как задать вопрос хакеру) satana-fu Статьи 7 21.10.2009 07:40
ВКонтакте "счастливый фермер" ЖенькО Социальные сети 309 22.07.2009 11:35
Вопрос по Excel BlackSilver PHP 6 10.07.2009 14:01
Интернетчики задали российскому президенту очень странные вопросы podkashey Мировые новости. Обсуждения. 4 07.07.2006 16:53



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.