Ver Mensaje Individual
  #5 (permalink)  
Antiguo 18/11/2004, 13:03
Avatar de u_goldman
u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 3 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