ヒントがありましたら教えてください。
よろしくお願いします。
Dim sR As New IO.StreamReader("c:\d2txt\in.txt")
Spt = Split(sR.ReadToEnd, " ")
sR.Close()
Dim Writer As New IO.StreamWriter("c:\d2txt\out.txtt")
Writer.WriteLine(Spt)
Writer.Close()
Writer.WriteLine(Spt)の箇所を
For i As Integer = Spt.GetLowerBound(0) To Spt.GetUpperBound(0)
Writer.WriteLine(Spt(i))
Next i
にして 配列を一つ一つ出力してやらないとダメかと思います。
コメント(1件)
Writer.WriteLine(Join(Spt, vbCrLf))
と書いた方が短くなりますよ。