Comunidad Gambas-es

<!-- 
    SOFTWARE LIBRE
 -->
 
<div class="crqt" id="Pral">
    <form class="crqt" id="Escrito" "Estadisticas()">
        <textarea onkeyup="Estadisticas()" id="Texto" class="crqt">Componente en pruebas. Escribe cualquier texto.</textarea>
    </form>
    <form class="crqt" id="Etiquetas">
        <label>Palabras     :<input id="Palabras"      readonly="" /></label>
        <label>Matrices     :<input id="Matrices"      readonly="" /></label>
        <label>Caracteres   :<input id="Caracteres"    readonly="" /></label>
        <label>Letras       :<input id="Letras"        readonly="" /></label>
        <label>Párrafos     :<input id="Parrafos"      readonly="" /></label>
        <label>Sílabas      :<input id="Silabas"       readonly="" /></label>
        <label>Frases       :<input id="Frases"        readonly="" /></label>
        <label style="border-top: solid thin">Szigriszt1993:<input id="Szigriszt1993" readonly="" style="border-top: solid thin"/></label>
        <label>Perspicuidad :<input id="Perspicuidad"  readonly="" /></label>
        
    </form>
    <script>
        function Estadisticas() {
          var strTexto = Texto.value;
          var Resultado = 0
          var pttPalabras  = /([A-Za-z0-9\u00C0-\u02B8\-])[A-Za-z0-9\u00C0-\u02B8\-]*/g;
          var pttMatrices  = /./g;
          var pttCaracteres= /\S/g;
          var pttLetras    = /[A-Za-z0-9\u00C0-\u02B8]/g;
          var pttParrafos  = /[\n][^\n]/g;
          var pttSilabas   = /[aeo]h[iu]|[iu]h[aeo]|[aeo][iu]|[aeo][y]|[y]|[íú]|[iu][^aeo]|[aeo]|[áéíóú]|[q|g]ui[aeo]/gi
          var pttFrases    = /[.?!][^.?!]/g;
        var INFLESZ      = "";
        
          try {
              Resultado = strTexto.match(pttPalabras).length;
              var P = Resultado;
            }
        catch(err) {
              Resultado = 0;
            }
          document.getElementById("Palabras").value = Resultado.toLocaleString();
 
          try {
              Resultado = strTexto.match(pttMatrices).length;
            }
        catch(err) {
              Resultado = 0;
            }
          document.getElementById("Matrices").value = Resultado.toLocaleString();
 
        try {
              Resultado = strTexto.match(pttCaracteres).length;
            }
        catch(err) {
              Resultado = 0;
            }
          document.getElementById("Caracteres").value= Resultado.toLocaleString();
 
        try {
              Resultado = strTexto.match(pttLetras).length;
              var L = Resultado;
            }
        catch(err) {
              Resultado = 0;
            }
          document.getElementById("Letras").value = Resultado.toLocaleString();
 
        try {
              Resultado = 1 + strTexto.match(pttParrafos).length;
            }
        catch(err) {
              Resultado = 0;
            }
          document.getElementById("Parrafos").value = Resultado.toLocaleString();
 
          try {
              Resultado = strTexto.match(pttSilabas).length;
              var S = Resultado;
            }
        catch(err) {
              Resultado = 0;
            }
          document.getElementById("Silabas").value = Resultado.toLocaleString();
 
          try {
              Resultado = strTexto.match(pttFrases).length;
              var F = Resultado;
            }
        catch(err) {
              Resultado = 0;
            }
        document.getElementById("Frases").value = Resultado.toLocaleString();
 
 
          Resultado = 206.835-62.3*S/P-P/F;
          Resultado = Math.round(Resultado);
        if (isNaN(Resultado)) {
              Resultado = 0;
            }
        document.getElementById("Szigriszt1993").value = Resultado.toLocaleString();
        
        if (Resultado<40) {
            INFLESZ="Muy difícil";
            }else if (Resultado<55) {
                INFLESZ="Algo difícil";
                }else if (Resultado<65) {
                    INFLESZ="Normal";
                    }else if (Resultado<80) {
                        INFLESZ="Bastante fácil";
                        }else {
                            INFLESZ="Muy fácil";    
                        }
        
        document.getElementById("Perspicuidad").value = INFLESZ;
    }
 
    </script>
    <style type="text/css">
        .crqt {
            background-color: black;
            color: rgb(0, 255, 0);
            font-family: monospace;
            font-size: 14px;
            border-style: solid;
            border-width: thin;
            border-color: rgb(0, 255, 00);
        }
        form label {
            display: inline;
            width: 100px;
        }
        form input {
            display: inline-block;
            background-color: black;
            color: rgb(0, 255, 0);
            font-family: monospace;
            font-size: 14px;
            border-style: none;
            width: 100px;
            text-align: right;
        }
        textarea {
            width: 98%;
            height: 98%;
        }
        #Pral {
            width: 670px;
            height: 190px;
            margin-right: auto;
            margin-left: auto;
        }
        #Escrito {
            width: 65%;
            height: 99%;
            float: left;
        }
        #Etiquetas {
            width: 33%;
            float: right;
        }
    </style>
</div>

Public Function ContarPalabras(Texto As String) As Integer[]
  ' **** Estadísiticas de un texto.
  ' <<<< Devuelve una matriz de enteros:
  '       [0]: Número de palabras
  '       [1]: Número de tipos
  '       [2]: Número de caracteres
  '       [3]: Perspicuidad de Szgrizt 1993
  ' >>>> Texto plano para obtener estadísticas.
  '
  '' ╔═════════════════════════════════════════════════════════════╗
  '' ║ Atención: PCRE sólo admite texto ASCII extendido, no UTF-8. ║
  '' ║            Los valores obtenidos son aproximados.           ║
  '' ╚═════════════════════════════════════════════════════════════╝
 
  Dim iPaso As New Integer[4]     ' Variable de paso para almacenar resultados
  Dim sEse As String              ' Cadena de trabajo
  Dim iPal As Integer             ' Nº Palabras para cálculo perspicuidad
  Dim iSil As Integer             ' Nº Sílabas   "    "
  Dim iLet As Integer             ' Nº Letras    "    "
  Dim iFrs As Integer             ' Nº Frases    "    "
  Dim SCAM As String = Chr(7)     ' El símbolo «campanita» que ya no se usa
 
  ' Si no hay texto, no hay resultados
  If Not Texto Then Return [0, 0, 0, 0]
 
  ' Palabras
  sEse = RegExp.Replace(Texto, "([A-Za-zÁÉÍÓÚáéíóúÜüñÑ0-9])[A-Za-zÁÉÍÓÚáéíóúÜüñÑ0-9]*", SCAM, RegExp.Greedy)
  iPal = Split(sEse, SCAM).Max
  iPaso[0] = iPal
 
  ' Tipos
  sEse = RegExp.Replace(Texto, ".", SCAM, RegExp.Greedy)
  iPaso[1] = Split(sEse, SCAM).Max
 
  ' Caracteres
  sEse = RegExp.Replace(Texto, "\\S", SCAM, RegExp.Greedy)
  iPaso[2] = Split(sEse, SCAM).Max
 
  ' Sílabas
  sEse = RegExp.Replace(Texto, "[aeo]h[iu]|[iu]h[aeo]|[aeo][iu]|[aeo][y]|[y]|[íú]|[iu][^aeo]|[aeo]|[áéíóú]|[q|g]ui[aeo]", SCAM, RegExp.Greedy + RegExp.Caseless)
  iSil = Split(sEse, SCAM).Max
 
  ' Letras
  sEse = RegExp.Replace(Texto, "[A-Za-zÁÉÍÓÚáéíóúÜüñÑ0-9]", SCAM, RegExp.Greedy)
  iLet = Split(sEse, SCAM).Max
 
  ' Frases
  sEse = RegExp.Replace(Texto, "[.?!][^.?!]", SCAM, RegExp.Greedy)
  iFrs = Split(sEse, SCAM).Max
 
  ' Perspicuidad
  If iPal > 0 And iFrs > 0 Then
    iPaso[3] = 206.835 - 62.3 * iSil / iPal - iPal / iFrs
  Else
    iPaso[3] = 0
  Endif
 
  Return iPaso
 
End