VBAを使用してテキストファイルのカンマをスペースに置き換える方法

Question

テキストファイル（input.jpg）にデータがあります。コンマをスペースに置き換え、データを1行に整列させたいと思います。出力テキストファイル（output.jpg）を見てください。

VBAでこれを行う方法。 私を助けてください。

[入力データ]

Answer 1

これはトリックを行う必要があります。

Sub foo() 
Dim objFSO 
Const ForReading = 1 
Const ForWriting = 2 
Dim objTS 'define a TextStream object 
Dim strContents As String 
Dim fileSpec As String 

fileSpec = "C:\Test.txt" 'change the path to whatever yours ought to be 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objTS = objFSO.OpenTextFile(fileSpec, ForReading) 

Do While Not objTS.AtEndOfStream 
    strContents = strContents & " " & objTS.ReadLine 'Read line by line and store all lines in strContents 
Loop 

strContents = Replace(strContents, ",", " ") 
objTS.Close 

Set objTS = objFSO.OpenTextFile(fileSpec, ForWriting) 
objTS.Write strContents 
objTS.Close 
End Sub