【VBScript】テキストファイルを読み込み配列に格納する

2023年2月4日VBScript

テキストファイルを読み込み配列に格納する

テキストファイルを読み込み配列に格納する関数です。

 

引数

txtPath：読み込むテキストファイルのパス（フルパス）

 

戻り値

テキストファイルの内容を格納した配列

 

Function readText(txtPath)

    On Error Resume Next

    Dim objFSO      ' FileSystemObject
    Dim objFile     ' ファイル読み込み用
    Dim strArray()  
    Dim lineCount
    lineCount = 0
    Dim strTemp     ' 読み込んだ行の一時格納用

    Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
    If Err.Number = 0 Then
        Set objFile = objFSO.OpenTextFile(txtPath)
        If Err.Number = 0 Then
            Do While objFile.AtEndOfStream <> True

                strTemp = objFile.ReadLine
                Redim Preserve strArray(lineCount)
                strArray(lineCount) =strTemp
                lineCount = lineCount + 1
                
            Loop
            objFile.Close
        Else
            'msgbox("fileOpenErr: " & Err.Description) ' エラー時用（コメントアウト）
        End If
    Else
        'msgbox("Err:" & Err.Description) ' エラー時用（コメントアウト）
    End If

    Set objFile = Nothing
    Set objFSO = Nothing

    readText = strArray

End Function


'上の関数の実行例（実行時はコメントアウトを消してください）
'dim arr
'arr = readText("C:\test\list1.txt")
'msgbox arr(0)