Buscar Cadena de Texto Variable

Iniciado por Magic_Key, 29 Abril 2009, 12:26 PM

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

Magic_Key

Hola a todos, a ver si me podeis dar alguna idea de como reolver mi problema. Tengo en un textbox (si es mas facil, se puede guardar en un fichero de texto) el codigo fuente de una web en htm. En ese codigo, tengo "basura" como links diversos, textos, funciones html, etc.  Lo que pretendo es buscar una cadena de texto. El problema es que es variable, pero es de este estilo: "http://wwwx.mihost.com/files/archivoxxx.xx"

Las X finales son el nombre del fichero, y la primera X es un numero que puede o no estar. Por lo cual, como no se la longitud fija de la cadena, no se me ocurre como acer para capturarla.

Lo que si hay fijo, es lo de /files/ , eso es inamovible. Habia pensado en hacer algo que busque lo del /files/ y copie los caracteres a izquierda y derecha y se pare alencontrar las primeras comillas.  ¿teneis alguna idea?
Gracias

cassiani

hola, no tengo tiempo para hacerte un ejemplo, te dejo otro que use en su momento para algo parecido y te puedas guiar:

Dim sCadena As String, sCadenaBuscar As String
Dim I As Integer, Posicion As Integer, Inicio As Integer
   
    sCadena = "hola como estas, yo estoy bien, adios espero que tu igual, adios!! hooo..."
    sCadenaBuscar = "adios"
    Inicio = 1
   
    For I = 0 To Len(sCadena)
        Posicion = InStr(Inicio, sCadena, sCadenaBuscar)
        If Posicion <> 0 Then
            Inicio = Posicion + 1
        Else
            Exit For
        End If
    Next
    MsgBox "se encontraron en la cadena orignal '" & I & "' coincidencia (s) con la cadena '" & sCadenaBuscar & "'"


Debes convertir eso en función y que te devuelva un array con los nombres que requieres, en lugar del numero de coincidencias.

espero te sirva de algo,

Novlucker

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein