Code: Select all
IPV4_Reaper( HayStack, SPos=1, Unique=0 ) { ; SKAN | 20-Dec-2013 | goo.gl/m1dxm7
While ( SPos := RegExMatch( HayStack, "\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}", IP, SPos ) )
and ( SPos := SPos + StrLen( IP ) ) {
StringSplit, Octet, IP, .
If not ( Octet1 > 255 || Octet2 > 255 || Octet3 > 255 || Octet4 > 255 )
IPList .= ( IPList ? "`n" : "" ) . IP, Count := ( Count ? Count + 1 : 1 )
} IfNotEqual, Unique, 0, Sort, IPList, D`n U
Return IPList, ErrorLevel := Count
}
#SingleInstance, Force
SendMode Input
F12::
Clipboard=
Send ^c
ClipWait, 2
MsgBox % Clipboard := IPV4_Reaper( Clipboard, 1, 1 )
Return