Foro de elhacker.net

Aqui os dejo esta sencilla función para saber si un caracter es vocal, consonante, numérico o es un símbolo... :P

' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////
Option Explicit
 
Private Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) As Long
 
Public Function Check_Char(ByVal sChar As String) As Integer
    '0 --> Error
    '1 --> Numérico
    '2 --> Vocálico
    '3 --> Consonante
    '4 --> Simbólico
    Const sVowel As String = "aeiou"
    If Len(sChar) = 1 Then
        If IsCharAlphaNumeric(Asc(sChar)) Then
            If IsNumeric(sChar) Then
                Check_Char = 1
            ElseIf InStr(sVowel, sChar) > 0 Then
                Check_Char = 2
            Else
                Check_Char = 3
            End If
        Else
            Check_Char = 4
        End If
    End If
End Function

Un ejemplo:

Private Sub Form_Load()
    Dim sCharToCheck As String * 1
    sCharToCheck = "/"
    Select Case Check_Char(sCharToCheck)
        Case 1: Debug.Print "El carácter "; sCharToCheck; " es un número"
        Case 2: Debug.Print "El carácter "; sCharToCheck; " es una vocal"
        Case 3: Debug.Print "El carácter "; sCharToCheck; " es una consonante"
        Case 4: Debug.Print "El carácter "; sCharToCheck; " es un símbolo"
        Case Else: Debug.Print "Error al analizar "; sCharToCheck
    End Select
End Sub

Salu2! ;)

Yo creo que la gracia mejor sería hacerlo a mano(a ver si dejamos de depender  de las librerias y las api cuando no son necesarias), de todas maneras buen código

;)

Ok, pero no se porque tienes tana "fobia" a las APIs... :-\

Salu2 y Gracias! :P

No es que le tenga fobia a las api's, sino que siempre es mejor tratar de resolver los problemas por uno mismo manualmente (independientemente del lenguaje que se esté usando) y luego acceder a las funciones propias y/o alcances del lenguaje, es una buena costumbre nada más, cada cual con su manera..

PD: Si no, nos casamos con un lenguaje y eso no hace al programador (y a cuantos les cuesta horrores migrar a otro lenguaje). Es un consejo, nada más ;)

PsYkE me gusto el codigo...! Buen aporte...!

Pero en realidad no estamos usando cosas mas alla del lenguaje. Sino de la plataforma

Hay varios lenguajes que tienen sus funciones, si. Esta bien usarlos, si se aprovecha la plataforma mucho mejor

A lo que me refería es a usar las funciones básicas del lenguaje y no todas, no sólo para aprender de donde salen sino porque todos los lenguajes no tienen las mismas funciones y es una buena forma de portabilidad hacerse esa costumbre, lo demás es cambio de sintaxis y algunos agregados :D