' ******************************************************
' *
' * Name:         tstWriteFlatFile.vbs
' *
' * Design Phase:
' *     Author:   John Miner
' *     Date:     06/30/2008
' *     Purpose:  A test program to write flat files.
' *
' ******************************************************


'
' Declare all variables
'
Option Explicit


'
' Load the class library
'

ExecuteGlobal CreateObject("Scripting.FileSystemObject").OpenTextFile(CurrentPath() & "mod-write-text-file.vbs").ReadAll


'
'  Get The Current Program Path
'
Function CurrentPath()
    CurrentPath = Replace(WScript.ScriptFullName, WScript.ScriptName,"")
End Function


'
' Make a fixed length field for packing
'
Public Function PackField(strData, intSize)
    PackField = mid("" & strData & Space(intSize), 1, intSize)
End Function


'
' Code to test the program
'
Public Sub Test()


    ' The test file name
    Dim strFile
    strFile = "c:\vbs-depot\flat\presidents.txt"

    ' Create the object
    Dim objTxtFile 
    Set objTxtFile = New clsWriteTxtFile

    ' Open the file
    objTxtFile.OpenDataFile strFile, ForWriting

    ' Make up some data
    Dim strLine

    ' President #1 - set the properties
    strLine = ""
    strLine = strLine & PackField("1", 5)
    strLine = strLine & PackField("George", 15)
    strLine = strLine & PackField("Washington", 15)
    strLine = strLine & PackField("1600 Pennsylvania Avenue", 30)
    strLine = strLine & PackField("North West", 20)
    strLine = strLine & PackField("Washington", 20)
    strLine = strLine & PackField("DC", 3)
    strLine = strLine & PackField("20500", 6)
    strLine = strLine & PackField("1789-1797", 10)
    objTxtFile.PushData strLine

    ' President #2 - set the properties
    strLine = ""
    strLine = strLine & PackField("2", 5)
    strLine = strLine & PackField("John", 15)
    strLine = strLine & PackField("Adams", 15)
    strLine = strLine & PackField("1600 Pennsylvania Avenue", 30)
    strLine = strLine & PackField("North West", 20)
    strLine = strLine & PackField("Washington", 20)
    strLine = strLine & PackField("DC", 3)
    strLine = strLine & PackField("20500", 6)
    strLine = strLine & PackField("1797-1801", 10)
    objTxtFile.PushData strLine

    ' President #3 - set the properties
    strLine = ""
    strLine = strLine & PackField("3", 5)
    strLine = strLine & PackField("Thomas", 15)
    strLine = strLine & PackField("Jefferson", 15)
    strLine = strLine & PackField("1600 Pennsylvania Avenue", 30)
    strLine = strLine & PackField("North West", 20)
    strLine = strLine & PackField("Washington", 20)
    strLine = strLine & PackField("DC", 3)
    strLine = strLine & PackField("20500", 6)
    strLine = strLine & PackField("1801-1809", 10)
    objTxtFile.PushData strLine
    
    ' President #4 - set the properties
    strLine = ""
    strLine = strLine & PackField("4", 5)
    strLine = strLine & PackField("James", 15)
    strLine = strLine & PackField("Madison", 15)
    strLine = strLine & PackField("1600 Pennsylvania Avenue", 30)
    strLine = strLine & PackField("North West", 20)
    strLine = strLine & PackField("Washington", 20)
    strLine = strLine & PackField("DC", 3)
    strLine = strLine & PackField("20500", 6)
    strLine = strLine & PackField("1809-1817", 10)
    objTxtFile.PushData strLine
    
    ' President #5 - set the properties
    strLine = ""
    strLine = strLine & PackField("5", 5)
    strLine = strLine & PackField("James", 15)
    strLine = strLine & PackField("Monroe", 15)
    strLine = strLine & PackField("1600 Pennsylvania Avenue", 30)
    strLine = strLine & PackField("North West", 20)
    strLine = strLine & PackField("Washington", 20)
    strLine = strLine & PackField("DC", 3)
    strLine = strLine & PackField("20500", 6)
    strLine = strLine & PackField("1817-1825", 10)
    objTxtFile.PushData strLine


End Sub


' Run the test
Test