Extraer texto de una cadena

[koaxial]

Buenas de nuevo...

Tengo una cadena en una variable. Las cadenas tienen esta nomenclatura:

variable="m_nombrecadena_1.txt"

Necesito extraer nombrecadena, es decir lo que se encuentra delimitado entre el caracter "_".

Lo he intentado con las funciones left y right, pero no me sale. ¿Cómo puedo hacerlo?

Gracias.

[tammander]

usa la funcion inStr para buscar un caracter (o varios) dentro de una cadena. Su sintaxis es:

InStr([start,]string1,string2[,compare])

por ejemplo:


pos=InStr("m_nombrecadena_1.txt","_")

pos tendría 2 --> m seria 1, _ seria 2, n seria 3 etc)

luego

pos2 = InStr(2, "m_nombrecadena_1.txt","_")
saldria 15


luego no tienes mas que sacar esa informacion:

loquequieroes = mid("m_nombrecadena_1.txt", pos, (pos2 - pos)+1)



Un saludo

[koaxial]

No me funciona bien. Seguramente algo hago mal:

Pos=InStr(objFile.Name,"_")
Pos2 = InStr(2, objFile.Name,"_")
NomFich=mid(objFile.Name, Pos, (Pos2 - Pos)+1)


Response.Write NomFich

Al hacer esto Response.Write NomFich devuelve el caracter "_"

Supongo que lo que pasa es que la longitud de la cadena es variable, porque depende del nombre del fichero que se esté mostrando... Lo que está claro es que siempre seguirá el patrón de extraer la cadena entre los caracteres "_"

[tammander]

Iniciado por koaxial

No me funciona bien. Seguramente algo hago mal:

Pos=InStr(objFile.Name,"_")
Pos2 = InStr(2, objFile.Name,"_")
NomFich=mid(objFile.Name, Pos, (Pos2 - Pos)+1)


Response.Write NomFich

Supongo que lo que pasa es que la longitud de la cadena es variable, porque depende del nombre del fichero que se esté mostrando... Lo que está claro es que siempre seguirá el patrón de extraer la cadena entre los caracteres "_"

Sustituye ese 2 por la variable pos que es la que contiene el valor de lectura de la primera aparición y sumale 1 para que siga con la siguiente (mira la sintaxis de esa funcion)

Pos2 = InStr(pos+1, objFile.Name,"_")

Un saludo

[koaxial]

Bueno, ya está casi. Ahora con este código:

Pos=InStr(objFile.Name,"_")

Pos2 = InStr(Pos+1, objFile.Name,"_")
NomFich=mid(objFile.Name, Pos, (Pos2 - Pos)+1)

Response.Write NomFich

Ahora Response.Write NomFich devuelve "_nombre_", pero necesito eliminar los guiones.

Sigo probando

[tammander]

NomFich=mid(objFile.Name, Pos+1, (Pos2 - Pos))

[koaxial]

¡Lo tengo!

Pos=InStr(objFile.Name,"_")
Pos2 = InStr(Pos+1, objFile.Name,"_")
NomFich=mid(objFile.Name, Pos+1, (Pos2 - Pos)-1)

Ahora sí me devuelve la cadena sin los guiones, tengo que probar si funciona con cualquier cadena, sea cual sea su longitud, pero parece que sí funciona.

Muchas gracias por la ayuda

[tammander]

De nada, para eso estamos