分割符转化问题

[muyitn]

怎样将cd.txt文本中的|分割符转化为，
cd.txt（转化前）
aaa|dddd|dddd|ddd|ddd|
aaa|dddd|dddd|ddd|ddd|
aaa|dddd|dddd|ddd|ddd|
aaa|dddd|dddd|ddd|ddd|
aaa|dddd|dddd|ddd|ddd|

cd.txt（转化后）
aaa，dddd，dddd，ddd，ddd，
aaa，dddd，dddd，ddd，ddd，
aaa，dddd，dddd，ddd，ddd，
aaa，dddd，dddd，ddd，ddd，
aaa，dddd，dddd，ddd，ddd，

还有我的文件可能会比较大可能会有几十m，如何加快转化的速度

[darkbug]

用replace函数就可以了，而且从头到尾好像也就遍历一次

[muyitn]

具体一点 我是个初学者
能不能给我一个程序之类的给我参考参考

[pizixt]

<%
Dim fso,SourceFile,TargetFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set SourceFile = fso.OpenTextFile("c:\sourcefile.txt",1)
Set TargetFile = fso.OpenTextFile("c:\targetfile.txt",2,True)
Do While not SourceFile.AtEndOfStream
str = SourceFile.ReadLine
TargetFile.WriteLine replace(str,"|",",")
Loop
SourceFile.Close
TargetFile.Close
Set SourceFile=nothing
Set TargetFile=nothing
Set fso=nothing
%>