Código: Seleccionar todo
Function sLen(sStr As String) As Long
Dim A() As Byte
A = sStr
sLen = (UBound(A) + 1) / 2
End FunctionCódigo: Seleccionar todo
Function sStrRev(sStr As String) As String
Dim A() As Byte
Dim i As Long
A = sStr
For i = UBound(A) - 1 To 0 Step -2
sStrRev = sStrRev & Chr(A(i))
Next i
End FunctionSii, es que las Strings son: La letra en Ascii seguido de un carácter nulo (0) xDlinkgl escribió:Muy bien slek, aunque ya no uso mucho vb me cagaba tener que declarar la variable como byte para poder acceder a los caracteres por subíndices y aparte tener que dividirla entre 2 porqué según recuerdo te dejaba el caracter y un byte en blanco después no?, xD bonitas las funciones :P.
Jeje cierto, y lo que pasa es que las strings en vb no son ascii, son unicode no? jeje prefiero acceder al caracter por el arreglo que hay en las cadenas en cualquier otro lenguaje como C, python, php, etc... Gusto en saludarte x)Slek escribió:Sii, es que las Strings son: La letra en Ascii seguido de un carácter nulo (0) xDlinkgl escribió:Muy bien slek, aunque ya no uso mucho vb me cagaba tener que declarar la variable como byte para poder acceder a los caracteres por subíndices y aparte tener que dividirla entre 2 porqué según recuerdo te dejaba el caracter y un byte en blanco después no?, xD bonitas las funciones :P.
Muchas gracias a todos :D
Saludos!!
Claro, la string en si es unicode, pero la string está formada por los caracteres en ascii:linkgl escribió:Jeje cierto, y lo que pasa es que las strings en vb no son ascii, son unicode no? jeje prefiero acceder al caracter por el arreglo que hay en las cadenas en cualquier otro lenguaje como C, python, php, etc... Gusto en saludarte x)
Jeje sí era lo que tenía entendido x) por eso me gusta mas manejar los bucles en los que tienes que manejar los caracteres de una string en un lenguaje que no sea vb porque es la cadena + el caracter nulo 0x00 o \0 x)Slek escribió:Claro, la string en si es unicode, pero la string está formada por los caracteres en ascii:linkgl escribió:Jeje cierto, y lo que pasa es que las strings en vb no son ascii, son unicode no? jeje prefiero acceder al caracter por el arreglo que hay en las cadenas en cualquier otro lenguaje como C, python, php, etc... Gusto en saludarte x)
La string "Hola" está en unicode, pero está formada por:
Chr(72) & Chr(0) & Chr(111) & Chr(0)... es decir, quedaría en el array de bytes 72 00 111 00 ...
Saludos!!
UBound es una función de VB6 que devuelve el valor máximo que tiene el array que le pasas como parámetro.SpectruS escribió:Hola Slek, el UBound que es y que hace? Saludos.
