Create *.cvs file, or xls from split array

Through the help of this forum I've managed to make a VBScript that sucks in a txt file, parses it up, and spits out some legible data. I have it spit out a file that's in *.cvs format. The problem I have is that the file is not automatically picked up by Excel as an associated file. If I create a file w/ Excel and save it as *.cvs it does. I'm not sure what i'm not doing right. Do I need to write some special data to the file for the association to work?  Below is the code i've gotten working and doing exactly what I want, minus the Excel association. :)  
Set objFSO = CreateObject("Scripting.FileSystemObject") 'object to first file
Const intForReading = 1
 
strFile1 = "Text.txt"        						'Read file location, name
strFile2 = "Disabled.cvs"    						'write file location, name
 
Set objFile1 = objFSO.OpenTextFile(strFile1, intForReading, False)
arr1 = Split(objFile1.ReadAll, VbCrLf)  				'bring file into array
objFile1.Close 								'closes objec to read file
									
cnt = ubound(arr1)							'sets count to array length
 									
Set objFile2 = objFSO.CreateTextFile(strFile2, True)			'object for write file
for i=0 to cnt 								'loop for writing
	arr2 = Split(arr1(i), "=")
	arr3 = Split(arr2(1), ",")
						
	objFile2.WriteLine arr3(0)					'writes to file
									'increments array count
Next
 
objFile2.Close
 
MsgBox "Done"

Open in new window

mmitchell57Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
DaveConnect With a Mentor Commented:
try a csv file
strFile2 = "Disabled.csv"
0
 
mmitchell57Author Commented:
oh heck.... attention to detail? :D
0
 
mmitchell57Author Commented:
Yep, i'm retarded. Thank you! :)
0
 
mmitchell57Author Commented:
I failed to pay attention to detail! I appreciate BrettDJ being polite w/ his response.
0
 
DaveCommented:
:)

wev'e all been there

Cheers

Dave
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.