Intellipro - Automating QTP Test Automation - Downloads - File - Load Array

File Function - Load Array

This function loads an array with the contents of a text file.

Download it Here (right-click and then save target as).

(NOTE - you can just cut & paste from below, but the formatting will have multiple spaces instead of tabs).

'=========================================================================

Function zFile_LoadArray(sFile)

    'This function loads an array from a text file

    'Usage:
        'Dim aList
        'aList = zFile_LoadArray(sFile)

    'Where:
        'sFile is the file containing the text required
        'aList is the returned array containing the lines from the text file
        'Note the zeroth entry is reserved for indicating Empty/No file

    Dim iCount, aList(), oFso, oFile, sLine
    Const ForReading = 1, ForWriting = 2, ForAppending = 8

    iCount = 0
    ReDim aList(0)

    If zFile_Exists(sFile) Then

        Set oFso = CreateObject("Scripting.FileSystemObject")

        Set oFile = oFso.OpenTextFile(sFile, ForReading)

        Do While oFile.AtEndOfStream <> True

            sLine = oFile.ReadLine

            iCount = iCount + 1

            ReDim Preserve aList(iCount)

            aList(iCount) = sLine

        Loop

        oFile.Close

        Set oFso = Nothing

    End If

    zFile_LoadArray = aList

End Function

'=========================================================================