HOLA!!!

Exacto chicos, ya entendieron para que sirve .

Determina si algun caracter de la cadena es unicode y no puede ser transformado a ascii.-

GRACIAS POR LEER!!!

HOLA!!!

Uso un caracter RLO(202E):
http://www.fileformat.info/info/unicode/char/202E/index.htm

Tenes varias maneras para conseguir los caracteres Unicode, yo lo que hago es copiarlos de algun texto que lo contenga, o con el mapa de caracteres, luego lo copias y lo pegas donde quieras.-

Desde VB podes usar ChrW(8238) para generar el Caracter RLO (8238 = 202E)

GRACIAS POR LEER!!!

HOLA!!!


Esta funcion la uso para llamar a las unicode cuando corresponde y a las ascii cuando corresponde.-

Aunque podria siempre llamar a la unicode pero no me agrada la idea.-

GRACIAS POR LEER!!!

HOLA!!!

Gracias Karcrack!

Ningun codigo genera cadena malformada, pero por ejemplo yo quiero abrir un archivo con un caracter unicode en su path y eso hace crashear a las apis...

Fijate El ejemplo que puse ahi lo vas a entender.-

Dany, para que sea mas correcto deberias usar 2 posiciones del array por caracter, en la primera su ascii y en la segunda 0, al final 0 0

Osea:

    Dim cadenaASCII(9) As Byte
    Dim cadenaUnicode As String
 
    'esta seria ASCII
    cadenaASCII(0) = Asc("H")
    cadenaASCII(1) = 0
    cadenaASCII(2) = Asc("o")
    cadenaASCII(3) = 0
    cadenaASCII(4) = Asc("l")
    cadenaASCII(5) = 0
    cadenaASCII(6) = Asc("a")
    cadenaASCII(7) = 0
    cadenaASCII(8) = 0
    cadenaASCII(9) = 0
    'esta seria Unicode
    cadenaUnicode = "Hola" ' con doble terminacion nula.

   

GRACIAS POR LEER!!!

HOLA!!!

En fin esta funcion lo que hace es determinar si una cadena contiene caracteres unicode (si contiene 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).

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:
http://www.mediafire.com/download/76yuudmsnnoykau/IsUnicode.rar

GRACIAS POR LEER!!!

HOLA!!!

Primer chiste




GRACIAS POR LEER!!!

HOLA!!!

:O

Lo soluciono el lunes!

GRACIAS POR LEER!!!

HOLA!!!

Me hace recordar a mi DoOrders.VBS :

http://foro.elhacker.net/buscador-t377862.0.html

Mad si podes echale un ojo

GRACIAS POR LEER!!!

HOLA!!!

Me gustaron un par de tecnicas que usa, lo voy a guardar!

GRACIAS POR LEER!!!

HOLA!!!

+1

GRACIAS POR LEER!!!