Buscar Texto en HTML

[asauce]

Hola. Me gustaría saber si alguien me puede decir si es posible (vaya estructura gramatical)... ... si hay alguna manera de abrir un fichero html (o asp, o txt, o...) e ir buscando algún texto fijo para así poner lo que vaya después del texto buscado.

Me explico, sería para hacer una especie de base de datos (o de actualizar noticias). Un ejemplo.

Tenemos unos cuantos ficheros html sacados con un programa de inventario de ordenadores. Entonces, tener una página ASP -o lo que sea- que te abra el fichero HJ9000.html que es el número de serie (pongamos) y te busque la cadena de texto "Nombre de Equipo:" para que entonces te escriba lo que venga a continuación, hasta que encuentre un salto de línea o... ... un paréntesis, un ; un ... lo que sea.

Al igual pido demasiado, pero a ver si alguien sabe algo o me puede decir algún sitio donde esté, ya que he buscado en el gúguel "buscar texto asp", "buscar documento" y bueno, algunas cosas más y todo son referidos a busar texto en el word, reemplazar texto, etc. ; ninguna que sea lo que yo busco.

Muchas gracias.

[3pies]

Este ejemplo es similar a lo que buscas, pero lo que hace, es buscar en otro sitio web, el cambio de determinada moneda.

http://www.forosdelweb.com/f15/tipo-cambio-dolar-peso-mexicano-271010/

[asauce]

Ok, a ver, he probado el código que hay y con su página va bien. Ahora estoy probando a ver con la mía... si hago bien los cambios o qué... Gracias.

[asauce]

Hola. He cojido el original y lo he cambiado para que me sirva (el original me funciona bien), lo que no sé si he cambiado demasiadas cosas o me falta alguna más por cambiar.

Me queda así:

Donde pone ficheroweb, va la dirección web de un fichero htm que tengo en un servidor web (es que el foro éste me dice que no puedo vincular páginas y no sé qué). Si escribo la dirección del fichero htm tal y como la escribo donde pone FICHEROWEB, se me visualiza correctamente -vamos, que existe y que la dirección está bien escrita-.

<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "ficheroweb", False
xml.Send
Cadena = CSTR(xml.responseText)
PosIni1 = InStr(Cadena,"Autor")
PosIni2 = InStr(PosIni1,Cadena,"r")
PosFin = InStr(PosIni2, Cadena,"hu")
Texto = MID(Cadena, PosIni2, PosFin-PosIni2)
Response.Write "Autor: " & Texto & "<br>"
Set xml = Nothing
%>

Me dice error msxml3.dll (0x80070005)
Acceso denegado.

Gracias.

[asauce]

El código original que he cojido es este, del enlace que me has dado, 3pies. Si pongo éste, para probar lo que hace, me funciona bien. Lo malo es cuando hago los cambios.

NOTA: Donde pone PAGINAWEB va la página web donde ha de leer los datos -lo mismo que antes, que no me deja poner vínculos el foro éste-.
Es, sin espacios:
http : / / dsrefa01 . hsbc . com . mx / aptrix / InternetPub . nsf / Content / TasasSplash


<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "paginaweb", False
xml.Send
Cadena = CSTR(xml.responseText)
PosIni1 = InStr(Cadena,"DOLAR AMERICANO")
PosIni2 = InStr(PosIni1,Cadena,"$")
PosFin = InStr(PosIni2, Cadena,"<")
DolarCompra = MID(Cadena, PosIni2, PosFin-PosIni2)
PosIni1 = PosFin
PosIni2 = InStr(PosIni1,Cadena,"$")
PosFin = InStr(PosIni2, Cadena,"<")
DolarVenta = MID(Cadena, PosIni2, PosFin-PosIni2)
Response.Write "Dolar Compra: " & DolarCompra & "<br>"
Response.Write "Dolar Venta: " & DolarVenta & "<br>"
Response.Write Cadena & "<br>"
Set xml = Nothing
%>

Gracias.

[3pies]

La linea donde abres el fichero, debe contener la ruta competa del mismo. Ejemplo:

Código:

xml.Open "GET", "http://www.misitio.com/ficheroweb.html", False

[asauce]

Sí sí, lo que pasa es que si pongo aquí una página web, me da error y no me deja poner el mensaje; pero sí, tengo toda la dirección de la página. Sigo probando... cambiando cosas y eso, pero de momento nada.
Gracias.

[asauce]

Una preguntilla... ¿No hará falta cargar en la p´..... bueno, ahora que pienso que con el código original si que funciona... no tiene sentido la pregunta, pero bueno, la pongo por si acaso...

¿No hará falta cargar en la página algún fichero tipo el adovbs ese o algo así??? Que yo he puesto el código ese y ya está. (Aunque eso, con el original sí que funcionaba).