send
Grupo de Telegram
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
  • 1991 Vistas

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

Conectado 79137913

  • *
  • Moderator
  • Mensajes: 610
  • Actividad:
    11.67%
  • Reputación 10
  • 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:
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 Scout Team*                                                   You are not allowed to view links. Register or Login

 

¿Te gustó el post? COMPARTILO!



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

Iniciado por 79137913

Respuestas: 0
Vistas: 1437
Último mensaje Mayo 27, 2013, 03:36:32 pm
por 79137913
[FUNCION] Reemplazo de Funcin IsDate IsDate_7913_v2

Iniciado por 79137913

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

Iniciado por Danyfirex

Respuestas: 1
Vistas: 2360
Último mensaje Mayo 14, 2013, 08:00:10 pm
por Snifer
[FUNCION] Extraer numeros de cadenas ExtractNums7913

Iniciado por 79137913

Respuestas: 0
Vistas: 1676
Último mensaje Mayo 27, 2013, 03:34:35 pm
por 79137913
[FUNCION] Recortar cadenas DeleteString7913

Iniciado por 79137913

Respuestas: 0
Vistas: 1576
Último mensaje Mayo 27, 2013, 03:33:43 pm
por 79137913