Forums Scripts & Popups $upper

alias caps {
  var %l = 1, %c = 0
  while ($mid($1, %l, 1) != $null) {
    var %le = $ifmatch
    if ($asc($ifmatch) isnum 65-90) /inc %c
    /inc %l 
  }
  return $round($calc((%c / $len($1-)) * 100), 2)
}

;The blue part must be changed for test each function
Alias RegBenchMarkCaps {
  var %i = 1
  var %Start = $ticks
  while (%i <= 1000) {
    [color:blue]capsStandart[/color] Home Latest News Download mIRC How to Install Translations Message Board Intro to IRC IRC FAQ Intro to mIRC mIRC FAQ Command List How to Register Mailing Lists IRC Networks Chat Links More Info
    inc %i
  }
  echo -s 1000 times in $calc(($ticks - %Start) / 1000) sec.
}

;Solution from Proph
alias capsReg return $calc($regex($1,/[A-Z]/g)/$len($1)*100)

;Solution from KingTomato
alias CapsStandart {
  var %l = 1, %c = 0
  while ($mid($1, %l, 1) != $null) {
    var %le = $ifmatch
    if ($asc($ifmatch) isnum 65-90) inc %c
    inc %l 
  }
  return $calc((%c / $len($1-)) * 100)
}

;A Caps check solution from the great PnP script
Alias CapsPnP {
  var %letter = $calc($len($1-) - $len($removecs($1-,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
  return $calc((%letter / $len($1-)) * 100)
}

alias RegBenchMarkCaps {
  /echo -s -
  /echo -s Benchmark Of 3 Case-Sensative Searches

  var %count = 100
  var %str = Home Latest News Download mIRC How to Install $&
    Translations Message Board Intro to IRC IRC FAQ Intro to $&
    mIRC mIRC FAQ Command List How to Register Mailing Lists $&
    IRC Networks Chat Links More Info

  ; Standard
  /echo -s Standard...
  var %s = $ticks, %a = 0
  while (%a < 1000) {
    .echo -q $caps_standard(%str)
    /inc %a
  }
  /echo -s Completed in $calc(($ticks - %s) / 1000) secs
  var %least = $calc($ticks - %s), %name = Standard

  ; PnP
  /echo -s PnP...
  var %s = $ticks, %a = 0
  while (%a < 1000) {
    .echo -q $caps_pnp(%str)
    /inc %a
  }
  /echo -s Completed in $calc(($ticks - %s) / 1000) secs
  if ($calc($ticks - %s) < %least) var %least = $calc($ticks - %s), %name = PnP

  ; Regex
  /echo -s RegEx...
  var %s = $ticks, %a = 0
  while (%a < 1000) {
    .echo -q $caps_regex(%str)
    /inc %a
  }
  /echo -s Completed in $calc(($ticks - %s) / 1000) secs
  if ($calc($ticks - %s) < %least) var %least = $calc($ticks - %s), %name = RegEx

  /echo -s Outcome: (In %count iterations) %name Won with a time of $calc(%least / 1000) secs
}

; mine
alias caps_standard {
  var %l = 1, %c = 0
  while ($mid($1, %l, 1) != $null) {
    if ($asc($ifmatch) isnum 65-90) /inc %c
    /inc %l 
  }
  return $round($calc((%c / $len($1-)) * 100), 2)
}

;Solution from Prophalias
alias caps_regex {
  return $calc($regex($1,/[A-Z]/g)/$len($1)*100)
}

;A Caps check solution from the great PnP script
alias caps_pnp {
  var %letter = $calc($len($1-) - $len($removecs($1,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
  return $calc((%letter / $len($1-)) * 100)
}