29/08/2005, 11:32
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
| podrías hacer un split por el retorno de carro (vbcrlf) y, mediante un for de 0 a 3, mostrar las 4 primeras:
<%
'Leer contenido de un fichero
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set oFich = FSO.OpenTextFile(Server.MapPath("prueba.txt"))
texto= oFich.ReadAll
oFich.Close
set oFich = nothing
texto = split(texto, vbcrlf)
for i = 0 to ubound(texto)
response.write "linea " & i + 1 & ": " & texto(i) & "<br>"
if i = 3 then exit for '(por si tiene más de 4 líneas)
neext
%>
__________________
...___... |