 Autor
|
Tema: [SRC] Check_Char [by *PsYkE1*] (Leído 2,002 veces)
|
Psyke1
Wiki
 Desconectado
Mensajes: 1.089
|
Aqui os dejo esta sencilla función para saber si un caracter es vocal, consonante, numérico o es un símbolo...  ' //////////////////////////////////////////////////////////////// ' // *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! 
|
|
|
|
« Última modificación: 30 Junio 2010, 22:28 pm por *PsYkE1* »
|
En línea
|
|
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Ok, pero no se porque tienes tana "fobia" a las APIs...  Salu2 y Gracias! |
|
|
|
« Última modificación: 30 Junio 2010, 15:00 pm por *PsYkE1* »
|
En línea
|
|
|
|
Dreamaker
Desconectado
Mensajes: 277
|
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 |
|
|
|
|
En línea
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
PsYkE me gusto el codigo...! Buen aporte...!
|
|
|
|
|
En línea
|
 - Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
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
|
|
|
|
|
En línea
|
|
|
|
Dreamaker
Desconectado
Mensajes: 277
|
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 
|
|
|
|
|
En línea
|
|
|
|
|
 |
