iniファイルを読み込む

iniファイルを読み込む為のクラス

Imports System.Runtime.InteropServices
Imports System.Text

Public Class clsIniFile

    Public Declare Auto Function GetPrivateProfileString Lib "kernel32" _
        Alias "GetPrivateProfileString" (
        <MarshalAs(UnmanagedType.LPTStr)> ByVal lpApplicationName As String,
        <MarshalAs(UnmanagedType.LPTStr)> ByVal lpKeyName As String,
        <MarshalAs(UnmanagedType.LPTStr)> ByVal lpDefault As String,
        <MarshalAs(UnmanagedType.LPTStr)> ByVal lpReturnedString As StringBuilder,
        ByVal nSize As UInt32,
        <MarshalAs(UnmanagedType.LPTStr)> ByVal lpFileName As String) As UInt32

End Class

使用する時は、

#Imports System.Text

ret = clsIniFile.GetPrivateProfileString(
              "SERVER",
              "CONNECT",
              "",
              sb,
              Convert.ToUInt32(sb.Capacity),
               strFilePath)
Dim _serverConnect As String = sb.ToString

iniファイルの中身は

[SERVER]
;接続文字列
CONNECT="Data Source=;Initial Catalog=;User ID=;Password="