Asignar

[Fabian olmos]

estoy leyendo de un archivo txt y quiero que cada linea que lea se lo asigne a un textarea como lo puedo hacer..

Aqui va el código:

<%
Const ForReading = 1
Const Create = False
Dim FSysObj
Dim TS
Dim strLine
Dim strFileName
'nombre del fichero a mostrar
strFileName = Server.MapPath("Archivos\MANUAL.txt")
'Creación del objeto FileSystemObject
Set FSysObj = Server.CreateObject("Scripting.FileSystemObject")
' Abrimos el fichero
Set TS = FSysObj.Opentextfile(strFileName, ForReading, Create)
If not TS.AtEndOfStream Then
Response.Write "<FONT FACE=Arial, Helvetica, sans-serif SIZE=2 Aling=justify >"
Do While not TS.AtendOfStream
' Leemos el fichero linea a linea y lo mostramos
strLine = TS.ReadLine
%> </font></p>
<form name="form1" method="post" action="">
<div align="center">
<textarea name="informe" id="informe"></textarea>
<option value><% Response.Write i & " " & Server.HTMLEncode(strLine) & "<br>"
loop
End If%></option>
</div>
</form>
<%
' cerramos y destruimos los objetos
TS.Close
Set TS = Nothing
Set FSysObj = Nothing
%>



GRACIASS

[ximex]

lo que no se es si realmente estas leyendo el strlinea
si es asi.

Realiza el siguiente cambio

<div align="center">
<textarea name="informe" id="informe"></textarea>
<option value><% Response.Write i & " " & Server.HTMLEncode(strLine) & "<br>"
End If%></option>
</div>
<%
loop
' cerramos y destruimos los objetos
TS.Close
Set TS = Nothing
Set FSysObj = Nothing
%>

espero te sirva ....

[Mai]

Si lo que quieres es que muestre todo el contenido del fichero dentro de un textarea, se leeria todo de golpe y luego lo mostraria al acabar en el textarea, es decir, añadiria cada linea a una variable y luego al acabar (despues del loop) pondria el textarea con el contenido de la variable.
Espero que te sirva.

Mai