'Este programa se ha desarrollado con finalidad didáctica por lo tanto el creador como el
'distribuidor de dicho código no se hacen responsable por mal uso de dicho programa o por
'fallos de dicha aplicación.
'Puesto que es un proyecto de código abierto usted puede modificar el código si así lo
'desea u ocuparlo libre mente.
'Desarrollador: Gustavo Ortiz
'Web: http://codigosfuentes.host56.com/
Public Function CuentaLetrasFibraOptica(ByVal cadena As String) As String
cadena = UCase(cadena)
Dim n As Integer
Dim sonLetras As Integer = 0
Dim sonDigitos As Integer = 0
Dim espacios As Integer = 0
For n = 0 To Len(cadena) - 1
If Asc(cadena(n)) > 64 AndAlso Asc(cadena(n)) < 91 Then
sonLetras = sonLetras + 1
End If
Next
For n = 0 To Len(cadena) - 1
If Asc(cadena(n)) > 47 AndAlso Asc(cadena(n)) < 58 Then
sonDigitos = sonDigitos + 1
End If
Next
For n = 0 To Len(cadena) - 1
If Asc(cadena(n)) = 32 Then
espacios = espacios + 1
End If
Next
Return "# Caracteres " & Len(cadena) & vbLf & _
"# Letras " & sonLetras & vbLf & _
"# Digitos " & sonDigitos & vbLf & _
"#Spc EnBlanco " & espacios
End Function