12/02/2007, 06:51
|
 | | | Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 18 años, 8 meses Puntos: 2 | |
| Re: Extraer caractareres
para esos puedes hacerlo con el Instr que te devuelve la posicion de la cadena dentro de otra es algo asi
cadenaorigen = "Hoja.XLS"
CadenaABuscar=".XLS"
posicion=InsStr(1,CadenaOrigen, CadenaABuscar)
if posicion > 0 then
NombreFichero2 = mid(CadenaOrigen,1,len(CadenaOrigen)-Len(CadenaABuscar)) & ".DOC"
endif
aunque creo que para un efecto como el que deseas es mas facil
cNomFich2=replace(cNomFish,".XLS",".Doc")
u otra forma seria
cNomFish2 = left(cNomFish,Len(cNomFish)-4) & ".Doc" |