IP Adresse bzw. IP Adresse/Netzmaske im Text suchen

Dein Problem sind die folgenden Einträge?:

Zitat von Donsen64

10.11.75.0/25
5.255.255.0

Falls ja - "\b" (Wortgrenze) im regulären Ausdruck sollte da helfen:

"\b(?:\d{1,3}\.){3}\d{1,3}\b(?: ?/ ?\d{1,2}\b(?!\.))?"

Ansonsten:

• Warum soll die Funktion nur aus der Zwischenablage filtern können? Kannst ja auch mit einem optionalen Parameter im Stile von [autoit]Func IP_oder_IP_Netze_aus_Zwischenablage($s_Text = ClipGet())[/autoit] arbeiten. Dann bist du flexibler was die Eingabe angeht.
• Es werden auch ungültige IP-Adressden wie z.B. 270.0.0.0 gefunden. Es gibt auch RegEx-Konstrukte mit dem man schon beim Matching auf korrekte IPs hin checken kann. Hier mal eines von vielen (matcht nur reine IP-Adressen - diese aber mit Bereichsprüfung):
  
  Code

  (?:(?:25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(?(?=\.?\d)\.)){4}

• Vor dem ArrayUnique müsstest du noch die Leerzeichen killen. Sonst würdest du bei "10.11.72.0/24" und "10.11.72.0 / 24" immer noch zwei Matches statt einem finden obwohl deren Aussage die Selbe ist.
• Wenn du IP und Mask als Return-Group nimmst kannst du sie danach getrennt behandeln und z.B. nur nach IP-Adresse filtern unabhängig von der Mask.

Klar - das Pattern wird dann aber ein bisschen komplexer:

Global $s_Pattern = "(?x) " & @CRLF & _
"(\b(?:(?:25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(?(?=\.?\d)\.)){4}\b) # erste IP-Adresse (mit Wertebereichscheck) " & @CRLF & _
"(?: # Beginn der optionalen Netzmaske " & @CRLF & _
" \s?/?\s? # das optionale Trennzeichen mit eventuellen Leerzeichen " & @CRLF & _
" \b( # falls etwas existiert soll es auch als Group gematcht werden " & @CRLF & _
" \d{1,2}(?!\.) # Die Netzmaske als einfache Zahl (=Anzahl der 1-Bits in der Maske)" & @CRLF & _
" | " & @CRLF & _
" (?:(?:25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(?(?=\.?\d)\.)){4} # Die Netzmaske als IP-Maske " & @CRLF & _
" )\b " & @CRLF & _
")?"

$a_Result = StringRegExp(ClipGet(), $s_Pattern, 4)
If Not @error Then
For $i In $a_Result
ConsoleWrite(StringFormat("%15s\t\t%-15s\n", $i[1], (UBound($i) > 2) ? $i[2] : ""))
Next
Else
MsgBox(48, "", "Nix gefunden")
EndIf

Edit: Wenn du es übertreiben willst: Ich hab hier noch die Variante, welche auch die Subnetzmaske auf Korrektheit hin überprüft (Patternquelle: >>Hier<<).
Wenn man eine falsche Subnetmaske einträgt, wird diese dann als normale IP-Adresse gematcht.:

Edit2: Ok wenn dann richtig - nun habe ich in der erweiterten Variante auch noch die Netzmaskenvariante in der Form einer einfachen Zahl auf den Bereich 1-32 begrenzt.

Das ist tatsächlich etwas "spezielles".
Zurückgegeben wird ein Array-In-Array.
Jedes Element dieses Arrays ist wiederrum selbst ein Array.
Wenn wir es mit einem 2D-Array vergleichen wird schnell der große Vorteil klar: Bei einem 2D-Array ist die Spaltenanzahl (und damit die Größe der 2. Dimension) für alle Elemente gleich und fest.
Bei einem Array-In-Array ist dies hingegen flexibel.
Hier konkret hat das einen Vorteil: Es gibt pro Fund nicht immer die selbe Anzahl an Groups. Entweder du bekommst nur eine IP (1 Element) oder du bekommst IP+Subnetzmaske (2 Elemente).

Um nun auf ein Element zuzugreifen wird nicht wie beim 2D-Array in eckigen Klammern erst die Zeile und die Spalte angegeben, sondern das innere Array muss erst einmal in eine temporäre Variable gepackt werden.
Wie man das mit Hilfe einer For-In-Schleife macht habe ich schon gezeigt.
Manuell macht man es z.B. so:

$a_Result = StringRegExp(ClipGet(), $s_Pattern, 4)
$a_Temp = $a_Result[2] ; Das dritte Array (und damit den dritten RegEx-Fund) in Array $a_Temp speichern
_ArrayDisplay($a_Temp)

Damit kannst du dir also auch eine For-To Schleife mit $i als Zählervariable nehmen.
For-In ist für diesen Zweck aber einfacher.

Bin kein Netzerwerkexperte aber meiner Meinung nach macht diese Subnetzmaske wenig Sinn, da dies bedeuten würde, dass in diesem Subnetz keine Adresse liegt.
Aber wenn es mit rein muss, dann mach in meinem letzten ausführlichen Beispiel hinter die letzte "254" ein "|255".

Das erste \b im Pattern entfernen.

Global $s_Pattern = "(?x) " & @CRLF & _
"((?:(?:25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(?(?=\.?\d)\.)){4}\b) # erste IP-Adresse (mit Wertebereichscheck) " & @CRLF & _
"(?: # Beginn der optionalen Netzmaske " & @CRLF & _
" \s?/?\s? # das optionale Trennzeichen mit eventuellen Leerzeichen " & @CRLF & _
" \b( # falls etwas existiert soll es auch als Group gematcht werden " & @CRLF & _
" \d{1,2}(?!\.) # Die Netzmaske als einfache Zahl (=Anzahl der 1-Bits in der Maske)" & @CRLF & _
" | " & @CRLF & _
" (?:(?:25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(?(?=\.?\d)\.)){4} # Die Netzmaske als IP-Maske " & @CRLF & _
" )(?:[^\d]|$) " & @CRLF & _
")?"

Global $s_Pattern = "(?x) " & @CRLF & _
"((?:(?:25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(?(?=\.?\d)\.)){4}\b) # erste IP-Adresse (mit Wertebereichscheck) " & @CRLF & _
"(?: # Beginn der optionalen Netzmaske " & @CRLF & _
" \s?/?\s? # das optionale Trennzeichen mit eventuellen Leerzeichen " & @CRLF & _
" \b( # falls etwas existiert soll es auch als Group gematcht werden " & @CRLF & _
" ([1-9]|[0-2][0-9]|3[0-2])(?!\.) # Die Netzmaske als einfache Zahl (=Anzahl der 1-Bits in der Maske)" & @CRLF & _
" | " & @CRLF & _
" (?:(?:128|192|224|240|248|252|254)\.0\.0\.0)|(?:255\.(?:(?:(?:0|128|192|224|240|248|252|254)\.0\.0)|(?:255\.(?:(?:(?:0|128|192|224|240|248|252|254)\.0)|255\.(?:0|128|192|224|240|248|252|254|255))))) # Die Netzmaske als IP-Maske " & @CRLF & _
" )(?:[^\d]|$) " & @CRLF & _
")?"