Foro de elhacker.net

Hola de nuevo!

Necesito extraer el código ASCII de cada caracter de una cadena de caracteres en VB6.

Se que los caracteres se pueden extraer con la función Mid(Cadena,inicio,longitud), pero lo que no consigo es extraer a cada caracter el código ASCII.

Cabe mencionar que en VB6 no existe el tipo Char, por eso guardo los caracteres en matrices tipo String de x*n, siendo "x" la longitud de la cadena inicial y "n" la posición del caracter. En éste caso los caracteres no son propiamente caracteres, sino cadenas con longitud de 1.

Después de esto es fácil referenciar los caracteres, pero cómo le puedo hacer para convertir el caracter en su valor ASCII?

Lamentablemente los tutoriales de VB6 que he encontrado hasta ahora son muy pobres y poco documentados, es por eso que estoy considerando mudarme a VB.NET ya que es mas amplio, pero por el momento nececito lograr esto en VB6.

Si alguien me ayuda con esto le estaré muy agradecido.

Saludos!!!

Function StrToAsc(str)
    Dim i
    Dim sAscii
    sAscii = ""
    For i = 1 To Len(str)
        sAscii = sAscii + CStr(Asc(Mid(str, i, 1)))
    Next
    StrToAsc = sAscii
End Function

Espero te ayude  :D

Saludos

Muchas gracias robbie110487!!!  :D
Tu respuesta me ayudó muchísimo ya logré lo que nececitaba gracias a tu cooperación. :xD

Saludos.
Que estés bien! ::)

necesito hacer algo parecido a lo anterior pero necesito convertir una cadena de datos que ingresan por el puerto, a valores ascii, para poder compararla con un caracter especial y encontrar el flag buscado, o sea, recorrer la cadena y comparar byte a byte o mejor dicho caracter a caracter ... espero se entienda..