2.8w+
社区成员
我一行一行读一个文本,合以来却并成一行,请问如何保持原来的分行
我一行行读一个文件，在每行前和后加些字符，用一个变量将这些都 加起来，但最后成了一行。有什么方法保持原来的分行啊？
...全文
当前发帖距今超过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)
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中的换行符和回车符
即
......
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
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)
%>
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)
%>
