obtener longitud de una cadena sin LEN

Iniciado por x64core, 5 Septiembre 2011, 03:44 AM

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

x64core

buenas tengo una duda señores
tengo este codigo:

Código (VB) [Seleccionar]
Dim A As String
Dim B As String
Dim dirA As Long

A = "prueba"
B = Space(1)

dirA = StrPtr(A)


CopyMemory ByVal B, ByVal dirA + 2, Len(dirA)
Debug.Print B




bien todo eso esta bien no ;D
mi duda es como puedo saber la longitud de una X cadena sin usar la funcion len? es posible eso? :P
ya que si uno no sabe cual es la longitud de una cadena ( el utlimo caracter ) no puedo saber hasta donde es el final de los caracteres de la cadena :P
bueno se le agradece ;D


BlackZeroX

#1
los strings en vb6 guardar antes del 1er caracter su longitud... es decir:

len() es equivale a leer la direccion en strptr(VariableString) - &H4

Dulces Lunas!¡.
The Dark Shadow is my passion.

x64core

#2
si lo ce tio el strptr me devuelve el puntero al primer caracter por eso tengo esa duda
si digamos en un bucle quiero obtener todos los caracteres

Código (vb) [Seleccionar]
dim cadena as string
dim Y as long
dim n as byte
dim X as string

cadena="HOLA MUNDO"
Y= strptr(cadena)


for n = 1 to [longitud]
copymemory byval X, byval Y,len(Y)
cadenaFinal = cadenafinal + X
Y = Y +2
next

bien con ese codigo creo que recorro cada uno de los caracteres pero como puedes ver necesito la longitud de la cadena porque sino el bucle se ejecutaria infinitamente o se saliera de la longitud de la cadena :P
es por eso que necesito saber la longitud, yo ce que puedo obtenerla con LEN pero existe otra forma? :P gracias ;D

raul338

Si, hasta que el carcater sea 0, o usa strLenA o strLenW :P

BlackZeroX

#4
mmm aqui te dejo el codigo que mas o menos te daba a entender anteriormente... igual puedes usar strLenW hay una variante llamada strLenA esa no te va a servir de mucho...

Código (Vb) [Seleccionar]

Option Explicit

Private Declare Sub RtlMoveMemory Lib "kernel32" (ByVal pDst As Long, ByVal pSrc As Long, ByVal ByteLen As Long)

Private Sub Form_Load()
Dim sStr    As String   '   //  Apuntador...
    MsgBox altLen(sStr)
    sStr = "BlackZeroX"
    MsgBox altLen(sStr) & vbCrLf & Len(sStr)
   
    sStr = ""
    MsgBox altLen2(sStr)
    sStr = "BlackZeroX"
    MsgBox altLen2(sStr) & vbCrLf & Len(sStr)
   
End Sub

Public Function altLen(ByRef sStr As String) As Long
Dim lRet    As Long
    '   //  Simulacion de StrPtr()
    RtlMoveMemory VarPtr(lRet), VarPtr(sStr), &H4           '   //  Leemos el apuntardor a la cadena.
    If (lRet = &H0) Then Exit Function                      '   //  Si el puntero es &H0 es que no hay ninguna cadena.
    RtlMoveMemory VarPtr(lRet), ByVal (lRet - &H4), &H4     '   //  Leemos la longitud en Bytes SOLO de la cadena en UNICODE.
    altLen = (lRet \ 2)                                     '   //  Por ser UNICODE dividimos entre 2
End Function


Public Function altLen2(ByRef sStr As String) As Long
Dim lRet    As Long
    lRet = StrPtr(sStr)
    If (lRet = &H0) Then Exit Function                      '   //  Si el puntero es &H0 es que no hay ninguna cadena.
    RtlMoveMemory VarPtr(lRet), ByVal (lRet - &H4), &H4     '   //  Leemos la longitud en Bytes SOLO de la cadena en UNICODE.
    altLen2 = (lRet \ 2)                                    '   //  Por ser UNICODE dividimos entre 2
End Function



Y espero no equivocarme pero tambien se puede con readProcessMemory o igual RTLCopyMemory debes buscar  2 bytes nulos... esos indican el final de la cadena casi = que el Ansi donde es solo 1 Bytes Nulo el que indica el final...

Dulces Lunas!¡.
The Dark Shadow is my passion.

x64core

sale gracias no se me habia ocurrido eso de si es NULL ;D

@BlackZeroX

hey tio me puedes explicar la primera alternativa :P casi noentiendo :P
bueno mi logica me dice esto: :xD
en la llamada a ala rtlmovememory, en el segundo parametro usas la funcion varptr() con esa funcion se obtiene la direccion del cadena de bufer completa no? a diferencia de la strptr que devuelve la direccion del primer caracter a la cadena no? :P
en tonces si obtienes la direccion del bufer veo que pasas la direccion a la direccion de una variable :P
mi logica me dice que haces una asignacion de direccion :P , no entiendo :P
es como esto:

A* = B* ( en C++ quiza me se explicar mejor :P )

y pues arriba escribes simulacion de strptr :P

BlackZeroX

#6
.
Me ire un poco a algo mas interno en vb6, esperando no confundir a nadie... para que comprendan un poco mas la estructra de las variables en VB6 y por ende comprener algunos aspecto y entender unos trucos avanzados con respecto a velocidad en vb6.

Definicion Basica Fundamental.
Puntero o Apuntador: Es una variable que contiene la dirrecion de otra variable.

Guiandome en esta DEFINICION que es irrefutable puedo AFIRMAR y SUSTENTAR LO SIGUIENTE.

Cuando declaras una variable tipo String, Array del tipo que sea y ademas NO TIENE UNA LONGITUD FIJA, se pueden y deben considerarse como APUNTADORES, en vb6 NO HAY PUNTEROS DE MANEJO LIBRE es decir que no podemos declarar y modificar a gusto los punteros de manera deliberada como en C/C++ PERO SE PUEDEN SIMULAR asiendo algunas cosillas, aun asi no le quitara el hecho de que es CUTRE pero FUNCIONAL y es mas puede acercarse un poco a la velocidad de C/C++ pero no la igualara ni superara en ningun momento.

En el caso de C/C++ con respecto a los APUNTADORES que solo le pones el "*" y obtienes el contenido de donde apunte, en VB6 DEBES usar RtlMoveMemory para SIMULAR LA RUTINA DE C/C++ (*) respecto a un APUNTADOR.

En C seria... algo asi no llendo a mas lios...



char a[] = "BlackZeroX";
char* pa = a;  // Se guarda el puntero de la variable "a" en "pa".



En VB6 se hace asi para SIMULAR lo anterior para saltarnos la restriccion que nos pone vb6.

Código (Vb) [Seleccionar]


Dim a as string
Dim b as string

a = "BlackZeroX"
RtlMoveMemory VarPtr(b), VarPtr(a), &H4 ' // Lo mismo que lo anterior en C/C++...
' // Antes de terminar el proceso donde se Autodestruyen ambas variables hay que hacer esto:
RtlMoveMemory VarPtr(b), &H0 &H4 ' // esta seria otra desventaja ya que SI NO SE HACE PROVOCA A LA LARGA UN CRASH.
' // Nota: si "b" apuntaba a un contenido o ya se le habia asignado un contenido X debera de guardarse la _
dirrecion ala que apuntaba en una variable tipo long, y al final antes de su autodestruccion debera de volver _
a tener el mismo puntero, ya que de lo contrario se crearia un Extraordinario Memory leak (Fuga de memoria) _
y al final un Crash...



Caso omiso cuando se declara.

Código (vb) [Seleccionar]


Dim a as string * 20



La variable "a" no apunta a ningun lugar, ya que su memoria ya esta asignada y es CONSTANTE (Su longitud)


En resumen en C/C++ para obtener la longitud de una cadena en VB6 debes hacer esto:



lLn = ((int*)(pSringVB6 - 0x4))
// pSringVB6 es el puntero a la variable string de vb6 obtenida con StrPtr
if (lLn) lLn >>= 1;
/*
Dividimos entre 2 de manera binaria SOLO si se paso con StrPtr() el puntero
de la string de lo contrario No debera ser dividido entre 2 ya que vb6 transforma
una variable String en formato Ansi... es decir quita los Bytes Nulos que sirven
como separadores en el formato Unicode de vb6 aun que no se ocupen para eso.
*/



Ejemplo y codigo en C (dll) + vb6 <click aquí>, Recomendacion Comilador Codeblocks.

En vb6 SIN USAR LEN, LENB, Apis o similares...

Código (vb) [Seleccionar]


Public Function altLen(ByRef sStr As String) As Long
Dim lRet    As Long
   '   //  Simulacion de StrPtr()
   RtlMoveMemory VarPtr(lRet), VarPtr(sStr), &H4           '   //  Leemos el apuntardor a la cadena.
   If (lRet = &H0) Then Exit Function                      '   //  Si el puntero es &H0 es que no hay ninguna cadena.
   RtlMoveMemory VarPtr(lRet), ByVal (lRet - &H4), &H4     '   //  Leemos la longitud en Bytes SOLO de la cadena en UNICODE.
   altLen = (lRet \ 2)                                     '   //  Por ser UNICODE dividimos entre 2
End Function


Public Function altLen2(ByRef sStr As String) As Long
Dim lRet    As Long
   lRet = StrPtr(sStr)
   If (lRet = &H0) Then Exit Function                      '   //  Si el puntero es &H0 es que no hay ninguna cadena.
   RtlMoveMemory VarPtr(lRet), ByVal (lRet - &H4), &H4     '   //  Leemos la longitud en Bytes SOLO de la cadena en UNICODE.
   altLen2 = (lRet \ 2)                                    '   //  Por ser UNICODE dividimos entre 2
End Function



Nota: Duando se declara una variable tipo Array sea cual sea en lugar de apuntar a su primer indice, realmente apunta a su Estructura SafeArray y en esta su miembro pvData apunta a su primer elemento... cabe destacar que si es un array String quiere decir que su elemento al que apunta pvData seran apuntadores ya que no tienen una longitud Definida.

Temibles Lunas!¡.
The Dark Shadow is my passion.

x64core

buenas ;D bueno primeramente tio gracias por tomarte el tiempo por explicar ya estoy estudiando bien detallado tu expicacion ahora tengo una duda :P noce si te falto escribir el "byval" en el uso de la API :P
aparte que teste los codigos y no me paso lo que habia en las variables :P
o me equivoco y RtlMoveMemory pasa ya con Byval? :P a diferencia de CopyMemory como te escribi en MP no encontre la declaracion de RtlMemory :P o es la misma con CopyMemory y en la declaracion escribes RtlMoveMemory... :P

BlackZeroX

#8
@Raul100

Para que la buscas en google si ya te la deje aqui dicha declaracion API unos post mas arribita, y si es la misma solo que el alias o nombre de la funcion REAL es RtlMoveMemory pero se conoce mas comunmente como CopyMemory...

El byval si se pone en los parametros de la declaracion API entonces PUDE no escribirse en las llamadas, de lo contrario si no esta el byval en algun parametro de la declaracion API tendria que declararse byval si no se quiere pasar una variable por referencia, ten en cienta que si no se escribe byval se toma como referencia cada parametro.

Un ejemplo MUY ENTENDIBLE y aplicable a las APIS...

Código (Vb) [Seleccionar]


Option Explicit

Private Sub Form_Load()
Dim sStr    As String
    sStr = "Hola Mundo"
    MsgBox aaa(sStr)
    MsgBox sStr
   
    sStr = "Hola Mundo"
    MsgBox bbb(sStr)
    MsgBox sStr
End Sub

Public Function aaa(valor As String) As String
    valor = "BlackZeroX"
    aaa = valor
End Function

Public Function bbb(ByVal valor As String) As String
    valor = "BlackZeroX"
    bbb = valor
End Function



Nota: Cuando es una funcion/proceso hecho en vb6 como los del ejemplo anterior no se deberia poner byval en las llamadas, solo es valido para APIS.

Dulces Lunas!¡.
The Dark Shadow is my passion.

x64core

 :D ya entendi todo :D gracias tio (Y)
perdon por casi explicarlo con manzanas :xD