Überprüfen, ob String eine gültige Internetadresse ist

    • VB.NET

    Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

      Überprüfen, ob String eine gültige Internetadresse ist

      Hallo zusammen,
      für mein Programm QuExeCute habe ich mir eine kleine Klasse geschrieben, die erkennt, ob ein gegebener String eine Internetadresse ist oder nicht. Auch Strings wie "google.de" werden als URLs erkennt, was für mich sehr wichtig war. Wenn Ihr noch Fragen oder Verbesserungsvorschläge zu dem Code habt, lasst es mich wissen :)

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Class URL
      2. Dim MostUsedDomainList As New List(Of String)
      3. Dim UnsponsoredDomainList As New List(Of String)
      4. Dim SponsoredDomainList As New List(Of String)
      5. Dim StateDomainList As New List(Of String)
      7. Public Sub New()
      8. ' Meistgenutzte Domains
      9. MostUsedDomainList.AddRange({".com", ".de", ".net", ".uk", ".org", ".info", ".nl", ".eu", ".cn", ".biz"})
      11. ' Nichtgesponsorte Domains
      12. UnsponsoredDomainList.AddRange({".arpa", ".biz", ".com", ".info", ".name", ".net", ".org", ".pro"})
      14. ' Gesponsorte Domains
      15. SponsoredDomainList.AddRange({".aero", ".asia", ".cat", ".coop", ".edu", ".gov", ".int", ".jobs", ".mil", ".mobi", ".museum", ".post", ".tel", ".travel", ".xxx"})
      17. ' Länderspezfische Domains
      18. StateDomainList.AddRange({".ac", ".ad", ".ae", ".af", ".ag", ".ai", ".al", ".am", ".an", ".ao", ".aq", ".ar", ".as", ".at", ".au", ".aw", ".ax", ".az", _
      19. ".ba", ".bb", ".bd", ".be", ".bf", ".bg", ".bh", ".bi", ".bj", ".bl", ".bm", ".bn", ".bo", ".br", ".bq", ".bs", ".bt", ".bv", ".bw", ".by", ".bz", _
      20. ".ca", ".cc", ".cd", ".cf", ".cg", ".ch", ".ci", ".ck", ".cl", ".cm", ".cn", ".co", ".cr", ".cu", ".cv", ".cw", ".cx", ".cy", ".cz", ".cz", _
      21. ".de", ".dj", ".dk", ".dm", ".do", ".dz", _
      22. ".ec", ".ee", ".eg", ".eh", ".er", ".es", ".et", ".eu", _
      23. ".fi", ".fj", ".fk", ".fm", ".fo", ".fr", _
      24. ".ga", ".gb", ".gd", ".ge", ".gf", ".gg", ".gh", ".gi", ".gl", ".gm", ".gn", ".gp", ".gq", ".gr", ".gs", ".gt", ".gu", ".gw", ".gy", _
      25. ".hk", ".hm", ".hn", ".hr", ".ht", ".hu", _
      26. ".id", ".ie", ".il", ".im", ".in", ".io", ".iq", ".ir", ".is", ".it", _
      27. ".je", ".jm", ".jo", ".jp", _
      28. ".ke", ".kg", ".kh", ".ki", ".km", ".kn", ".kp", ".kr", ".kw", ".ky", ".kz", _
      29. ".la", ".lb", ".lc", ".li", ".lk", ".lr", ".ls", ".lt", ".lu", ".lv", ".ly", _
      30. ".ma", ".mc", ".md", ".me", ".mf", ".mg", ".mh", ".mk", ".ml", ".mm", ".mn", ".mo", ".mp", ".mq", ".mr", ".ms", ".mt", ".mu", ".mv", ".mw", ".mx", ".my", ".mz", _
      31. ".na", ".nc", ".ne", ".nf", ".ng", ".ni", ".nl", ".no", ".np", ".nr", ".nu", ".nz", _
      32. ".om", _
      33. ".pa", ".pe", ".pf", ".pg", ".ph", ".pk", ".pl", ".pm", ".pn", ".pr", ".ps", ".pt", ".pw", ".py", _
      34. ".qa", _
      35. ".re", ".ro", ".rs", ".ru", ".rw", _
      36. ".sa", ".sb", ".sc", ".sd", ".se", ".sg", ".sh", ".si", ".sj", ".sk", ".sl", ".sm", ".sn", ".so", ".sr", ".ss", ".st", ".su", ".sv", ".sx", ".sy", ".sz", _
      37. ".tc", ".td", ".tf", ".tg", ".th", ".tj", ".tk", ".tl", ".tm", ".tn", ".to", ".tp", ".tr", ".tt", ".tv", ".tw", ".tz", ".ua", ".ug", ".um", ".us", ".uy", ".uz", _
      38. ".va", ".vc", ".ve", ".vg", ".vi", ".vn", ".vu", _
      39. ".wf", ".ws", _
      40. ".ye", ".yt", _
      41. ".za", ".zm", ".zw"})
      42. End Sub
      44. Public Function IsURL(ByVal Text As String, Optional ByVal Level As Integer = 0) As Boolean
      45. Dim start As Boolean = Text.StartsWith("http://") Or Text.StartsWith("https://")
      46. Dim simple As Boolean = False
      47. Dim unsponsored As Boolean = False
      48. Dim sponsored As Boolean = False
      49. Dim state As Boolean = False
      51. If Level <= 3 And Level >= 0 Then
      52. simple = TestList(MostUsedDomainList, Text)
      53. Else
      54. Throw New ArgumentException("Level must be between 0 and 4")
      55. End If
      57. If Level > 0 Then
      58. unsponsored = TestList(UnsponsoredDomainList, Text)
      59. End If
      61. If Level > 1 Then
      62. sponsored = TestList(SponsoredDomainList, Text)
      63. End If
      65. If Level > 2 Then
      66. state = TestList(StateDomainList, Text)
      67. End If
      69. If (start Or simple Or unsponsored Or sponsored Or state) And Not Text.Contains(" ") Then
      70. Return True
      71. Else
      72. Return False
      73. End If
      74. End Function
      76. Private Function TestList(ByVal List As List(Of String), ByVal Text As String) As Boolean
      77. Dim result As Boolean = False
      79. For Each item As String In List
      80. If Text.Contains(item) Then
      81. result = True
      82. Exit For
      83. End If
      84. Next
      86. Return result
      87. End Function
      88. End Class

      Viele Grüße
      leolabs

      Typischer Anwendungsfall für eine Enumeration.

      VB.NET-Quellcode

      1. public enum DomainTyp As Integer
      2. Unsponsored = 0
      3. Sponsored
      4. State
      Nun kannst du level als DomainTyp deklarieren

      VB.NET-Quellcode

      1. Public Function IsURL(ByVal Text As String, Optional ByVal Level As DomainTyp = Unsponsored) As Boolean
      Im weiteren Code und in Intellisense hast du nun aussagefähige Namen statt der doofen Zahlen.
      Auch ist dadurch ausgeschlossen, dass ein ungültiger Level angegeben werden kann.

      Derzeit ist zB level 3 eiglich ungültig, wird aber ohne Exception verarbeitet, als seis level 2

      C-Quellcode

      1. public static class RegularExpressions {
      2. private static string LATIN_ACCENTS_CHARS;
      3. private static string URL_VALID_PRECEEDING_CHARS;
      4. private static string URL_VALID_CHARS;
      5. private static string URL_VALID_SUBDOMAIN;
      6. private static string URL_VALID_DOMAIN_NAME;
      7. private static string URL_VALID_UNICODE_CHARS;
      8. private static string URL_VALID_GTLD;
      9. private static string URL_VALID_CCTLD;
      10. private static string URL_PUNYCODE;
      11. private static string URL_VALID_DOMAIN;
      12. private static string URL_VALID_PORT_NUMBER;
      13. private static string URL_VALID_GENERAL_PATH_CHARS;
      14. private static string URL_BALANCED_PARENS;
      15. private static string URL_VALID_PATH_ENDING_CHARS;
      16. private static string URL_VALID_PATH;
      17. private static string URL_VALID_URL_QUERY_CHARS;
      18. private static string URL_VALID_URL_QUERY_ENDING_CHARS;
      19. private static string VALID_URL_PATTERN_STRING;
      20. public static Regex VALID_URL;
      21. public static int VALID_URL_GROUP_ALL;
      22. public static int VALID_URL_GROUP_BEFORE;
      23. public static int VALID_URL_GROUP_URL;
      24. public static int VALID_URL_GROUP_PROTOCOL;
      25. public static int VALID_URL_GROUP_DOMAIN;
      26. public static int VALID_URL_GROUP_PORT;
      27. public static int VALID_URL_GROUP_PATH;
      28. public static int VALID_URL_GROUP_QUERY_STRING;
      30. static RegularExpressions() {
      31. LATIN_ACCENTS_CHARS = "\\u00c0-\\u00d6\\u00d8-\\u00f6\\u00f8-\\u00ff\\u0100-\\u024f\\u0253\\u0254\\u0256\\u0257\\u0259\\u025b\\u0263\\u0268\\u026f\\u0272\\u0289\\u028b\\u02bb\\u0300-\\u036f\\u1e00-\\u1eff";
      32. URL_VALID_PRECEEDING_CHARS = "(?:[^\\-/\"'!=A-Z0-9_@＠$#＃.\\u202A-\\u202E]|^)";
      33. URL_VALID_CHARS = string.Concat("\\p{L}\\p{N}", LATIN_ACCENTS_CHARS);
      34. string[] uRLVALIDCHARS = new string[7];
      35. uRLVALIDCHARS[0] = "(?:(?:[";
      36. uRLVALIDCHARS[1] = URL_VALID_CHARS;
      37. uRLVALIDCHARS[2] = "][";
      38. uRLVALIDCHARS[3] = URL_VALID_CHARS;
      39. uRLVALIDCHARS[4] = "\\-_]*)?[";
      40. uRLVALIDCHARS[5] = URL_VALID_CHARS;
      41. uRLVALIDCHARS[6] = "]\\.)";
      42. URL_VALID_SUBDOMAIN = string.Concat(uRLVALIDCHARS);
      43. uRLVALIDCHARS = new string[7];
      44. uRLVALIDCHARS[0] = "(?:(?:[";
      45. uRLVALIDCHARS[1] = URL_VALID_CHARS;
      46. uRLVALIDCHARS[2] = "][";
      47. uRLVALIDCHARS[3] = URL_VALID_CHARS;
      48. uRLVALIDCHARS[4] = "\\-]*)?[";
      49. uRLVALIDCHARS[5] = URL_VALID_CHARS;
      50. uRLVALIDCHARS[6] = "]\\.)";
      51. URL_VALID_DOMAIN_NAME = string.Concat(uRLVALIDCHARS);
      52. URL_VALID_UNICODE_CHARS = "[.[^\\p{P}\\p{S}\\s\\p{Z}\\p{IsGeneralPunctuation}]]";
      53. URL_VALID_GTLD = "(?:(?:aero|asia|biz|cat|com|coop|edu|gov|info|int|jobs|mil|mobi|museum|name|net|org|pro|tel|travel|xxx)(?=\\P{L}|$))";
      54. URL_VALID_CCTLD = "(?:(?:ac|ad|ae|af|ag|ai|al|am|an|ao|aq|ar|as|at|au|aw|ax|az|ba|bb|bd|be|bf|bg|bh|bi|bj|bm|bn|bo|br|bs|bt|bv|bw|by|bz|ca|cc|cd|cf|cg|ch|ci|ck|cl|cm|cn|co|cr|cs|cu|cv|cx|cy|cz|dd|de|dj|dk|dm|do|dz|ec|ee|eg|eh|er|es|et|eu|fi|fj|fk|fm|fo|fr|ga|gb|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|sj|sk|sl|sm|sn|so|sr|ss|st|su|sv|sy|sz|tc|td|tf|tg|th|tj|tk|tl|tm|tn|to|tp|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)(?=\\P{L}|$))";
      55. URL_PUNYCODE = "(?:xn--[0-9a-z]+)";
      56. uRLVALIDCHARS = new string[29];
      57. uRLVALIDCHARS[0] = "(?:";
      58. uRLVALIDCHARS[1] = URL_VALID_SUBDOMAIN;
      59. uRLVALIDCHARS[2] = "+";
      60. uRLVALIDCHARS[3] = URL_VALID_DOMAIN_NAME;
      61. uRLVALIDCHARS[4] = "(?:";
      62. uRLVALIDCHARS[5] = URL_VALID_GTLD;
      63. uRLVALIDCHARS[6] = "|";
      64. uRLVALIDCHARS[7] = URL_VALID_CCTLD;
      65. uRLVALIDCHARS[8] = "|";
      66. uRLVALIDCHARS[9] = URL_PUNYCODE;
      67. uRLVALIDCHARS[10] = "))|(?:";
      68. uRLVALIDCHARS[11] = URL_VALID_DOMAIN_NAME;
      69. uRLVALIDCHARS[12] = "(?:";
      70. uRLVALIDCHARS[13] = URL_VALID_GTLD;
      71. uRLVALIDCHARS[14] = "|";
      72. uRLVALIDCHARS[15] = URL_PUNYCODE;
      73. uRLVALIDCHARS[16] = "))|(?:(?<=https?://)(?:(?:";
      74. uRLVALIDCHARS[17] = URL_VALID_DOMAIN_NAME;
      75. uRLVALIDCHARS[18] = URL_VALID_CCTLD;
      76. uRLVALIDCHARS[19] = ")|(?:";
      77. uRLVALIDCHARS[20] = URL_VALID_UNICODE_CHARS;
      78. uRLVALIDCHARS[21] = "+\\.(?:";
      79. uRLVALIDCHARS[22] = URL_VALID_GTLD;
      80. uRLVALIDCHARS[23] = "|";
      81. uRLVALIDCHARS[24] = URL_VALID_CCTLD;
      82. uRLVALIDCHARS[25] = "))))|(?:";
      83. uRLVALIDCHARS[26] = URL_VALID_DOMAIN_NAME;
      84. uRLVALIDCHARS[27] = URL_VALID_CCTLD;
      85. uRLVALIDCHARS[28] = "(?=/))";
      86. URL_VALID_DOMAIN = string.Concat(uRLVALIDCHARS);
      87. URL_VALID_PORT_NUMBER = "[0-9]+";
      88. URL_VALID_GENERAL_PATH_CHARS = string.Concat("[a-z0-9!\\*';:=\\+,.\\$/%#\\[\\]\\-_~\\|&", LATIN_ACCENTS_CHARS, "]");
      89. URL_BALANCED_PARENS = string.Concat("\\(", URL_VALID_GENERAL_PATH_CHARS, "+\\)");
      90. uRLVALIDCHARS = new string[5];
      91. uRLVALIDCHARS[0] = "[a-z0-9=_#/\\-\\+";
      92. uRLVALIDCHARS[1] = LATIN_ACCENTS_CHARS;
      93. uRLVALIDCHARS[2] = "]|(?:";
      94. uRLVALIDCHARS[3] = URL_BALANCED_PARENS;
      95. uRLVALIDCHARS[4] = ")";
      96. URL_VALID_PATH_ENDING_CHARS = string.Concat(uRLVALIDCHARS);
      97. uRLVALIDCHARS = new string[10];
      98. uRLVALIDCHARS[0] = "(?:(?:";
      99. uRLVALIDCHARS[1] = URL_VALID_GENERAL_PATH_CHARS;
      100. uRLVALIDCHARS[2] = "*(?:";
      101. uRLVALIDCHARS[3] = URL_BALANCED_PARENS;
      102. uRLVALIDCHARS[4] = URL_VALID_GENERAL_PATH_CHARS;
      103. uRLVALIDCHARS[5] = "*)*";
      104. uRLVALIDCHARS[6] = URL_VALID_PATH_ENDING_CHARS;
      105. uRLVALIDCHARS[7] = ")|(?:@";
      106. uRLVALIDCHARS[8] = URL_VALID_GENERAL_PATH_CHARS;
      107. uRLVALIDCHARS[9] = "+/))";
      108. URL_VALID_PATH = string.Concat(uRLVALIDCHARS);
      109. URL_VALID_URL_QUERY_CHARS = "[a-z0-9!?\\*'\\(\\);:&=\\+\\$/%#\\[\\]\\-_\\.,~\\|]";
      110. URL_VALID_URL_QUERY_ENDING_CHARS = "[a-z0-9_&=#/]";
      111. uRLVALIDCHARS = new string[13];
      112. uRLVALIDCHARS[0] = "((";
      113. uRLVALIDCHARS[1] = URL_VALID_PRECEEDING_CHARS;
      114. uRLVALIDCHARS[2] = ")((https?://)?(";
      115. uRLVALIDCHARS[3] = URL_VALID_DOMAIN;
      116. uRLVALIDCHARS[4] = ")(?::(";
      117. uRLVALIDCHARS[5] = URL_VALID_PORT_NUMBER;
      118. uRLVALIDCHARS[6] = "))?(/";
      119. uRLVALIDCHARS[7] = URL_VALID_PATH;
      120. uRLVALIDCHARS[8] = "*)?(\\?";
      121. uRLVALIDCHARS[9] = URL_VALID_URL_QUERY_CHARS;
      122. uRLVALIDCHARS[10] = "*";
      123. uRLVALIDCHARS[11] = URL_VALID_URL_QUERY_ENDING_CHARS;
      124. uRLVALIDCHARS[12] = ")?))";
      125. VALID_URL_PATTERN_STRING = string.Concat(uRLVALIDCHARS);
      126. VALID_URL = new Regex(VALID_URL_PATTERN_STRING, RegexOptions.IgnoreCase);
      127. VALID_URL_GROUP_ALL = 1;
      128. VALID_URL_GROUP_BEFORE = 2;
      129. VALID_URL_GROUP_URL = 3;
      130. VALID_URL_GROUP_PROTOCOL = 4;
      131. VALID_URL_GROUP_DOMAIN = 5;
      132. VALID_URL_GROUP_PORT = 6;
      133. VALID_URL_GROUP_PATH = 7;
      134. VALID_URL_GROUP_QUERY_STRING = 8;
      135. }
      137. public static bool IsUrl(string Text) {
      138. return VALID_URL.Match(Text).Success;
      139. }
      140. }
      Ausschnitt aus LittleTweet, mit Extension-Method unten dran. Entweder kannst dus nach VB.NET porten oder es in C# kompilieren und die Extension-Method nutzen.

      auch hier wäre eine Enumeration Programm-Element der Wahl: Alle deine VALID_URL_GROUP-Felder ließen sich zusammenfassen als:

      C-Quellcode

      1. public enum Valid_Url_Group { ALL=1, BEFORE, URL, PROTOCOL, DOMAIN, PORT, PATH, QUERY_STRING }

      Auch das mittm uRLVALIDCHARS-Array ist unnötig aufwändig, unleserlich, unsicher

      C-Quellcode

      1. //vergleiche:
      2. string[] uRLVALIDCHARS = new string[7];
      3. uRLVALIDCHARS[0] = "(?:(?:[";
      4. uRLVALIDCHARS[1] = URL_VALID_CHARS;
      5. uRLVALIDCHARS[2] = "][";
      6. uRLVALIDCHARS[3] = URL_VALID_CHARS;
      7. uRLVALIDCHARS[4] = "\\-_]*)?[";
      8. uRLVALIDCHARS[5] = URL_VALID_CHARS;
      9. uRLVALIDCHARS[6] = "]\\.)";
      10. URL_VALID_SUBDOMAIN = string.Concat(uRLVALIDCHARS);
      11. //mit:
      12. URL_VALID_SUBDOMAIN = string.Concat("(?:(?:[", URL_VALID_CHARS, "][", URL_VALID_CHARS, "\\-_]*)?[", URL_VALID_CHARS, "]\\,)");
      13. //oder gar mit:
      14. URL_VALID_SUBDOMAIN = string.Join(URL_VALID_CHARS, "(?:(?:[", "][", "\\-_]*)?[", "]\\,)");

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

      naja, ich dachte, es könnte dich interessieren, wie man die Umständlichkeit der zeilen #2 - #10 auch als Einzeiler (#12) formulieren kann.
      Auf die ganze Methode angewandt würde das den Code erheblich schnuckliger machen.
      Der Sicherheitsvorteil am ParamArray des Einzeilers ist, dass der Compiler die Anzahl der Array-Elemente selbst erkennt - du dich also nicht drum kümmern mußt, bei zufügen oder wegnehmen von Elementen die Array-Dimensionierung zu ändern.
      So als Tipp für eleganten und leichten Code-Stil für wen das interessiert - mit Nano-Sekunden hat das nix zu tun.

      Und die Klasse muß auch nicht geändert werden - die scheint ja praxiserprobt, und wird keinerlei Veränderungen mehr ausgesetzt sein - die ist gewissermaßen nur Beispiel für den Tipp - mehr nicht.

      Desgleichen der Hinweis auf Einsatz von Enums: Der Code sieht halt aus, als sei dir nicht bekannt, wie du das VB/c#-Sprachelement "Enum" für dich arbeiten lassen kannst.
      Zu wissen, wie das geht, könnte aber auch in vielen anneren Problemstellungen von Nutzen sein.

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „ErfinderDesRades“ ()