|
分類:[VB.NET]
分類:[VB.NET]
いつもお世話になっております。
開発環境
WindowsXp
Visual Studio 2005
iniファイル読み込みについて質問があります。
Public Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" _
(ByVal lpAppName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Integer, _
ByVal inifilename As String) As Integer
Const IniName = "C:＼SPLIT＼Sys.ini"
Const SecName = "INI_PARAM"
Const KeyName = "INPUT_PATH"
Const De_fault = "not found"
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim ret As String
ret = ReadIniStr(IniName, SecName, KeyName, De_fault)
If ret = De_fault Then
MsgBox("データパスが存在しませんでした。")
End If
Debug.WriteLine("ret = ", ret)
DirectryDri.Path = ret
End Sub
Public Function ReadIniStr(ByVal strFileIni As String, _
ByVal strSectName As String, _
ByVal strKeyName As String, _
ByVal strDefault As String) As String
Dim lngRtn As Integer
Dim strRtn As String
strRtn = Space(256) ・・・★
lngRtn = GetPrivateProfileString(strSectName, strKeyName, _
strDefault, strRtn, 255, strFileIni)
If lngRtn > 0 Then
ReadIniStr = strRtn
Else
ReadIniStr = strDefault
End If
End Function
このような形でiniファイルの文字列を読み込んできているのですが、
★印の部分でスペースでバッファを確保すると、
読み込んだ時にstrRtnの変数の最後に『"(ダブルクォーテーション)』が、
入らないんですが、何か良い方法はございませんか？
よろしくお願いします。
|