PureBasic Forums - English

Code: Select all

; Find IPs in a string or any byte sequence ending with 'endchar' character (usually #Null).
; Psychophanta 20081013
Procedure.i FindIP(*seq.character,a.l(1),pos.i=0,endchar.c=0)
  ;USAGE:
  ;the IPs are delivered to an unidimensional Array of 'long' type variables: a.l()
  ;the function returns the number of matches found.
  ;Use at your own and test yourself if it is a bullet-proof function. :p
  Protected *p.character=*seq+pos,d.c=1,n.i=0,val.w=0,field.c=0
  Repeat
    Select *p\c
    Case '0' To '9'
      val*d+*p\c-$30
      d=10
      If val&$FF00
        Repeat:*p+1:Until *p\c<'0' Or *p\c>'9'
        If *p\c=endchar
          If n:ReDim a(n-1):EndIf
          Break
        EndIf
        a(n)=0:d=1:field=0:val=0
      EndIf
    Case '.'
      If field=24 Or d<>10 Or val&$FF00
        a(n)=0:d=1:field=0:val=0:*p+1:Continue
      EndIf
      a(n)|val<<field
      field+8:d=1:val=0
      If field>24
        field=0
      EndIf
    Default
      If field=24 And d=10
        a(n)|val<<field
        n+1:ReDim a(n)
      Else
        a(n)=0
      EndIf
      If *p\c=endchar
        If n:ReDim a(n-1):EndIf
        Break
      EndIf
      d=1:field=0:val=0
    EndSelect
    *p+1
  ForEver
  ProcedureReturn n
EndProcedure

;TEST:
Dim ips.l(0)
n.i=FindIP(@"I made it intentionally like this: Any number >255 is taken as garbage (just like letters), so: 355.04.3.4.234 should be 4.3.4.234, but something like 24.23.243.67.44.44.44, is nothing... 5 3 52.003.025.036 .48..5.7.6.8 wert  ",ips())
For t=0 To n-1
  Debug IPString(ips(t))
Next
;
ReDim ips.l(0)
n.i=FindIP(@"Some 15634 foxes jump over 169.45.0.2 lazy dogs on wrong address 169.45.0. Another proper one is 3.145.5.72",ips())
For t=0 To n-1
  Debug IPString(ips(t))
Next
;
a$ = "the quick brown fox jumps over 15634 lazy dogs on 2.169.45.0.2.2 without any regrets!" 
b$ = "the quick brown fox jumps over 15634 lazy dogs on 169.45.0. without any regrets! 169.45.0.1" 
c$ = "the quick brown fox jumps over 15634 lazy dogs on 169..0.4 without any regrets! 169.45.0.1" 
a$+b$+c$
ReDim ips.l(0)
n.i=FindIP(@a$,ips())
For t=0 To n-1
  Debug IPString(ips(t))
Next
;
Dim ips.l(0)
n.i=FindIP(@"35.0455.3.4 should be nothing, while ... 00000005.000093.52.003 is a IP and 192.168.1.1.36 is not.",ips())
For t=0 To n-1
  Debug IPString(ips(t))
Next