INIファイルの読み書き

未返信トピック | 最近のトピック

掲示板トップ » »

全ての表示時間は UTC+09:00 です

新しいトピックを投稿するトピックへ返信する

ページ 1 ／ 1

[ 4 件の記事 ]

印刷ビュー

１つ前のトピックへ | 次のトピックへ

作成者

メッセージ

popopo(^^)

記事の件名: INIファイルの読み書き

投稿記事Posted: 2008年3月28日(金) 14:36

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

通報する

ページトップ

引用付きで返信する

記事の件名: Re: INIファイルの読み書き

投稿記事Posted: 2008年3月28日(金) 18:56

オフライン

登録日時: 2005年5月31日(火) 18:51
記事: 473
お住まい: 新潟県

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

> GetPrivateProfieStringとかいうAPIもあるようですが、
> 使い方がよくわかりません。

iniファイルの文字列を操作する関数の定義 [ここをクリックすると内容が表示されます]

コード:

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

[MSDN]WritePrivateProfileString
[MSDN]GetPrivateProfileString
[VC++のクラスと関数に関するメモ]iniファイルの作成

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

通報する

ページトップ

プロフィール

引用付きで返信する

konisi

記事の件名:

投稿記事Posted: 2008年3月28日(金) 19:49

オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市

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

コード:

#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)

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。

通報する

ページトップ

プロフィール

引用付きで返信する

のぶあや

記事の件名:

投稿記事Posted: 2008年3月28日(金) 22:11

オフライン

登録日時: 2006年10月14日(土) 10:52
記事: 22
お住まい: 愛知

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

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

サンプルコード

[ここをクリックすると内容が表示されます]

コード:

'=====  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)

通報する

ページトップ

プロフィール

引用付きで返信する

新しいトピックを投稿するトピックへ返信する

ページ 1 ／ 1

[ 4 件の記事 ]

掲示板トップ » »

全ての表示時間は UTC+09:00 です

オンラインデータ

このフォーラムを閲覧中のユーザー: なし＆ゲスト[11人]

トピック投稿: 可
返信投稿: 可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可