怎么读取txt内的行重新生成新的txt文件

如何读取txt内的行重新生成新的txt文件
现有1.txt文件内容如下：


张强
王飞
李树
陈欢
吴刚
肖力


如何用asp读取1.txt的行，然后生成新的txt文件，格式如下：

文件标题：张强是男的,王飞是女的,李树是男的.txt
文件内容：张强是男的,王飞是女的,李树是男的,张强去上学了,王飞还没下班,李树在家里

麻烦给一下代码，先谢谢各位了
------解决方案--------------------

set fs=server.createobject("scripting.filesystemobject") 

file=server.mappath("qq.txt") 

set txt=fs.opentextfile(file,1,true) 

do while Not txt.AtEndOfStream

 rline =txt.ReadLine'读取一行

respinse.write rline&"<br>"

loop

这个是读取txt每一行文件的
不知道你要生成什么新的条件，你把上面读取到的内容组合成你要的新的格式，然后再用FSO生成新的文件即可

TxtFileName = "new.txt"  '要保存的文本文件名

Set fso = CreateObject("Scripting.FileSystemObject")    '建立fso对象

Set MyFile = fso.CreateTextFile(Server.mapPath(TxtFileName), True)  '建立对象

MyFile.WriteLine str   '将str的值写入文本文件，即上面内容组合而成的新的内容

MyFile.Close   '关闭对象

set MyFile=nothing    '释放对象空间

------解决方案--------------------

'读文件

public function LoadFile(path,charset)

	dim stream

	set stream = server.createobject("adodb.stream")

	stream.mode = 3

	stream.type=2

	stream.charset=charset

	stream.open

	stream.loadfromfile path

	LoadFile = stream.readtext()

	stream.close

	set stream = nothing

end function



'写文件

public function SaveFile(path,content,charset)

	dim stream

	set stream = server.createobject("adodb.stream")

	stream.mode = 3

	stream.type=2

	stream.charset=charset

	stream.open

	stream.writetext(content)

	stream.savetofile path,2

	stream.close

	set stream = nothing

end function

文件读出来，split按照行分割，可以直接参考楼上兄弟的，我个人习惯用stream读写文件