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

fgwr 2001-07-23 12:28:52
我一行行读一个文件,在每行前和后加些字符,用一个变量将这些都 加起来,但最后成了一行。有什么方法保持原来的分行啊?



...全文
80 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
is 2001-09-16
哎。。
我知道这是我想要的。
但不懂。。
解答一下。
回复
tripofdream 2001-07-23
>>在每行前和后加些字符
顺便加上回车就行
回复
BrentIvan 2001-07-23
sContent = ""
Do While Not ts.AtEndOfStream ' ts is your TextStream Object
sContent = sContent & ts.ReadLine & "<br>"
Loop
Response.Write(sContent)
回复
fgwr 2001-07-23
多谢几位
回复
hydnoahark 2001-07-23
自己加vbCRLF即可
回复
wingc 2001-07-23
那就用vbCrlf

......
sContent = sContent & txt.ReadLine & vbCrlf
......
其实就是ASCII中的换行符和回车符
回复
孟子E章 2001-07-23
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
回复
fgwr 2001-07-23
能不能不用<BR>?因为我的文件不是在网页上显示
回复
wybm 2001-07-23
<%
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)
%>
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2001-07-23 12:28
社区公告
暂无公告