
18/11/2004, 13:03
|
 | 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 |