change the known file extension using VBScript

• General discussion

• 

  

  0

  Sign in to vote

  Hi,

  I am converting one CSV file which contains 8 columns to another csv file. the new file contains 3rd and 5th column of soured file.

  I have done this by below code.

  Const ForWriting = 2
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objTextFile = objFSO.OpenTextFile("D:\source.csv")
  Set objLogFile = objFSO.CreateTextFile("D:\result.csv", _
      ForWriting, True)
      
  ' Write comma delimited list of columns in new CSV file.
  srcColumns = Split(objTextFile.ReadLine(), ",")
  extractedColumns = srcColumns(2) & "," & srcColumns(5)
  objLogFile.Write extractedColumns
  objLogFile.WriteLine
  
  
  strLine = objTextFile.ReadLine
  MsgBox strLine
      Do While Not objTextFile.AtEndOfStream
      strLine = Split(objTextFile.ReadLine(), ",")
      objLogFile.Write strLine(2) & ","
      objLogFile.Write strLine(5)
      objLogFile.WriteLine
      strWord = (strLine(2) & ",") & (strLine(5))
      MsgBox strWord
  Loop
  

   But when opening the new csv file, the 2 data is stored in same cell with comma(,).

  So I tried to write in .txt file and change the file extension to .csv by Vbscript.

  so I want to store the data in separate column or change the new file's extension.

  Please give me any solution.

  Thanks

  • Changed type Bill_Stewart Friday, March 15, 2019 3:07 PM
  • Moved by Bill_Stewart Friday, March 15, 2019 3:07 PM This is not "fix/debug/rewrite my script for me" forum

  Wednesday, December 12, 2018 6:06 PM