vbscript extract csv into tab delimited file

Hi again Jacob, and thanks for your invitation to look at another of your intriguing challenges! I have used here out old friend FileSystemObject to process the file, in conjunction with VBScript's very useful Join & Split functions to achieve the required output. Please test it and let me know how it goes for you.
...Terry

Option Explicit
Dim objFSO, objImport, objExport
Dim a, b, c, d, i
Dim strImportLine, strImport, strExport
Set objFSO = CreateObject("Scripting.FileSystemObject")
strImport = "C:\Users\jlepley\Documents\Main Folder\Script\CSVFILETOIMPORT.csv"
strExport = "C:\Users\jlepley\Documents\Main Folder\Script\TabDelimitedOutput.txt"
Set objImport = objFSO.GetFile(strImport)
Set objImport = objFSO.OpenTextFile(objImport, 1)
Set objExport = objFSO.CreateTextFile(strExport)
i = 0
Do Until objImport.AtEndOfStream
	i = i + 1
	strImportLine = objImport.ReadLine
		a = Split(strImportLine,",")
	If i= 1 Then ' process header line
		d = Join(Array(a(3),a(2),a(1),a(0)),vbTab)
	Else
		b = Split(a(3),"/") 'split date into components
		c = Join(Array(b(2),Format00(b(0)),b(1)),"/") 'rejoin date components in required format
		d = Join(Array(c,a(2),a(1),a(0)),vbTab) 'rejoin string in required or as tab-separated values
	End if
	objExport.WriteLine d
Loop
objImport.Close
objExport.Close

Function Format00(f_string)
If Len(f_string)= 1 Then
	Format00 = "0" & f_string
Else
	Format00 = f_string
End If
End Function

Select allOpen in new window

Terry thank you once again for helping me out on this. Would you be able to put some comments in your code? I am having a hard time figuring out what is going on. I was hoping to get a basic understanding of 3 things:
1. Obviously how to convert from csv to tab delimited
2. How to take the data from say header 4 of the csv and put in header 1 of the txt file. (knowing this I should be able to do this for all columns)
3. How to change the format (whether by date or something else) in each column.

If this is too much to explain I understand.

Thanks you


EDIT:
I am starting to understand a little bit. "a" is the array of data in each row. so the first line would read a(0) as Header1. a(1) as Header2 and so on. Correct? "b" and "c" is how to reformat the date in specified value. "d" is as you stated in the comment that I overlooked, rejoining the string in tab format.

Another Edit:
No need to respond just yet. I am figuring something out (I think). Will get back shortly

Thanks

OK. I made some changes to your code to meet the needs of the actual file imported (also attached).Note that the pics file is much larger than that but I trimmed it down.  

So I got the data importing into the right columns however, I need to change the format of a few columns:
Column 1 = StoreCode needs to be "000". in other words if the storecode is 17 it should be 017
Column 2 = DataDate needs to be yyyy-mm-dd. This date is not imported. As you can see I have it hard coded as Now() which is not the proper format.  It would be nice if you could take the date the file was created and insert here in the proper format. If that's too much then just Now() in the proper format should work.
Column 3 = UPCCode needs to be "0000000000000" in other words 1234567 should be 0000001234567 (13 digits)
and lastly Column 4 = SKUCode needs to be "000000" 6 digits

Let me know what you think. Thank you


Option Explicit
Dim objFSO, objImport, objExport
Dim a, b, c, d, i

Dim strImportLine, strImport, strExport
Set objFSO = CreateObject("Scripting.FileSystemObject")
strImport = "C:\Users\jlepley\Documents\Main Folder\Script\PICSfile.csv"
strExport = "C:\Users\jlepley\Documents\Main Folder\Script\TabDelimitedOutput.txt"
Set objImport = objFSO.GetFile(strImport)
Set objImport = objFSO.OpenTextFile(objImport, 1)
Set objExport = objFSO.CreateTextFile(strExport)
i = 0
Do Until objImport.AtEndOfStream
      i = i + 1
      strImportLine = objImport.ReadLine
            a = Split(strImportLine,",")  
      If i= 1 Then ' process header line
            'These are the headers.
             d = Join(Array("StoreCode", "DataDate", "UPCCode","SKUCode","UseUPC","TranQuant","TransPrice","DAXTranType","POID","PackSize","UseStoreEDICode","SourceStamp"),vbTab)
      Else
            'I commented your code for now as the file imported doesn't actually have a column date.
            'b = Split(a(3),"/") 'split date into components
            'c = Join(Array(b(2),Format00(b(0)),b(1)),"/") 'rejoin date components in required format
            'd = Join(Array(c,a(2),a(1),a(0)),vbTab) 'rejoin string in required or as tab-separated values
            'here is the data that needs to go in each column. Some columns will be blank or static data.
            d = Join(Array(a(12), NOW(), a(0), a(7), 1, a(10),"","RealInventory","","EA","",-1),vbTab) 'rejoin string in required or as tab-separated values
      End if
      objExport.WriteLine d
Loop
objImport.Close
objExport.Close

Function Format00(f_string)
If Len(f_string)= 1 Then
      Format00 = "0" & f_string
Else
      Format00 = f_string
End If
End Function
MyScript.vbs
PICSfile.csv

Terry you rock! Thank you so much. I learned a lot from this and your previous answer. I am using textpad. I tried the evaluation of vbsedit but that was a pain (the evaluation version that is). Anyways I do have some more things I need to do to this code to make it work EXACTLY how I want that I didn't include but i will try on my own and if i need help will open another question and surely link you to it.

Once again thanks.

Great you're welcome Jacob. I learned a lot myself, and I'm impressed with the file & text manipulation capability of VBScript. I'll look forward to your next challenge

Got another one for ya Terry if you are interested. Same script but now I need to finalize it by completely automating it. Would love for your help on it. Thank you

https://www.experts-exchange.com/questions/28021083/vbscript-to-convert-all-files-in-a-folder.html

Thanks Jacob for the invitation, looks like Rob has sorted that one for you. You can delete the FormatDate00 function too, since you have what you need with the strDate definition. I'm glad your project has come to a successful conclusion!