File-I/O EAFunctions

Home > EA Functions > File-I/O > EA_TextFileOpen

EA_TextFileOpen

機能説明

指定したテキストファイルを開き、読み込んだテキスト情報を配列に格納します。

定義

Public Function EA_TextFileOpen (

ByVal ea_path As String,
ByRef ea_data() As String

) As Integer

引数

ea_path

読み込み対象のテキストファイルの絶対パスを設定します。

ea_data()

読み込まれたテキスト情報が格納されます。

戻り値

正常：(0)が返却されます。
異常：(Err.Number)が返却されます。

使用例

ファイル選択ダイアログで選択されたテキストファイルを開き、テキスト内容を配列に格納します。

                                    
Sub Main()
    Dim ea_path As String
    Dim ea_data() As String
    Dim fcnt As Integer
    
    fcnt = funcOpenFileDlgSingle2(ea_path)
    If fcnt = 0 Then Exit Sub
    MsgBox "選択件数:" & fcnt & vbCrLf & "選択パス:" & vbCrLf & ea_path
    fcnt = EA_TextFileOpen(ea_path, ea_data)
    MsgBox "選択件数:" & fcnt & vbCrLf & "選択パス:" & vbCrLf & EA_ArrayToTxt(ea_data, vbCrLf)
End Sub