[SRC] Check_Char [by *PsYkE1*]

[Psyke1]

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

Código (vb) [Seleccionar] Expandir


' ////////////////////////////////////////////////////////////////
' // *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:

Código (vb) [Seleccionar] Expandir


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!

[Dreamaker]

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

[Psyke1]

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

Salu2 y Gracias!

[Dreamaker]

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

[ssccaann43 ©]

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

[raul338]

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

[Dreamaker]

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