Windows & DOS: Issues & Discussions

Dim filesys, Infile, Outfile, pos

Const ForReading = 1, ForWriting = 2 

file = InputBox("Filename : ")

if file = "" then
  WScript.Quit
end if

Outfile = "Outfile"

Set filesys = CreateObject("Scripting.FileSystemObject")

If NOT filesys.FileExists(file) Then
  msgbox("File " & file & " not found!")
  WScript.Quit
End If 

Set Infile = filesys.OpenTextFile(file, ForReading, True)
Set Outfile = filesys.OpenTextFile(Outfile, ForWriting, True)

do while Infile.AtEndOfStream <> true
  Line = Infile.readline
  pos = instr(Line,",")
  Line = Left(Line, pos - 1) & "|" & Mid(Line, pos + 1)
  Outfile.WriteLine(Line)
loop

Infile.Close
Outfile.Close

Set Infile = Nothing
Set Outfile = Nothing
Set filesys = Nothing

MsgBox("Ready")

Line = Left(Line, pos - 1) & "|" & Mid(Line, pos + 1)

Line = Left(Line, pos - 1) & vbTab & Mid(Line, pos + 1)