検索終ったあとのINIへの書込み

[雷電]

検索機能を最近追加しましたが、履歴機能を追加したいと思っていました。
しかし、いざ実装してみても、ちゃんと思うように動いてくれません。

上手くいかないコード [ここをクリックすると内容が表示されます]

検索ウィンドウを閉じる際に、INIへ書込みするようにしています。

閉じる際にする処理 [ここをクリックすると内容が表示されます]

こうなっていますが、初めの部分がおかしいのかなという風に思っています。
どこがおかしいのでしょうか？
また、読み込む際にはどうしたらいいでしょう？

[yu0627]

　どのように動かしたいのでしょうか？また、どこがうまくいかないのでしょうか？
とりあえずコードをたどっていくと、

コード: 全て選択

検索文字列を履歴バッファに追加
↓
文字列を検索
↓
検索して文字列があったならそれを選択してその位置までスクロール

だと思いますが...。
とりあえず気になったところを挙げていきます。

その１

コード: 全て選択

If InStr(0,Ending_String,FindString)=0 Then
    Ending_String=Ending_String + Ex"\r\n" + FindString 
Else 
        Ending_String=Ending_String 
End If

　この部分のElseはいらないと思います。

その２

コード: 全て選択

length=nPos + Len(FindString) 
Count=length 
SendMessage(GetDlgItem(hMainWnd,EditBox1),EM_SETSEL,nPos,length) 
SendMessage(GetDlgItem(hMainWnd,EditBox1),EM_SCROLLCARET,0,0) 
SetFocus(GetDlgItem(hMainWnd,EditBox1))

これではもし英数字と日本語が検索文字列に混在する時に選択位置がずれてしまいます。
選択する位置の指定は文字単位なので1Byte文字（＝英数字）と2Byte（＝日本語）は同じ一文字として認識されます。

もうひとつ。INIファイルに書き込む文字列に改行コードはどうかと...。


あと、INIファイルからの読み出し方ですが、以下のAPIを使います。

コード: 全て選択

'指定のINIファイルから整数値を取得する
'戻り値
'	正常終了のとき                   指定のキーに対応した整数値
'	指定のキーがない場合             nDefaultが戻る
'	キーの値が整数値でない場合       0
Declare Function GetPrivateProfileInt Lib "Kernel32.dll" Alias "GetPrivateProfileIntA" _
(lpszAppName As BytePtr,		'セクション名
lpszKeyName As BytePtr,			'キー名
nDefault As Long,				'指定のキーが見つからない場合のデフォルトの数値
lpszFileName As BytePtr			'INIファイル名
) As Long

'指定のINIファイルから文字列を取得する
'戻り値
'	正常終了のとき                    バッファにコピーしたバイト数
'	nSizeが不十分なとき               nSize-2
'備考
'	INIファイルをフルパス名で指定しないときWindowsディレクトリを検索する
'	lpKeyNameにvbNullStringを設定すると、このセクション全ての全てのキーが取得できる
Declare Function GetPrivateProfileString Lib "Kernel32.dll" Alias "GetPrivateProfileStringA" _
(lpszAppName As BytePtr,		'セクション名
lpszKeyName As BytePtr,			'キー名
lpszDefault As BytePtr,			'キー名が見つからない場合のデフォルトの文字列
lpszReturnedString As BytePtr,	'(戻り値)文字列を受け取るバッファ
nSize As Long,					'同、サイズ
lpszFileName As BytePtr,		'INIファイル名
) As Long

GetPrivateProfileIntでは数値を、GetPrivateProfileStringでは文字列を取得します。
使い方はまた今度書きます。

[雷電]

その２

コード: 全て選択

length=nPos + Len(FindString) 
Count=length 
SendMessage(GetDlgItem(hMainWnd,EditBox1),EM_SETSEL,nPos,length) 
SendMessage(GetDlgItem(hMainWnd,EditBox1),EM_SCROLLCARET,0,0) 
SetFocus(GetDlgItem(hMainWnd,EditBox1)) 

これではもし英数字と日本語が検索文字列に混在する時に選択位置がずれてしまいます。
選択する位置の指定は文字単位なので1Byte文字（＝英数字）と2Byte（＝日本語）は同じ一文字として認識されます。

英数字と日本語でも大丈夫です。
こっちの環境では正常に動いています。

例えば

raiden雷電

を、多い文字列の中から探そうと思っても、普通にその部分が選択されています。
このことに関しては問題ないと思います。

[yu0627]

英数字と日本語でも大丈夫です。
こっちの環境では正常に動いています。

　ではどのあたりが思い通りに動かないのでしょうか。
こちらでは実行していないので分かりかねますが...。

[雷電]

検索した文字列をどう保存すれば、次に検索したときに、またコンボボックスに全て入っているのか、ということです。
こんな文章だけで、すいません。

それを、改行コードで解決させようとしたのですが、できないわけです。

[yu0627]

検索した文字列をどう保存すれば、次に検索したときに、またコンボボックスに全て入っているのか、ということです。
こんな文章だけで、すいません。

それを、改行コードで解決させようとしたのですが、できないわけです。

　改行コードでは無理ですね....。
今はまだプログラムを書く暇がありませんので、筋道だけ書いておきます。
今日のうちに追ってプログラムはアップしたいと思います。

---保存時---
１、検索履歴の追加はこのままで
２、保存時に改行コードごとに検索文字列をばらす
３、検索文字列の数を数え、それをINIファイルに記録する
４、それぞれの検索文字列をひとつずつINIファイルに記録する
　　セクション名は例えば「FindString○○（○○に通し番号）」にする

---読み込み時---
１、INIファイルから検索文字列の数を取得
２、検索文字列を順番にINIファイルから取得して[SendDlgItemMessage(親ウインドウのハンドル, コンボボックスのハンドル, CB_ADDSTRING, 0, 検索文字列)]でコンボボックスに検索文字列を追加する。

こんな感じでいけると思います。
　ではまた。

[7]

> これではもし英数字と日本語が検索文字列に混在する時に選択位置がずれてしまいます。
> 選択する位置の指定は文字単位なので1Byte文字（＝英数字）と2Byte（＝日本語）は同じ一文字として認識されます。
C++言語のサンプルコードでも以下のようになっています。

コード: 全て選択

SendMessage(hEdit,EM_SETSEL,dwPos,strlen(lpfr->lpstrFindWhat)+dwPos);

他のトピックで他の方も同じようなことを仰ってましたけど、その情報はどこに書いてあるんでしょう？
複数の方がそう思っているということはどこかにそう説いている物があると思うんですけど、特に見当たりません...。

EM_SETSELはたしかに「文字列の選択」という機能を持ってますが文字単位の計算ではないはずだと思います。GetWindowTextLength()関数などでも「あ」は2バイトと取得されますよね？
EM_SETSELだけ文字単位の計算なら、GetWindowTextLength()関数の戻り値やlstrlen()関数などで選択範囲を決めようとすると面倒なことになります。

WIN32APIの関数に使われる開始値はすべて(おそらく)0から始まる値であるのに、ActiveBasicのInStr関数が1から始まってしまってて、戻り値も+1されてるので勘違いする方が居ると思うんですよね...。

[yu0627]

　すみません。
こちら側で前々にちょっと作ったプログラムを見たところそうでした。
EM_SETSEL、その時以来使っていなかったので多分忘れていました...。
そしてなぜか文字単位の指定というように記憶がなっていました...。
あと、InStrは本当に最初のほうしか使っていません。その後はmemicmpとかlstrcmpを使っています。

＃とりあえずプログラムを書いています。
　GetDlgItemTextStr関数は申し訳ありませんが使わない予定です...。

[7]

INIファイルに書き込まれている項目の数を取得することができないと思うので自分は以下のようにしようと思います。

書き込む場合

• 1.保存時にコンボボックスの項目(文字列)をすべて取得する
  2.項目(文字列)と項目(文字列)の間に特殊な文字を挿入し、複数の項目(文字列)を一つの文字列にしてしまう
  3.生成された文字列をINIファイルに書き込む

読み込む場合

• 1.INIファイルから文字列を読み込む
  2.文字列の中の特殊な文字を判定して複数の文字列に分解する
  3.分解された複数の文字列(項目)をコンボボックスの項目として設定する

こんな感じでしょうか。

> 　GetDlgItemTextStr関数は申し訳ありませんが使わない予定です...。
僕に対して書いてるんでしょうか...？
イグトランスさんが考案された関数ですよ。

[yu0627]

INIファイルに書き込まれている項目の数を取得することができないと思うので自分は以下のようにしようと思います。

　う～ん。文が説明不足でした。
INIファイルの中に項目数を書き込んでいるんです...。
そして読み込み時にそれを読み込んで処理するということでした...。

僕に対して書いてるんでしょうか...？
イグトランスさんが考案された関数ですよ。

　いえ、雷電さんにです。
とりあえず関数をコピーしてきたので、使用します。

[yu0627]

とりあえずプログラムを組んでみました。
簡略化させるために検索したらすぐINIファイルに追加するようにしましたが、良かったでしょうか？
Yahoo!ブリーフケースから「プログラム名.zip」をダウンロードして、ファイルを解凍してください。
その中にあるプロジェクトファイルがそうです。
（諸事情によりURLは除去いたしました）
一部無駄な処理も入っていますが...。参考にどうぞ。

＃久しぶりのString型だった...。

[雷電]

コードの提供ありがとうございました。
早速、プログラムを少し、こちらの環境に合わせてやって見ました。

すると

コード: 全て選択

FindStr.sbp(57) - [警告] 一時オブジェクトの解放を行えません。キャスト用オブジェクトを用意してください。

というのが出ました。
しかし、コンパイルは一応終了して、問題なく動きました。

両方、ありがとうございました。

[yu0627]

　警告文を見るとAB5.0を利用されているようですね。
今までのプログラムをAB5.0のコンパイラに通してみたらかなりエラーが出るんです...○｜￣｜＿
すなわち今まで以上に型チェックなどが厳しくなっています。

今後とも頑張って下さい。

[雷電]

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

こうしたら、また動かなくなってしまった。
何ゆえ？

[yu0627]

そりゃ動きません（爆
コンボボックスで選択中の文字列はGetDlgItemText（Str)では取得できません。

もう遅いので（日付変わっちゃってるし）、プログラムはバイト終わってから書きます。
夕方になると思います。