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...!
Cita de: Dreamaker en 30 Junio 2010, 16:19 PM
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 ;)
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
Cita de: raul338 en 30 Junio 2010, 17:31 PM
Cita de: Dreamaker en 30 Junio 2010, 16:19 PM
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 ;)
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