Visual Basic

INIファイル読み込み (blnGetInFileData)

INIファイルを読み込む関数のサンプル。

‘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      : ＩＮＩファイル読み込み処理             
‘/* [ 引 数 ] strIniFilePath : 入力 (INIファイルフルパス名)                  
‘/*           strGetSection  : 入力 (セクション名)                           
‘/*           strGetKey      : 入力 (キー名)                                 
‘/*           strData        : 出力 (検索した値)                             
‘/* [ 戻 値 ] True           : 正常                                          
‘/*           False          : エラー                                        
‘/* [ 概 要 ] ＩＮＩファイルを指定したキーで読み込み。                       
‘/* [ 履 歴 ] 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の動作結果値変数
‘—————————————————————————–
 





    ‘バッファの長さを指定する
    lngStrLength = Len(strValue)
    ‘ＩＮＩファイルから値を取得する
    lngReturnLength = GetPrivateProfileString(strGetSection, _
                                strGetKey, _
                                "", _
                                strValue, _
                                lngStrLength, _
                                pDEBUG_INIFILE_PATH)
    ‘取得した値がある場合
    If lngReturnLength > 0 Then
        ‘正常終了値をセットする
        blnGetInFileData = True
        ‘取得した値を戻り値する
        strData = Left(strValue, lngReturnLength) 
    Else
        ‘異常終了値をセットする。
        blnGetInFileData = False
        ‘戻り値を空白にセットする
        strData = vbNullString 
    End If    

    ‘関数を終了する
    Exit Function    

Err_blnGetInFileData:
    ‘ランタイムエラーが発生したのでエラー処理をする
    Call subErrSyori("blnGetInFileData", Err.Number, Err.Description)
End Function

 

Visual Basic TIPS集

初期登録日: 2003年11月09日

最終更新日: 2003年11月10日

< Home ヘ戻る >

キーボード

ブラウザ画面の文字サイズを変更するショートカットキー

  1. [ CTRL ] + [ + ]  :  文字を大きく
  2. [ CTRL ] + [ – ]  :  文字を小さく

Shortcut Keys

  1. [ CTRL ] + [ + ]  :  Up the font size
  2. [ CTRL ] + [ – ]  :  Down the font size