Forums Scripts & Popups Duplicate Numbers

alias parse.ips {
  .fopen ips a.txt
  while !$feof { if $fread(ips) { inc -u %ips. $+ $v1 } }
  .fclose ips
  var %i = 1
  while $var(%ips.*,%i).value {
    if $v1 > 1 { echo -a Clones: $gettok($var(%ips.*,%i),-4-,46) ( $+ $v1 $+ ) }
    inc %i
  }
}

alias parse.ips {
  .fopen ips a.txt
  while !$feof { if $fread(ips) { inc -u %ips. $+ $v1 } }
  .fclose ips
  var %i = 1[color:blue],%r[/color]
  while $var(%ips.*,%i).value {
    if $v1 > 1 { echo -a Clones: $gettok($var(%ips.*,%i),-4-,46) ( $+ $v1 $+ ) [color:blue]| inc %r[/color] }
    inc %i
  }
[color:blue]  if !%r { echo -a Clones: (none) }[/color]
}

alias ipclones {
  window -h @@
  filter -fwtu 1 46 ips.txt @@
  var %a = 1, %b
  while $fline(@@,$line(@@,%a),0) {
    if $v1 > 1 { echo -a Clone: $line(@@,%a) ( $+ $v1 $+ ) | inc %b }
    inc %a $v1
  }
  if !%b { echo -a No clones found }
  window -c @@
}