So ersetzen Sie Komma durch Leerzeichen in Textdatei mit VBA

Question

Ich habe Daten in einer Textdatei (input.jpg). Ich möchte das Komma durch das Leerzeichen ersetzen und die Daten in einer Zeile ausrichten. Bitte beachten Sie die Ausgabe Textdatei (output.jpg).

wie Sie dies in VBA tun. Bitte helfen Sie mir.

[Eingangsdaten]

Answer 1

Dies sollte den Trick:

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