' Tab-Delimit.vbs
'
' VBScript file to convert an Excel XLS file into a Tab-Delimited output file
'
' Drag and Drop the XLS File on top of this VBScript
'
' This will create and output file in same directory as XLS file called
' TAB_DEL_ appended to front of XLS file name
'
' Create for Sludge by RecycledSpinalFluid (You know the email addy to send payment to... :)
'
'
Set objExcel = CreateObject("Excel.Application")
Set objArgs = WScript.Arguments

'Get file to TAB-DELIMIT
If objArgs.Count = 1 Then
	strFileName = trim(objArgs(0))
Else
	strFileName = trim(InputBox("Enter XLS File Name" & VbCrLf & VbCrLf & "(Located in same directory as this script)", "XLS File To TAB-DELIMIT", "RSF.XLS"))
End If

'Check if not the current directory
slashLoc = InStrRev(strFileName, "\")
If slashLoc > 0 Then
	outputFileName = Left(strFileName, slashLoc) & "TAB_DEL_" & Mid(strFileName,slashLoc + 1, Len(strFileName) - 4 - slashLoc) & ".csv"
Else
	outputFileName = "TAB_DEL_" & strFileName
End If

'Check if and XLS or not
If ucase(Right(strFileName,4)) <> ".XLS" Then
	WScript.Echo "File to TAB-DELIMIT must be an XLS file"
	WScript.Quit
End If

'Create Output file name "TAB_DEL_" + XLS File Name
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(outputFileName, True)

'Open the XLS (Invisible)
Set objWorkbook = objExcel.Workbooks.Open(objArgs(0))

intStartRow = 1
intStartCol = 1
intRowsDown = 65536
intColsWide = 4

rowDate = True
compareLine = VbTAB & VbTAB & VbTAB
Do while rowDate = True
	writeLine = trim(objExcel.Cells(intStartRow, intStartCol).Value) & VbTAB & _
				trim(objExcel.Cells(intStartRow, intStartCol + 1).Value) & VbTAB & _
				trim(objExcel.Cells(intStartRow, intStartCol + 2).Value) & VbTAB & _
				trim(objExcel.Cells(intStartRow, intStartCol + 3).Value)
	If (writeLine <> compareLine) Then
		objTextFile.writeline writeLine
		intStartRow = intStartRow + 1
	Else
		rowDate = False
	End if
Loop
objExcel.Quit

Wscript.Echo "The Tab Delimited file:" & _
			 VbCrLf & VbCrLf & _
			 "'" & outputFileName & "' has been created."

rowDate = True
compareLine = ""
For i = 1 To intColsWide - 1
	compareLine = compareLine & VbTAB
Next

Do while rowDate = True
	writeLine = ""
	For i = 1 To intColsWide - 1
		writeLine = writeLine & trim(objExcel.Cells(intStartRow, intStartCol + i - 1).Value) & VbTAB
	Next
	writeLine = writeLine & trim(objExcel.Cells(intStartRow, intStartCol + i - 1).Value)
	
	If (writeLine <> compareLine) Then
		objTextFile.writeline writeLine
		intStartRow = intStartRow + 1
	Else
		rowDate = False
	End if
Loop
objExcel.Quit

Wscript.Echo "The Tab Delimited file:" & _
			 VbCrLf & VbCrLf & _
			 "'" & outputFileName & "' has been created."