我一行一行读一个文本,合以来却并成一行,请问如何保持原来的分行

[fgwr]

我一行行读一个文件，在每行前和后加些字符，用一个变量将这些都 加起来，但最后成了一行。有什么方法保持原来的分行啊？

[wybm]

<%
set fso=server.CreateObject("scripting.filesystemobject")
text_file="The open file"
set txt=.OpenTextFile(text_file,1,false)
Do While Not txt.AtEndOfStream
sContent = sContent & txt.ReadLine & "<br>"
loop
Response.Write(sContent)
%>

[fgwr]

能不能不用<BR>？因为我的文件不是在网页上显示

[孟子E章]

WriteLine Method:

Writes a specified string and newline character to a TextStream file.

object.WriteLine([string])

Arguments:

object:
Required. Always the name of a TextStream object.

string:
Optional. The text you want to write to the file. If omitted, a newline character is written to the file.

Remarks
The following example illustrates use of the WriteLine method:

Function WriteLineToFile
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
f.WriteLine "Hello world!"
f.WriteLine "VBScript is fun!"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
WriteLineToFile = f.ReadAll
End Function

[wingc]

那就用vbCrlf
即
......
sContent = sContent & txt.ReadLine & vbCrlf
......
其实就是ASCII中的换行符和回车符

[hydnoahark]

自己加vbCRLF即可

[fgwr]

多谢几位

[BrentIvan]

sContent = ""
Do While Not ts.AtEndOfStream ' ts is your TextStream Object
sContent = sContent & ts.ReadLine & "<br>"
Loop
Response.Write(sContent)

[tripofdream]

>>在每行前和后加些字符
顺便加上回车就行

[is]

哎。。
我知道这是我想要的。
但不懂。。
解答一下。