‘INIファイルから値を取得する関数の宣言 Public Declare Function GetPrivateProfileString Lib "kernel32.dll" _ Alias "GetPrivateProfileStringA" _ (ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long, _ ByVal lpFileName As String) As Long
‘/*************************************************/ ‘/* [ 名 称 ] blnGetInFileData : INIファイル読み込み処理 ‘/* [ 引 数 ] strIniFilePath : 入力 (INIファイルフルパス名) ‘/* strGetSection : 入力 (セクション名) ‘/* strGetKey : 入力 (キー名) ‘/* strData : 出力 (検索した値) ‘/* [ 戻 値 ] True : 正常 ‘/* False : エラー ‘/* [ 概 要 ] INIファイルを指定したキーで読み込み。 ‘/* [ 履 歴 ] 2003/11/01 新規 v01.00 会社名 担当者名 ‘/*************************************************/ Public Function blnGetInFileData(ByVal strIniFilePath As String, _ ByVal strGetSection As String, _ ByVal strGetKey As String, _ ByRef strData As String) As Boolean On Error GoTo Err_blnGetInFileData ‘変数宣言——————————————————————— Dim strValue As String * 1024 ‘WindowsAPIの戻り値変数 Dim lngStrLength As Long ‘WindowsAPIに渡す変数の長さ変数 Dim lngReturnLength As Long ‘WindowsAPIの動作結果値変数 ‘—————————————————————————–