Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Magic_Key en 29 Abril 2009, 12:26 pm



Título: Buscar Cadena de Texto Variable
Publicado por: Magic_Key en 29 Abril 2009, 12:26 pm
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


Título: Re: Buscar Cadena de Texto Variable
Publicado por: cassiani en 29 Abril 2009, 15:58 pm
hola, no tengo tiempo para hacerte un ejemplo, te dejo otro que use en su momento para algo parecido y te puedas guiar:

Código:
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,


Título: Re: Buscar Cadena de Texto Variable
Publicado por: Novlucker en 29 Abril 2009, 16:00 pm
Expresiones regulares  :D

:http://support.microsoft.com/kb/818802/es
:http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/198-expresion-regular-extraer-url.htm

Saludos