Quitar caracteres a una string

Iniciado por W3XT3R, 25 Diciembre 2005, 13:22 PM

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

W3XT3R

tengo una string que contiene la ruta de un archivo creado por un programa mio que los cifra modificando el codigo binario y para distinguirlos del original les añade la extension .enc (NombreDelArchivo.ExtensionDelArchivo.enc) ¿como puedo hacer para que a la hora de desencriptarlo coja la ruta previamente guardada en una string y le quite la terminacion .enc?

ante todo muchisimas gracias

PD: contesten lo antes posible, es un proyecto que tengo que entregar esta semana

Kizar

Usando la funcion Right.
Esta funcion te coje los caracteras k le indikes de derecha a izkierda.


Dim NewRuta As String
NewRuta = Right("C:\pakete\powa.enc", 4)


Salu2

W3XT3R

lo acabo de probar y lo que hace es cojer los ultimos caracteres y quitar el resto
Ej: de C:\pakete\powa.txt.enc se quedaria en .enc no en C:\pakete\powa.txt q es lo que quiero

sch3m4

usa mid.

resultado=mid(cadena,1,len(cadena)-4)
SafetyBits

"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.(..

W3XT3R

no he probado lo del mid pero lo he solucionado basandome en lo del right de la siguiente manera
destino = Left(destinoname, Len(destinoname) - 4)

Kizar

Pua, las drogas me tan matando. lo sento se me fue la pinza.

Salu2