INIファイル
' *********************************************************************************
' クラス
' *********************************************************************************
Imports System.Runtime.InteropServices
' *********************************************************************************
' INIファイル用DLL
' *********************************************************************************
_
Public Shared Function WritePrivateProfileString( _
ByVal lpAppName As String, _
ByVal lpKeyName As String, _
ByVal lpString As String, _
ByVal lpFileName As String) As Integer
End Function
_
Public Shared Function GetPrivateProfileString( _
ByVal lpAppName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As System.Text.StringBuilder, ByVal nSize As Integer, _
ByVal lpFileName As String) As Integer
End Function
_
Public Shared Function GetPrivateProfileInt( _
ByVal lpAppName As String, _
ByVal lpKeyName As String, ByVal nDefault As Integer, _
ByVal lpFileName As String) As Integer
End Function
読込み
' *********************************************************************************
' INIファイル内容
' *********************************************************************************
' 文字列
Private Function getStringValueOfINI(ByVal session As String, ByVal key As String) As String
Dim strSb As New System.Text.StringBuilder
GetPrivateProfileString(session, key, "", strSb, strSb.Capacity, _INI_FILE_PATH)
Return strSb.ToString()
End Function
' 数値
Friend Function getIntValueOfINI(ByVal session As String, ByVal key As String) As Integer
Return GetPrivateProfileInt(session, key, 0, _INI_FILE_PATH)
End Function