VB6 サンプル

[標準モジュール]

'===============================================================
' INIファイルから指定したセクション名、キー名の値(文字列)を取得
'===============================================================
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpAppName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

'=============================================================
' INIファイルから指定したセクション名、キー名の値(数値)を取得
'=============================================================
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" _
(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Long, _
ByVal lpFileName As String) As Long

'===============================================================
' INIファイルから指定したセクション名、キー名へ値(文字列)を格納
'===============================================================
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpAppName As String, ByVal lpKeyName As Any, ByVal lpString As Any, _
ByVal lpFileName As String) As Long

【サンプルリスト】

'====================================
' INIファイルから値(文字列)を取得する
'=====================================
Dim lpReturnedString As String * 1024 '格納バッファ
Dim strData As String '取得した値
Dim result As Long '戻り値 (取得した値の文字数)

result = GetPrivateProfileString("SECTION", "KEY", "", _
lpReturnedString, Len(lpReturnedString), "C:\TEST\SAMPLE.INI")
strData = Left(lpReturnedString, InStr(lpReturnedString, Chr(0)) - 1)

【サンプルリスト】

'====================================
' INIファイルへ値(文字列)を格納する
'=====================================
Dim result As Long '戻り値（0=失敗、0<>成功)
result = WritePrivateProfileString("SECTION", "KEY", "HELLO", "C:\TEST\SAMPLE.INI")

●GetPrivateProfileString

【機能】

指定されたINIファイルの指定されたセクション内にある、指定されたキーに関連付けられている文字列を取得し、取得した文字数を返します。

【宣言】

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpAppName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

lpAppName :	セクション名を指定します。
lpKeyName :	キー名を指定します。
lpDefault :	指定したキー名が見つからなかった場合の、規定文字列をセットします。
lpReturnedString :	指定したキー名の値がセットされます。
nSize :	lpReturnedStringのサイズをセットします。
lpFileName :	INIファイル名をセットします。

【例】

Dim lpReturnedString As String * 1024 '格納バッファ
Dim strData As String '取得した値
Dim result As Long '戻り値 (取得した値の文字数)

result = GetPrivateProfileString("SECTION", "KEY", "", _
lpReturnedString, Len(lpReturnedString), "C:\TEST\SAMPLE.INI")
strData = Left(lpReturnedString, InStr(lpReturnedString, Chr(0)) - 1)

●GetPrivateProfileInt

【機能】

指定されたINIファイルの指定されたセクション内にある、指定されたキーに関連付けられている整数を返します。

【宣言】

Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" _
(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Long, _
ByVal lpFileName As String) As Long

lpAppName :	セクション名を指定します。
lpKeyName :	キー名を指定します。
nDefault :	指定したキー名が見つからなかった場合の、規定値をセットします。
lpFileName :	INIファイル名をセットします。

【例】

Dim result As Long '戻り値 (取得した整数値)
result = GetPrivateProfileInt("SECTION", "KEY", 0, "C:\TEST\SAMPLE.INI")

●WritePrivateProfileString

【機能】

指定されたINIファイルの指定されたセクション内にある、指定されたキーに、指定された文字列をセットします。成功すると、0 以外の値が返ります。

【宣言】

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpAppName As String, ByVal lpKeyName As Any, ByVal lpString As Any, _
ByVal lpFileName As String) As Long

lpAppName :	セクション名を指定します。
lpKeyName :	キー名を指定します。
lpString :	指定したキー名の値をセットします。
lpFileName :	INIファイル名をセットします。

【例】

Dim result As Long '戻り値（0=失敗、0<>成功)
result = WritePrivateProfileString("SECTION", "KEY", "HELLO", "C:\TEST\SAMPLE.INI")