File-I/O EAFunctions

EA_GetIniFileData

機能説明

INIファイル形式のファイルから指定したセクション・キーに紐づく値を取得します。

定義

Public Function EA_GetIniFileData (

ByVal ea_path As String,
ByVal ea_sec As String,
ByVal ea_key As String,
ByVal ea_def As String,
ByRef ea_data As String

) as Integer

引数

ea_path

INIファイル形式のファイルの絶対パスを設定します。

ea_sec

セクションを指定します。

ea_key

キーを指定します。

ea_def

デフォルト値

ea_data

指定したセクション・キーに紐づく値を取得します。
指定したセクションやキーが存在しない場合、デフォルト値を取得します。

戻り値

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

Sub Main() Dim ea_path As String Dim ea_data As String Dim ea_fcnt As Integer Dim ea_res As Integer ea_fcnt = funcOpenFileDlgSingle(ea_path) If ea_fcnt = 0 Then Exit Sub ea_res = EA_GetIniFileData(ea_path, "SECTION", "KEY", "0", ea_data) MsgBox "結果:" & ea_res & vbCrLf & "取得値:" & ea_data End Sub