manejo de cadenas

14/06/2007 - 15:24 por TR | Informe spam
Hola a todos,

Estoy intentando obtener el número de una cadena y no lo consigo. Es un
ejemplo como lo siguiente:

"/pagina/Informacion_45.asp?nivel=2&titulo=entrada"

Lo que quiero es obtener unicamente el "45" y así con cualquier número
que siempre estará en la misma posición, es decir:

"/pagina/Informacion_1.asp?nivel=2&titulo=entrada"
"/pagina/Informacion_14.asp?nivel=2&titulo=entrada"
"/pagina/Informacion_74.asp?nivel=2&titulo=entrada"
"/pagina/Informacion_34.asp?nivel=2&titulo=entrada"
"/pagina/Informacion_234.asp?nivel=2&titulo=entrada"

Me pueden ayudar, estoy intentando varias cosas pero no lo consigo.


Gracias,

Saludos,
 

Leer las respuestas

#1 Manuel Vera
14/06/2007 - 22:07 | Informe spam
Private Sub Command1_Click()
extraeer "/pagina/Informacion_1.asp?nivel=2&titulo=entrada"
extraeer "/pagina/Informacion_14.asp?nivel=2&titulo=entrada"
extraeer "/pagina/Informacion_234.asp?nivel=2&titulo=entrada"
End Sub

Sub extraeer(v)
Dim pos1, pos2, numero
Dim cadena

cadena = v
pos1 = InStr(cadena, "_")
pos2 = InStr(pos1, cadena, ".")
'v = Mid("", "")
numero = Mid(cadena, pos1 + 1, pos2 - pos1 - 1)

Debug.Print pos1, pos2, numero, cadena

End Sub


"TR" escribió en el mensaje
news:%
Hola a todos,

Estoy intentando obtener el número de una cadena y no lo consigo. Es un
ejemplo como lo siguiente:

"/pagina/Informacion_45.asp?nivel=2&titulo=entrada"

Lo que quiero es obtener unicamente el "45" y así con cualquier número que
siempre estará en la misma posición, es decir:

"/pagina/Informacion_1.asp?nivel=2&titulo=entrada"
"/pagina/Informacion_14.asp?nivel=2&titulo=entrada"
"/pagina/Informacion_74.asp?nivel=2&titulo=entrada"
"/pagina/Informacion_34.asp?nivel=2&titulo=entrada"
"/pagina/Informacion_234.asp?nivel=2&titulo=entrada"

Me pueden ayudar, estoy intentando varias cosas pero no lo consigo.


Gracias,

Saludos,

Preguntas similares