请问字符转换

请教字符转换?
请各位高手帮帮忙?
我想读取D盘的DS.TXT二进制文件,想把它重新转换成另外一文本格式,不知那里出错了,请帮忙解决.或者有更好的方法.特别感谢!
Dim sr As IO.StreamReader = New IO.StreamReader("d:\\dpdm.txt", System.Text.Encoding.Default)
  Dim str As String = sr.ReadToEnd()
  sr.Close()
  Dim objStreamWriter As IO.StreamWriter
  objStreamWriter = New IO.StreamWriter("d:\Test.txt")
  objStreamWriter.WriteLine(sr)
  objStreamWriter.Close()

DS.TXT原文件内容如下!每个逗号为一字段,我想把逗号换成(|)号为分段字符
"10","000001","0000001","1.85","1.5705"
"10","000006","0000002","1.9","1.5555"
"10","000020","0000003","1.9","1.5705"
"10","000077","0000004","1.9","1.5555"
"10","000086","0000005","11.2","8.9743"
"10","000109","0000006","2","1.5705"
  转换后如下:
10|000001|0000001|1.85|1.5705|
10|000006|0000002|1.9|1.5555|
10|000020|0000003|1.9|1.5705|
10|000077|0000004|1.9|1.5555|
10|000086|0000005|11.2|8.9743|
10|000109|0000006|2|1.5705|

 

[解决办法]
VB.NET代码：

VB.NET code

Dim sr As New StreamReader("d:\test.txt", Encoding.Default)Dim str As String = sr.ReadToEnd.Replace(""",""", "|").Replace("""", "")sr.CloseDim objStreamWriter As New StreamWriter("d:\test.txt")objStreamWriter.WriteLine(sr)objStreamWriter.Close