$text snippet by {{CrAdLe}}


Uses :
$text($1-).caps
$text($1-).lower
$text($1-).perupper
$text($1-).perlower

• $text($1-).caps -
  This will return the number of caps in a sentence
  This will not count numbers whilst $isupper(1) will give you $true
  Anyway you can try the syntax //echo -a $text(Text Caps).caps
  and it will give you 2
  
  
  
• $text($1-).lower -
  This will return the number of lower letter (not caps) in a sentence
  This will not count numbers whilst $islower(1) will give you $true
  Anyway you can try the syntax //echo -a $text(tEXT cAPS).lower
  and it will give you 2
  
  
  
• $text($1-).perupper and $text($1-).perlower -
  These are more or less the same but they will give you the percentage
  
  
  
  Eg. $text(THis).perupper will give you 50 (You can add "%" if you want too)
  

alias text {
  if ($prop == caps) {
    return $regex($1-,/[A-Z]/g)
  }
  if ($prop == lower) {
    return $regex($1-,/[a-z]/g)  
  }
  if ($prop == perupper) {
    var %a = $regex($1-,/[A-Z]/g)
    var %r = $remove($1-,$chr(32))
    return $calc($calc(%a / $len(%r)) * 100)
  }
  if ($prop == perlower) {
    var %a = $regex($1-,/[a-z]/g)
    var %r = $remove($1-,$chr(32))
    return $calc($calc(%a / $len(%r)) * 100)
  }
}