Foros del Web » Programando para Internet » ASP Clásico »

Leyendo de un archivo html y publicando parte del mismo en un archivo asp

Estas en el tema de Leyendo de un archivo html y publicando parte del mismo en un archivo asp en el foro de ASP Clásico en Foros del Web. Hola a todos, Tengo un problema: tengo dos archivos, uno html y otro asp. Lo que tengo que hacer es publicar parte del html en ...
  #1 (permalink)  
Antiguo 18/11/2004, 11:37
 
Fecha de Ingreso: octubre-2004
Mensajes: 50
Antigüedad: 19 años, 7 meses
Puntos: 0
Leyendo de un archivo html y publicando parte del mismo en un archivo asp

Hola a todos,

Tengo un problema: tengo dos archivos, uno html y otro asp. Lo que tengo que hacer es publicar parte del html en el asp.

Empecé bien abriendo el archivo y con el comando readline, pero si bien logro sacarle la primera parte del archivo, no logro sacarle el final del mismo.

Por ejemplo, empieza a leer y publicar desde el tercer tag <tr bgcolor=#003399> pero tdebe terminar en el tag <blink>, y no lo hace, sigue hasta el final.

Alguna idea?

Gracias por adelantado!!
  #2 (permalink)  
Antiguo 18/11/2004, 12:21
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Como estás leyendo, y cómo estás buscando el tag dentro del archivo?


Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #3 (permalink)  
Antiguo 18/11/2004, 12:23
 
Fecha de Ingreso: octubre-2004
Mensajes: 50
Antigüedad: 19 años, 7 meses
Puntos: 0
Abre el archivo:
Código HTML:
Set fso = CreateObject("Scripting.FileSystemObject")
file = "c:\InetPub\wwwroot\pronos.php.htm"
Set ts  = fso.OpenTextFile(file, ForReading)
Lee con el statement ReadLine y escribe con el mismo.
  #4 (permalink)  
Antiguo 18/11/2004, 12:57
 
Fecha de Ingreso: octubre-2003
Mensajes: 49
Antigüedad: 20 años, 7 meses
Puntos: 0
Como te mueves a la siguiente linea????
  #5 (permalink)  
Antiguo 18/11/2004, 13:03
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Algo como:

Código:
Function EncuentraString(cadena, busca)
  loEncontre = false
  pos = instr(cadena, busca)
  If pos > 0 Then
    loEncontre = true
  End If
  Encuentra = loEncontre
End Function

templine = ""
busca = "<blink>"
ParaImprimir = ""

Do while not ts.AtEndofStream
  templine = templine
  limite = Encuentra(templine, busca)
  If Not limite Then
    ParaImprimir = ParaImprimir & templine
  Else
    Exit Do
  End If
Loop

Response.Write ParaIMprimir
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 01:28.