elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no)  (Leído 8,229 veces)
79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no)
« Respuesta #10 en: 18 Noviembre 2013, 19:41 pm »

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!!!


En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
burbu_1

Desconectado Desconectado

Mensajes: 159


hamen gaoz


Ver Perfil
Re: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no)
« Respuesta #11 en: 18 Noviembre 2013, 19:53 pm »

entiendo el sentido que has dado a la función  ;-) ;-) ;-)

pero creo que  no sirve para estos símbolos.... ya que el 2º byte no es un 0 y los chinos tambien usan vb

saludos


« Última modificación: 18 Noviembre 2013, 19:59 pm por burbu_1 » En línea

Danyfirex


Desconectado Desconectado

Mensajes: 493


My Dear Mizuho


Ver Perfil
Re: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no)
« Respuesta #12 en: 18 Noviembre 2013, 22:19 pm »

Ese array quedaría como cadena ASCII en memoria. Si intercalas un byte nulo entre cada carácter sería UNICODE.

@Karcrack me refiero a este que coloca 79137913 seria UNICODE. no ASCII.

Código
  1. 'esta seria ASCII
  2.    cadenaASCII(0) = Asc("H")
  3.    cadenaASCII(1) = 0
  4.    cadenaASCII(2) = Asc("o")
  5.    cadenaASCII(3) = 0
  6.    cadenaASCII(4) = Asc("l")
  7.    cadenaASCII(5) = 0
  8.    cadenaASCII(6) = Asc("a")
  9.    cadenaASCII(7) = 0
  10.    cadenaASCII(8) = 0
  11.    cadenaASCII(9) = 0
?


@79137913  ya entendí el propósito de la función esta muy buena.

entonces si usas GetModuleFileNameW ya sabes que el carácter sera unicode. así diga "hola"  o "Unicode ▀gpj"

básicamente lo que haces es deformar la cadena unicode. porque le estas quitando el segundo byte. aunque igual el vb6 le seguirá agregando el byte nulo automáticamente(exepto en el caracter unicode 8238 q lo estas convirtiendo en "R") porque Aux sigue siendo de tipo string.


saludos
« Última modificación: 18 Noviembre 2013, 22:53 pm por Danyfirex » En línea

79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no)
« Respuesta #13 en: 19 Noviembre 2013, 17:21 pm »

HOLA!!!

Exacto chicos, ya entendieron para que sirve :D.

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

GRACIAS POR LEER!!!
En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no)
« Respuesta #14 en: 19 Noviembre 2013, 18:35 pm »

Ya entiendo :-[

En ese caso sería mucho mejor y de coste constante hacer esto:
Código
  1. Private Function IsUnicode(ByRef s As String) As Boolean
  2.    IsUnicode = (Len(s) <> LenB(s))
  3. End Function
En línea

79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no)
« Respuesta #15 en: 19 Noviembre 2013, 19:14 pm »

HOLA!!!

No, Karcrack, es extraño que diga esto pero tu enfoque esta errado...

TODAS las cadenas de Vb6 son almacenadas como Unicode por ende siempre LenB sera el doble de Len. Por ende tu funcion siempre da Verdadero.-

Eso de los Arrays que daban como ejemplo solo desvirtua el tema.

--------------------------------------------------------------------------------------------------

A tomar en cuenta, Mi funcion como dicen antes lo que hace es Copiar erroneamente las cadenas unicode a una nueva cadena, la cual difiere si hay algun caracter que ocupe mas de un byte, como veras en la parte del for (Step 2 y CHR), pierdo el segundo byte de cada caracter y ademas lo convierto con la funcion Chr que no devuelve mas que ascii.-

No quiero decir en ningun momento que las cadenas que se evaluan estan guardadas o no como Unicode, el alma de la funcion es ver si la cadena que se entrega es imprimible o no en ascii.-

GRACIAS POR LEER!!!
En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no)
« Respuesta #16 en: 19 Noviembre 2013, 20:35 pm »

Tienes toda la razón. Me he contradicho a mí mismo entre el primer comment que hice y éste jaja No doy pie con bola xD

Aquí está todo explicado:
http://support.microsoft.com/KB/138142
En línea

Danyfirex


Desconectado Desconectado

Mensajes: 493


My Dear Mizuho


Ver Perfil
Re: [FUNCION] IsUnicode (Determina si una cadena contiene caracteres unicode o no)
« Respuesta #17 en: 19 Noviembre 2013, 20:54 pm »

cuando dije deformas no lo dije en mal sentido :) (por si lo tomaste a mal)


y gracias por la función realmente es muy útil.

 saludos sietenueveunotressietenueveunotres(79137913)  ;D

En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines