comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

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

  • 0 Respuestas
  • 2207 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 634
  • Actividad:
    0%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« en: Noviembre 18, 2013, 10:13:33 am »
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).

Código: Visual Basic
  1. Private Function IsUnicode(Expression As String) As String
  2. 'by 79137913
  3.    Dim b() As Byte 'Se crea un array de bytes para almacenar el string
  4.    Dim Aux As String 'se usara para comparar
  5.    b = Expression 'se usa un evil type convert para obtener todos los ascii de los caracteres de la expresion en las posiciones del array
  6.    For x = 0 To UBound(b) Step 2
  7.         Aux = Aux & Chr(b(x)) 'reconstruimos la expresion
  8.    Next
  9.     IsUnicode = (Expression <> Aux) 'asignamos a IsUnicode el resultado de la comparacion
  10.    'Si Expression es = a aux dara Falso por que Expression es totalmente Ascii, sino dara Verdadero por que contiene algun caracter Unicode.
  11. End Function

El ejemplo lo descargan de aca:
No tienes permisos para ver links. Registrate o Entra con tu cuenta

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 Scout Team*                                                   No tienes permisos para ver links. Registrate o Entra con tu cuenta

 

¿Te gustó el post? COMPARTILO!



[SUB] <FUNCION> Print7913Char (Imprime en PicBox caracteres tipo Google Fair).

Iniciado por 79137913

Respuestas: 0
Vistas: 1687
Último mensaje Mayo 27, 2013, 03:36:32 pm
por 79137913
[VB6] Funcion para subir Archivos FTP mediante Inet

Iniciado por 79137913

Respuestas: 0
Vistas: 1074
Último mensaje Julio 11, 2018, 09:24:28 am
por 79137913
[FUNCION] Extraer numeros de cadenas ExtractNums7913

Iniciado por 79137913

Respuestas: 0
Vistas: 1885
Último mensaje Mayo 27, 2013, 03:34:35 pm
por 79137913
[FUNCION] Reemplazo de Funcin IsDate IsDate_7913_v2

Iniciado por 79137913

Respuestas: 0
Vistas: 1719
Último mensaje Mayo 27, 2013, 03:34:08 pm
por 79137913
Función Enviar Archivo VirusTotal (Escanea)

Iniciado por Danyfirex

Respuestas: 1
Vistas: 2708
Último mensaje Mayo 14, 2013, 08:00:10 pm
por Snifer