Regex - URL Regex ОСОБЕННО для Excel VBA

Question

Я пытаюсь найти свой собственный вариант URL-выражения для использования в vba

. Это то, что у меня сейчас есть:

((https?\:\/\/)?([^\s\.\-]{1,}(?:(?:\.|\-)[^\s\.\-]{1,}){0,})(?=\.(?:[^\s]{1,}){0,2}\/|$)(\.ac|\.ad|\.ae|\.af|\.ag|\.ai|\.al|\.am|\.ao|\.aq|\.ar|\.as|\.at|\.au|\.aw|\.ax|\.az|\.ba|\.bb|\.bd|\.be|\.bf|\.bg|\.bh|\.bi|\.bj|\.bm|\.bn|\.bo|\.br|\.bs|\.bt|\.bw|\.by|\.bz|\.ca|\.cc|\.cd|\.cf|\.cg|\.ch|\.ci|\.ck|\.cl|\.cm|\.cn|\.co|\.cr|\.cu|\.cv|\.cw|\.cx|\.cy|\.cz|\.de|\.dj|\.dk|\.dm|\.do|\.dz|\.ec|\.ee|\.eg|\.es|\.et|\.eu|\.fi|\.fj|\.fk|\.fm|\.fo|\.fr|\.ga|\.gd|\.ge|\.gf|\.gg|\.gh|\.gi|\.gl|\.gm|\.gn|\.gp|\.gq|\.gr|\.gs|\.gt|\.gu|\.gw|\.gy|\.hk|\.hm|\.hn|\.hr|\.ht|\.hu|\.id|\.ie|\.il|\.im|\.in|\.io|\.iq|\.ir|\.is|\.it|\.je|\.jm|\.jo|\.jp|\.ke|\.kg|\.kh|\.ki|\.km|\.kn|\.kp|\.kr|\.kw|\.ky|\.kz|\.la|\.lb|\.lc|\.li|\.lk|\.lr|\.ls|\.lt|\.lu|\.lv|\.ly|\.ma|\.mc|\.md|\.me|\.mg|\.mh|\.mk|\.ml|\.mm|\.mn|\.mo|\.mp|\.mq|\.mr|\.ms|\.mt|\.mu|\.mv|\.mw|\.mx|\.my|\.mz|\.na|\.nc|\.ne|\.nf|\.ng|\.ni|\.nl|\.no|\.np|\.nr|\.nu|\.nz|\.om|\.pa|\.pe|\.pf|\.pg|\.ph|\.pk|\.pl|\.pm|\.pn|\.pr|\.ps|\.pt|\.pw|\.py|\.qa|\.re|\.ro|\.rs|\.ru|\.rw|\.sa|\.sb|\.sc|\.sd|\.se|\.sg|\.sh|\.si|\.sk|\.sl|\.sm|\.sn|\.so|\.sr|\.ss|\.st|\.su|\.sv|\.sx|\.sy|\.sz|\.tc|\.td|\.tf|\.tg|\.th|\.tj|\.tk|\.tl|\.tm|\.tn|\.to|\.tr|\.tt|\.tv|\.tw|\.tz|\.ua|\.ug|\.uk|\.us|\.uy|\.uz|\.va|\.vc|\.ve|\.vg|\.vi|\.vn|\.vu|\.wf|\.ws|\.ye|\.yt|\.za|\.zm|\.zw)(\/[^\s]{0,})?)

В настоящее время я пытаюсь найти соответствие конкретномудоменные окончания, потому что я хочу исключить имена мобильных приложений (например, не следует включать com.king.candycrushsodasaga). Было бы очень хорошо, однако, если бы я мог использовать более универсальное регулярное выражение для достижения этой цели, поскольку вручную помещал все эти доменные окончанияне очень эффективно / эффективно

Если есть лучший способ сделать это, пожалуйста, дайте мне знать.

Благодарим за любую помощь.

Дополнительная информация: Я пытаюсьиспользуйте это для Excel, где я могу добавить несколько ссылок, включая мобильные приложения (например, com.king.candycrushsodasaga), в таблицу и сопоставить действительные веб-сайты в другом столбце, чтобы исключить не веб-сайты, такие как мобильные приложения.

Вот как выглядит таблица:

дополнительная справочная информация:

У меня уже есть функция vba, которая можетиспользоваться в качестве формулы.он принимает 2 аргумента, один из которых соответствует ячейке / диапазону, в котором находится URL, а другой - диапазону, в котором находится регулярное выражение.по какой-то причине длинные строки выдают "#value", поэтому мне пришлось разделить некоторые регулярные выражения.

это то, как выглядит формула:

=IF(IsMatch([@Url];RegularExps[URL Regex 1]);"Website";"Other")

Я уже пытался использовать регулярные выражения (или regexi, каким бы ни было множественное число для regex) из этого поста: Какое регулярное выражение лучше всего проверить, является ли строка допустимым URL-адресом?

Но мне не удалось ни с одним изих, так как они либо включают домены приложения, выдают #value или исключают действительные URL

Answer 1

Просто добавьте к вашему огромному чередованию \.com, как (...|\.com...), перед co, так как оно будет успешно совпадать, опуская m и не проверяя com.

Answer 2

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

Формула в B2:

=IF(COUNTIF($E$2:INDEX(E:E,COUNTA(E:E)),MID(A2,SEARCH("=",SUBSTITUTE(A2,".","=",LEN(A2)-LEN(SUBSTITUTE(A2,".",""))))+1,256))>0,"Website","Other")

Или

=IF(COUNTIF($E$2:INDEX(E:E,COUNTA(E:E)),TRIM(RIGHT(SUBSTITUTE(A2,".",REPT(" ",LEN(A1))),LEN(A1))))>0,"Website","Other")

Я просто добавил .com в список.Добавьте в список, если хотите, диапазон динамический.Вы также можете сделать это вне таблицы и сослаться на это.

Если вы решите использовать VBA, я не знаю, какой будет добавленная стоимость REGEX.Есть и другие пути, но на самом деле REGEX будет одним из них.Например, вы можете использовать:

Function WEBSITE(RNG As Range) As String

Select Case Evaluate("Trim(Right(Substitute(" & RNG.Address & ", ""."", Rept("" "", Len(" & RNG.Address & "))), Len(" & RNG.Address & ")))")
Case "ac", "ad", "ae", "af", "ag", "ai", "al", "am", "ao", "aq", "ar", _
    "as", "at", "au", "aw", "ax", "az", "ba", "bb", "bd", "be", "bf", "bg", _
    "bh", "bi", "bj", "bm", "bn", "bo", "br", "bs", "bt", "bw", "by", "bz", _
    "ca", "cc", "cd", "cf", "cg", "ch", "ci", "ck", "cl", "cm", "cn", "co", _
    "cr", "cu", "cv", "cw", "cx", "cy", "cz", "de", "dj", "dk", "dm", "do", _
    "dz", "ec", "ee", "eg", "es", "et", "eu", "fi", "fj", "fk", "fm", "fo", _
    "fr", "ga", "gd", "ge", "gf", "gg", "gh", "gi", "gl", "gm", "gn", "gp", _
    "gq", "gr", "gs", "gt", "gu", "gw", "gy", "hk", "hm", "hn", "hr", "ht", _
    "hu", "id", "ie", "il", "im", "in", "io", "iq", "ir", "is", "it", "je", _
    "jm", "jo", "jp", "ke", "kg", "kh", "ki", "km", "kn", "kp", "kr", "kw", _
    "ky", "kz", "la", "lb", "lc", "li", "lk", "lr", "ls", "lt", "lu", "lv", _
    "ly", "ma", "mc", "md", "me", "mg", "mh", "mk", "ml", "mm", "mn", "mo", _
    "mp", "mq", "mr", "ms", "mt", "mu", "mv", "mw", "mx", "my", "mz", "na", _
    "nc", "ne", "nf", "ng", "ni", "nl", "no", "np", "nr", "nu", "nz", "om", _
    "pa", "pe", "pf", "sl", "sm", "sn", "so", "sr", "ss", "st", "su", "sv", _
    "sx", "sy", "sz", "tc", "td", "tf", "tg", "th", "tj", "tk", "tl", "tm", _
    "tn", "to", "tr", "tt", "tv", "tw", "tz", "ua", "ug", "uk", "us", "uy", _
    "uz", "va", "vc", "ve", "vg", "vi", "vn", "vu", "wf", "ws", "ye", "yt", _
    "za", "zm", "zw", "com"

    WEBSITE = "Website"
Case Else
    WEBSITE = "Other"
End Select

End Function

Звоните как:

=WEBSITE(A2)