This site uses cookies own and third. If you continue to browse consider to accept the use of cookies. OK More Info.

[FUNCION] IsUnicode (Determina si una cadena es unicode o no)

  • 0 Replies
  • 5176 Views

0 Members and 1 Guest are viewing this topic.

Offline 79137913

  • *
  • Moderator
  • Posts: 714
  • Actividad:
    0%
  • Country: 00
  • Reputación 7913
  • 4 Esquinas
    • View Profile
    • Doors.Party
    • Email
HOLA!!!

En fin esta funcion lo que hace es determinar si una cadena es unicode o ascii (si es unicode envia true sino false)

Ustedes diran... para que sirve esto, bueno, resulta que hay apis que solo soportan entrada ascii, entonces conesto prevenimos crasheos, en el ejemplo que arme hay un archivo con nombre de fichero unicode (un caracter RLO 202E).

Code: (vb) You are not allowed to view links. Register or Login
Private Function IsUnicode(Expression As String) As String
'by 79137913
    Dim b() As Byte 'Se crea un array de bytes para almacenar el string
    Dim Aux As String 'se usara para comparar
    b = Expression 'se usa un evil type convert para obtener todos los ascii de los caracteres de la expresion en las posiciones del array
    For x = 0 To UBound(b) Step 2
        Aux = Aux & Chr(b(x)) 'reconstruimos la expresion
    Next
    IsUnicode = (Expression <> Aux) 'asignamos a IsUnicode el resultado de la comparacion
    'Si Expression es = a aux dara Falso por que Expression es totalmente Ascii, sino dara Verdadero por que contiene algun caracter Unicode.
End Function

El ejemplo lo descargan de aca:
You are not allowed to view links. Register or Login

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                   You are not allowed to view links. Register or Login