EA_TextFileSave

機能説明
配列に格納されたテキスト情報を指定ファイルに書き込みを行います。また、指定への書き込み先のファイルが存在しない場合、新規に作成します。

定義
Public Function EA_TextFileSave (
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(2) As String
    Dim ea_fcnt As Integer
    
    ea_fcnt = funcSaveFileDlg1("", ea_path)
    If ea_fcnt = 0 Then Exit Sub
    MsgBox "選択件数:" & ea_fcnt & vbCrLf & "選択パス:" & ea_path
    ea_data(0) = "a"
    ea_data(1) = "b"
    ea_data(2) = "c"
    ea_fcnt = EA_TextFileSave(ea_path, ea_data)
    MsgBox "結果:" & ea_fcnt    
End Sub
                                    
                                

クラウドソーシング「ランサーズ」