ab.com コミュニティ

'=====  INIクラスのオブジェクトを生成
Dim ini As cPrivateProfileManager(0, 0, "")
        '[第1引数] iniファイルのファイルパス（0指定で実行ファイルと同名のファイル）
        '[第2引数] 存在しないキーを読み込もうとしたときのデフォルトの値（整数値）
        '[第3引数] 存在しないキーを読み込もうとしたときのデフォルトの値（文字列）


'=====  セクションオブジェクトの生成
Dim sec As *iProfileSection
Dim str As BytePtr, int As Long

sec = ini.CreateObject("section" /*セクション名*/ )


'=====  セクションに対する処理

'指定したキーの値を文字列として読み込む
str = sec->GetStr("key" /*キー名*/)

'指定したキーの値を整数値として書き込む
sec->GetInt("key" /*キー名*/, int /*書き込む値*/)


'=====  セクションオブジェクトの破棄
ini.DeleteObject(sec)

先日実践コードモジュールにiniファイルを操作するクラスを投稿したのでよければどうぞ

iniファイルクラス
[url]http://www.activebasic.com/forum/viewtopic.php?t=2347[/url]
整数値・文字列の読み書き、改行コードを含む文字列の読み書き、キー・セクションの消去ができます


サンプルコード
[hide][code]'===== INIクラスのオブジェクトを生成
Dim ini As cPrivateProfileManager(0, 0, "")
'[第1引数] iniファイルのファイルパス（0指定で実行ファイルと同名のファイル）
'[第2引数] 存在しないキーを読み込もうとしたときのデフォルトの値（整数値）
'[第3引数] 存在しないキーを読み込もうとしたときのデフォルトの値（文字列）


'===== セクションオブジェクトの生成
Dim sec As *iProfileSection
Dim str As BytePtr, int As Long

sec = ini.CreateObject("section" /*セクション名*/ )


'===== セクションに対する処理

'指定したキーの値を文字列として読み込む
str = sec->GetStr("key" /*キー名*/)

'指定したキーの値を整数値として書き込む
sec->GetInt("key" /*キー名*/, int /*書き込む値*/)


'===== セクションオブジェクトの破棄
ini.DeleteObject(sec)
[/code][/hide]

#console

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (lpAppName As *Byte,lpKeyName As *Byte,lpString As *Byte,lpFileName As *Byte) As BOOL
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (lpAppName As *Byte,lpKeyName As *Byte,lpDefault As *Byte,lpReturnedString As *Byte,nSize As DWord,lpFileName As *Byte) As DWord

Dim ret As Long
Dim DirAddr[MAX_PATH-1] As Byte
Dim FileAddr[MAX_PATH-1] As Byte
Dim buf[255] As Byte

Const INIFileName="1.ini"

'iniファイルへの絶対パスを作る
GetCurrentDirectory(MAX_PATH-1,DirAddr)
wsprintf(FileAddr,"%s\%s",DirAddr,INIFileName)

'書き込み
ret=WritePrivateProfileString("Section1","Test","読み込み成功",FileAddr)
If ret then Print "書き込み成功"

'読み込み
GetPrivateProfileString("Section1","Test","読み込み失敗",buf,255,FileAddr)
Print MakeStr(buf)

Sleep(-1)

INIファイルの操作はやったことがないのですが、こんな感じでよろしかったでしょうか？[code]#console

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (lpAppName As *Byte,lpKeyName As *Byte,lpString As *Byte,lpFileName As *Byte) As BOOL
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (lpAppName As *Byte,lpKeyName As *Byte,lpDefault As *Byte,lpReturnedString As *Byte,nSize As DWord,lpFileName As *Byte) As DWord

Dim ret As Long
Dim DirAddr[MAX_PATH-1] As Byte
Dim FileAddr[MAX_PATH-1] As Byte
Dim buf[255] As Byte

Const INIFileName="1.ini"

'iniファイルへの絶対パスを作る
GetCurrentDirectory(MAX_PATH-1,DirAddr)
wsprintf(FileAddr,"%s\%s",DirAddr,INIFileName)

'書き込み
ret=WritePrivateProfileString("Section1","Test","読み込み成功",FileAddr)
If ret then Print "書き込み成功"

'読み込み
GetPrivateProfileString("Section1","Test","読み込み失敗",buf,255,FileAddr)
Print MakeStr(buf)

Sleep(-1)[/code]

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (
	ByVal lpAppName As LPCTSTR,
	ByVal lpKeyName As LPCTSTR,
	ByVal lpString As LPCTSTR,
	ByVal lpFileName As LPCTSTR) As BOOL

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (
	ByVal lpAppName As LPCTSTR,
	ByVal lpKeyName As LPCTSTR,
	ByVal lpDefault As LPCTSTR,
	ByVal lpReturnedString As LPTSTR,
	ByVal nSize As DWord,
	ByVal lpFileName As LPCTSTR) As DWord

> こんにちは。AB始めたばかりのpopopoという者です。
こんにちは。なんか可愛らしいHNですね...(笑)

> GetPrivateProfieStringとかいうAPIもあるようですが、
> 使い方がよくわかりません。
[hide=iniファイルの文字列を操作する関数の定義][code]Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (
ByVal lpAppName As LPCTSTR,
ByVal lpKeyName As LPCTSTR,
ByVal lpString As LPCTSTR,
ByVal lpFileName As LPCTSTR) As BOOL

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (
ByVal lpAppName As LPCTSTR,
ByVal lpKeyName As LPCTSTR,
ByVal lpDefault As LPCTSTR,
ByVal lpReturnedString As LPTSTR,
ByVal nSize As DWord,
ByVal lpFileName As LPCTSTR) As DWord[/code][/hide][MSDN][url=http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpsysinf/html/_win32_writeprivateprofilestring.asp]WritePrivateProfileString[/url]
[MSDN][url=http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpsysinf/html/_win32_getprivateprofilestring.asp]GetPrivateProfileString[/url]
[VC++のクラスと関数に関するメモ][url=http://www13.ocn.ne.jp/~kancha/progmemo3.html#k3-4-1]iniファイルの作成[/url]

忙しいのでAB用のサンプルコードは、どなたか！

こんにちは。AB始めたばかりのpopopoという者です。
あるツールを作っているのですが、設定を保存するINIファイルの読み書き
の仕方がわかりません。
GetPrivateProfieStringとかいうAPIもあるようですが、
使い方がよくわかりません。
それとも、レジストリに保存した方がいいんでしょうか・・・・・
僕は、レジストリに保存するとアンインストールの時に
レジストリを消去しないといけないので、
できるだけINIファイルがいいのですが・・・。
だれか教えてください(_ _)