Código: Seleccionar todo

#cs -----------------------------------------------------------------------------------------------------------------------------
 Version:                              3.3.8.1
 Author:                               DuNeD@i
 Fecha:                                Ene/2013     
 Función:                              Cuenta Caracteres
 Propósito:                            Contar el número de caracteres de una string
 Uso:                                  Cuenta_Caracteres($String, $Spaces)
                                        $Spaces = 0 --> No cuenta los espacios existentes en la string.
                                        $Spaces = 1 --> Cuenta todos los caracteres de la string, incluidos espacios.
 Ejemplo:                              MsgBox(0,'', Cuenta_Caracteres("adjf e  mdd", 1)) -->Devuelve "11"
                                       MsgBox(0,'', Cuenta_Caracteres("adjf e  mdd", 0)) -->Devuelve "8"
-------------------------------------------------------------------------------------------------------------------------------#ce

Func Cuenta_Caracteres($String, $Spaces)
    Local $Beta, $Alpha = 1
    For $i = 1 to StringLen($String)
        $count = StringMid($String, $i, 1)
        If $Spaces = 1 Then
            $Beta = $Beta + $Alpha
        Else
            If $count = " " Then
            Else
                $Beta = $Beta + $Alpha
            EndIf
        EndIf
    Next
    Return($Beta)
EndFunc