Reguläre Ausdrücke Sammlung

finde ich eine Super Idee, denn ich beschäftige mich auch gerade damit. Aber ich kapier das einfach nicht

URL (http, https, ftp):

^^((ht|f)tp(s?)\:\/\/|~/|/)?([\w]+:\w+@)?([a-zA-Z]{1}([\w\-]+\.)+([\w]{2,5}))(:[\d]{1,5})?((/?\w+/)+|/?)(\w+\.[\w]{3,4})?((\?\w+=\w+)?(&\w+=\w+)*)?

IPV6:

^(?:[0-9a-fA-F]{1,4}:){7}[0-9a-fA-F]{1,4}\z

IPV6 HexCompressed:

^((?:[0-9A-Fa-f]{1,4}(?::[0-9A-Fa-f]{1,4})*)?)::((?:[0-9A-Fa-f]{1,4}(?::[0-9A-Fa-f]{1,4})*)?)$

IPV6 6Hex4Dec:

^((?:[0-9A-Fa-f]{1,4}:){6,6})(25[0-5]||2[0-4]\d||[0-1]?\d?\d)(\.(25[0-5]||2[0-4]\d||[0-1]?\d?\d)){3}$

IPV6 Hex4DecCompressed:

^((?:[0-9A-Fa-f]{1,4}(?::[0-9A-Fa-f]{1,4})*)?) ::((?:[0-9A-Fa-f]{1,4}:)*)(25[0-5]||2[0-4]\d||[0-1]?\d?\d)(\.(25[0-5]||2[0-4]\d||[0-1]?\d?\d)){3}$

Deutsche PLZ:

\b((?:0[1-46-9]\d{3})||(?:[1-357-9]\d{4})||(?:[4][0-24-9]\d{3})||(?:[6][013-9]\d{3}))\b

eMail (einfach):

^([\w\-\.]+)@((\[([0-9]{1,3}\.){3}[0-9]{1,3}\])||(([\w\-]+\.)+)([a-zA-Z]{2,4}))$

eMail RFC 3696:

^[a-z0-9!\$'*+\-_]+(\.[a-z0-9!\$'*+\-_]+)*@([a-z0-9]+(-+[a-z0-9]+)*\.)+([a-z]{2}||aero||arpa||biz||cat||com||coop||edu||gov||info||int||jobs||mil||mobi||museum||name||net||org||pro||travel)$

String in Anführungszeichen:

^("||')((?!\1).||\1{2})*\1$

(Werbung: ist alles in der XInsert Bibliothek "RegEx" in jEdit4AutoIt auch drin

wie wäre es mit jeweils ein AnwenderBeispiel ?

Spalten aus CSV-Datei auslesen

;aus einer CSV-Datei die jeweilige Spalte in ein Array ausgeben


#include <Array.au3>


$txt = "Stadt,Land,Fluss,Farbe,Vorname,Nachname,Tier" & @CRLF   ;alternativ fileread("file.csv")
$txt &= "London,England,Themse,Blau,Heinz,Becker,Hund" & @CRLF
$txt &= "Mainz,Deutschland,Rhein,Gelb,Tim,Thaler,Katze" & @CRLF
$txt &= "Paris,Frankreich,Seine,Rot,Hilde,Meier,Maus"


ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $txt = ' & $txt & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console


$s = ","                                                        ;Separator, der in der CSV verwendt wird
$column = "D"                                                   ;Spalte, entweder als Buchstabe A-Z


$col = Asc(StringUpper($column)) - 64                           ;Spalte, als Spaltennummer einsbasierend


$pattern = '(?m)^(?:[^' & $s & ']*' & $s & '){' & $col - 1 & '}([^' & $s & ']*)' ;RegEx-Pattern


$res = StringRegExp($txt, $pattern, 3)                          ;RegEx
_ArrayDisplay($res, "Spalte " & $column)




$col = 1                                                        ;Spaltennummer einsbasierend
$pattern = '(?m)^(?:[^' & $s & ']*' & $s & '){' & $col - 1 & '}([^' & $s & ']*)' ;RegEx-Pattern
$res = StringRegExp($txt, $pattern, 3)                          ;regEx
_ArrayDisplay($res, "Spalte " & $col)

Primzahlen per RegEx

;primzahlen ab 3 mittels regex


$string = "1"
For $i = 3 To 3000 Step 2
    $string &= "11"
    If Not StringRegExp($string, "^1?$|^(11+?)\1+$", 0) Then ;regex matched KEINE Primzahlen
        ConsoleWrite('$i = ' & $i & @CRLF)
    EndIf
Next

Korrigierte Fassung der IP-Adresse (die oben erkennt auch falsche IP-Adressen...):

Der String oben erkennt auch "100.0.123.023" als gültige Adresse. Dies ist allerdings keine gültige IP-Adresse. Außerdem hat man die Lösung per Google eh nicht gefunden, wollte sie gerade beitragen

\b((?:[0-9]|[|1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\.(?:[0-9]|[|1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\.(?:[0-9]|[|1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\.(?:[0-9]|[|1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]))\b

Und für die, die die einzelnen Blocks wollen:

\b([0-9]|[|1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\.([0-9]|[|1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\.([0-9]|[|1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\.([0-9]|[|1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\b

Oder beides:

\b(([0-9]|[|1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\.([0-9]|[|1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\.([0-9]|[|1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])\.([0-9]|[|1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]))\b

@Einexage
Dein Pattern hat noch nen kleinen Fehler drin und zwar an der Stelle [|1-9].
Führt dazu dass z.B. auch 123.|1.3.2 gematcht wird.

Etwas zusammengefasst könnte man es auch z.B. auch so schreiben:

\b(?>(?>25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(?(?=\.?\d)\.)){4}\b

Zitat von AspirinJunkie

@Einexage
Dein Pattern hat noch nen kleinen Fehler drin und zwar an der Stelle [|1-9].
Führt dazu dass z.B. auch 123.|1.3.2 gematcht wird.

Etwas zusammengefasst könnte man es auch z.B. auch so schreiben:

Perl

\b(?>(?>25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(?(?=\.?\d)\.)){4}\b

Danke, Aspirin, der Fehler war mir gar nicht aufgefallen, da ich es nur eben schnell nebenher gebastelt habe...

Hab gerade den Thread gesehen.
Hier ein kurzer vollständiger IP Pattern

Local $s_pattern_ip_filter = "(((25[0-5]|2[0-4]\d|[01]?\d?\d)(\.|\b)){4})"

Zitat von lachi

Hab gerade den Thread gesehen.
Hier ein kurzer vollständiger IP Pattern

AutoIt

Local $s_pattern_ip_filter = "(((25[0-5]|2[0-4]\d|[01]?\d?\d)(\.|\b)){4})"

Leider ist der Pattern aber ziemlich nutzlos, da er auch ungültige IP-Adressen zulässt im Gegensatz zu dem oben - außer dem gekürzten oben und dem im Eigangsposting. Das Kürzen bei IP-Adressen führt bloß dazu das der RegEx wertlos wird. Dann kann man auch gleich (\d+\.\d+\.\d+\.\d+) verwenden. Etwa genauso sinnvoll, da es genauso wenig absichert, dass die Eingabe auch wirklich eine gültige IP ist.

0.0.0.0 ist keine gültige IP. Ebenso 255.255.255.255.

Nebenbei: Telefonnummerpatten

Und wie schrieb BugFix? Dieser Thread ist völlig zu Unrecht in der Versenkung verschwunden. Ich werde ihn mal wieder nach oben befördern.

Zitat von franzp

finde ich eine Super Idee, denn ich beschäftige mich auch gerade damit. Aber ich kapier das einfach nicht

Willkommen im Club !

Telefonnummern:

#include <Array.au3>
$pattern = "(?:(?:(?:(?:(?:(?:(?:00|\+)49[ \-\/]?)|0)[1-9][0-9]{1,4})[ \-\/]?)|(?:(?:(?:(?:00|\+)49\()|\(0)[1-9][0-9]{1,4}\)[ \-\/]?))[0-9]{1,7}(?:[ \-\/]?[0-9]{1,5})?)"


$text = "'Deutsche Telefonnummern' Matches German phone and fax numbers (including cell phone numbers) in various formats like: 004989123456, +49 89 123456," & @crlf & " +49(89)123456, 089-1234-5678, 089 1234 5678, (089)1234-5678 Max. number of digits is 21."




$ret = StringRegExp($text, $pattern, 3)




_ArrayDisplay($ret)

JA für regex sollten wir uns wirklich mal was einfallen lassen - die sind einerseits super praktisch - können einen aber auch in den Wahnsinn treiben :). Irgendwie sollten wir unser Wissen hier besser bündeln...

Peter

Zitat von Tom99

HTTP-Url

Spoiler anzeigen

Code

/(https?):\/\/([0-9a-zA-Z][-.\w]*[0-9a-zA-Z]\.)+([a-A-Z]{2,9})(:\d{1,4})?([-\w\/#~:.?+=&%@]*~)/

Wofür sind die '/' am Anfang und am Ende? Zudem funktioniert das bei mir nicht, obwohl ich die '/' weggelassen habe und das fehlende 'z' ergänzt habe.

Wofür die '/' am Anfang und Ende sind, kann ich dir nicht sagen.

Als Alternative kannst du dieses Pattern verwenden:

Global $sRxPattern = "^(https?|ftp):\/\/[^\s/$.?#].[^\s]*$"
Global $sURL = 'https://autoit.de/index.php?thread/7892-regul%C3%A4re-ausdr%C3%BCcke-sammlung/&postID=691034#post691034'

ConsoleWrite(StringRegExp($sURL, $sRxPattern) & @CRLF)

oder du machst es so...

Global $sURL = 'https://autoit.de/index.php?thread/7892-regul%C3%A4re-ausdr%C3%BCcke-sammlung/&postID=691034#post691034'

InetGetSize($sURL)
If @error Then
    ConsoleWrite("Invalid URL" & @CRLF)
Else
    ConsoleWrite("Valid URL" & @CRLF)
EndIf

Zitat von Bitnugger

oder du machst es so...

Und wenn du offline bist?

Zitat von alpines

Und wenn du offline bist?

oder so...

;-- TIME_STAMP   2018-08-04 19:55:31   v 0.1

#include <StringConstants.au3>
#include <WinAPIDiag.au3>

Global $sURL = 'https://autoit.de/index.php?thread/7892-regul%C3%A4re-ausdr%C3%BCcke-sammlung/&postID=691034#post691034'

ConsoleWrite(_IsUrl($sURL) & @CRLF)

Func _IsUrl($sURL)
    Local Static $sRxPattern = "^(https?|ftp):\/\/[^\s/$.?#].[^\s]*$"
    If _WinAPI_IsInternetConnected() Then
        InetGetSize($sURL)
        Return @error ? False : True
    Else
        Return StringRegExp($sURL, $sRxPattern)
    EndIf
EndFunc