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,

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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:%
Mostrar la cita

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida