４９．iniファイルに文字列を書き込む



＜　使用用途　＞
データを保存する時などに用いる

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ ダウンロード・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
ＡＰＩ関数のWritePrivateProfileStringを使用します。
WritePrivateProfileString＝＞iniファイルに文字列を書きこむ
　　＜引数＞
　　　　　lpApplicationName：セクション名
　　　　　lpKeyName：キー名
　　　　　lpString：書きこむ文字列
　　　　　lpFileName：ＩＮＩファイル名
　　＠戻り値＠　　
　　　　　正常終了0以外

<　ＳＡＭＰＬＥ　＞
'ここではC:\Windows\Win.inに「Test」-「Caption」-「これは実験です 」を書きこみます。
'標準モジュール
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long

'ここからはフォームの処理
Private Sub Command1_Click()
　　Dim nFileName As String
　　Dim MeinName As String
　　Dim SubName As String
　　Dim Ret As Long

　　nFileName = "C:\Windows\Win.in"
　　MeinName = "Test"
　　SubName = "Caption"
　　WriteName = "これは実験です "

　　Ret = WritePrivateProfileString(MeinName, SubName, WriteName, nFileName)
End Sub

'新しくiniファイルを作成して文字列を書きこむ方法
'********************************************************************
'C:\の所にPAPY.iniを作成します。
'Ret=WritePrivateProfileString("Test", "Caption","これは実験です。","C:\PAPY.ini")
'<注意>C:\PAPY.iniがすでに存在する場合は、そのファイルに書きこまれます。
'*********************************************************************