powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как удалить с листа Экселя строки с псевдоURL?
9 сообщений из 9, страница 1 из 1
Как удалить с листа Экселя строки с псевдоURL?
    #37276253
кладовщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть строки типа techno-trade.spb.ru, efas07.su и тп - т.е. WWW перед ними не стоит. Как по-простому эти выражения найти, но чтобы не спутать с e-mail. Пытался регулярное выражение составить, и что-то никак не выходит(((
-----
Гори в аду, Progress OpenEdge!!!
...
Рейтинг: 0 / 0
Как удалить с листа Экселя строки с псевдоURL?
    #37276343
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кладовщикчтобы не спутать с e-mailAдрес сайта не может содержать символ "@". Неужели так сложно проверить?
...
Рейтинг: 0 / 0
Как удалить с листа Экселя строки с псевдоURL?
    #37276579
кладовщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Akinaкладовщикчтобы не спутать с e-mailAдрес сайта не может содержать символ "@". Неужели так сложно проверить?
С помощью строковых ф-й сделал, а ч-з RegExp так и не придумал ((
-----
Гори в аду, Progress OpenEdge!!!
...
Рейтинг: 0 / 0
Как удалить с листа Экселя строки с псевдоURL?
    #37276610
Thermik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
кладовщик,

([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?\w

так устроит?
...
Рейтинг: 0 / 0
Как удалить с листа Экселя строки с псевдоURL?
    #37277419
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кладовщик,

Так как проверка простая, то с InStr и проще и быстрее, чем с регулярными выражениями:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Function IsEmail(txt As String) As Boolean
  IsEmail = InStr(txt, "@") >  0 
End Function

Sub test()
  
  Dim txt$
  
  txt = "techno-trade.spb.ru"
  Debug.Print txt, IsEmail(txt)
  
  txt = "NoName@NoMail.ru"
  Debug.Print txt, IsEmail(txt)
  
End Sub

P.S. Утащили ли в кладовку,
можете http://www.sql.ru/forum/actualutils.aspx?action=gotomsg&tid=851081&msg=10662292] традиционно
http://www.sql.ru/forum/actualthread.aspx?tid=852381&pg=1&mid=10689963#10689963] не отписывать :-)
...
Рейтинг: 0 / 0
Как удалить с листа Экселя строки с псевдоURL?
    #37277700
кладовщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ZVIКладовщик,

Так как проверка простая, то с InStr и проще и быстрее, чем с регулярными выражениями:

...

P.S. Утащили ли в кладовку,
можете традиционно не отписывать :-)
Дык это, еще до Вашего поста отписался :
кладовщикС помощью строковых ф-й сделал, а ч-з RegExp так и не придумал ((
-----
Гори в аду, Progress OpenEdge!!!
Дело в том, что есть и другие шаблоны, поэтому нужно как-то резко в регекспах продвинуться. А так сложилось, что до этого я их вообще никогда в руках не держал. ((( И в сети по-быстрому ничего типа "регекспы для малышей" не нашел (
...
Рейтинг: 0 / 0
Как удалить с листа Экселя строки с псевдоURL?
    #37277718
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Понятно. Информации по RegEx, в т.ч. по шаблонам в сети много. Вот из поисковика, что попроще:

Википедия, Регулярные выражения: http://ru.wikipedia.org/wiki/Регулярные_выражения

Объект RegExp http://www.script-coding.com/WSH/RegExp.html

Хулиганское использование Regex: http://habrahabr.ru/blogs/infosecurity/110387/

Регулярные выражения в VB: http://visualprogs.medyal.ru/all/4.html

RegExp для проверки синтаксиса адреса электронной почты: http://www.microsoft.com/rus/msdn/activ/msvb/archive/mixture/267.mspx

Русская справка по использованию RegExp в WSH и VB: http://download.ru/products/russkaya-spravka-po-ispolzovaniyu-regexp-v-wsh-i-vb/versions/1-0--882/get

How To Use Regular Expressions in Microsoft Visual Basic 6.0: http://support.microsoft.com/kb/818802

How to Find or Validate an Email Address: http://www.regular-expressions.info/email.html

How to: VBA email validation: http://www.msofficegurus.com/post/How-to-VBA-email-validation.aspx

Учтите только, что библиотека Microsoft VBScript Regular Expressions 5.5 (VBScript.dll) имеет ограниченную функциональность, особенно для неанглийских символов/выражений.
...
Рейтинг: 0 / 0
Как удалить с листа Экселя строки с псевдоURL?
    #37283212
кладовщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ZVIПонятно. Информации по RegEx, в т.ч. по шаблонам в сети много. Вот из поисковика, что попроще:
...

Спасибо, Русская справка по использованию RegExp в WSH и VB: http://download.ru/products/russkaya-spravka-po-ispolzovaniyu-regexp-v-wsh-i-vb/versions/1-0--882/get это в принципе то, что я хотел для старта.
Может еще что-то посоветуете, чтобы в тему парсинга ч-з VBA погрузиться?
...
Рейтинг: 0 / 0
Как удалить с листа Экселя строки с псевдоURL?
    #37283439
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот ссылки, которые когда-то рекомендовал Кирилл (KL):
http://msdn.microsoft.com/en-us/library/6wzad2b2(VS.85).aspx
http://www.mvps.org/dmcritchie/excel/grove_digitsid.htm#regexpr_ex
http://support.microsoft.com/default.aspx?scid=kb;en-us;818802&Product=vbb
http://www.tmehta.com/regexp/

Трудно предугадать, что окажется Вам более полезным.
Для поиска русскоязычных ресурсов лучше в поисковике набрать:
РЕГУЛЯРНЫЕ ВЫРАЖЕНИЯ можно добавить ещё VBA или VB
А для поиска преимущественно англоязычных написать: REGEX VBA

На всякий случай еще раз напомню, что не следует путать регулярные выражения, поддерживаемые в VBA и регулярные выражения VB.Net, т.к. вариант VB.Net поддерживают больше шаблонов, которые еще и корректно работают с русскоязычным (любым локальным) текстом.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как удалить с листа Экселя строки с псевдоURL?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]