ab.com コミュニティ

こんにちは。ゆちボンです。

EDITBOXで検索をしたいのですが、
どのメッセージをどんな風に送ればいいのかがわかりません。

あと、EDITBOXでカーソル座標を取得したいのですが、「何文字目」ではなく、
左上から横に何ドット(X)たてに何ドット(Y)を取得したいのですがどうすればいいのでしょうか？

現在、EDITBOXとGDIを使って色分けエディタを作っているので、
ぜひ知りたいです。
よろしくお願いします。

GetCaretPos関数で取得できます。
格納された座標はクライアント座標なので気をつけてください。

> GetCaretPos関数で取得できます。
> 格納された座標はクライアント座標なので気をつけてください。
あ、そういう方法があったのですね！
ありがとうございます！！

すいません、もうひとつ教えてください。
EDITBOXで検索する際、送信するメッセージはなんですか？
「EM_」ってついていると思うのですが...

> すいません、もうひとつ教えてください。
> EDITBOXで検索する際、送信するメッセージはなんですか？
> 「EM_」ってついていると思うのですが...
皆さんがどうやっているのか分かりませんけど自分は、GetWindowText()関数でエディットボックスに設定されている文字列を取得し、その文字列に対し検索したい文字列を検索するようにしています。
独自に検索アルゴリズムを考えるのが面倒くさかったら標準装備されてるInStr(ですっけ？)とかいう関数があるのでそれを使うと簡単です。

> 皆さんがどうやっているのか分かりませんけど自分は、GetWindowText()関数でエディットボックスに設定されている文字列を取得し、その文字列に対し検索したい文字列を検索するようにしています。
> 独自に検索アルゴリズムを考えるのが面倒くさかったら標準装備されてるInStr(ですっけ？)とかいう関数があるのでそれを使うと簡単です。
InStrでやると、選択したときに、ずれるんですよ。
何かよい方法があればお教えください。

> InStrでやると、選択したときに、ずれるんですよ。
> 何かよい方法があればお教えください。
InStr関数の戻り値は1から始まるのでズレるんだと思います。戻り値を-1してみてその値が-1ならエラーになると考え直してください。

昔書いた文字列検索関数を見つけたのですが素晴らしく汚くてコメントも書いてないし実装したときの記憶も淡くなってて移植に手こずってます...。

> InStr関数の戻り値は1から始まるのでズレるんだと思います。戻り値を-1してみてその値が-1ならエラーになると考え直してください。
>
> 昔書いた文字列検索関数を見つけたのですが素晴らしく汚くてコメントも書いてないし実装したときの記憶も淡くなってて移植に手こずってます...。
すいません、言い方を間違えました。
EDITBOXでは内部で「文字数」で扱っているのでずれます。
InStrはバイト数で返ってくるので...
だから、EM_GETSELを送るとずれたんだと思います。
着色は高速にしたいので...なにか言い方法があればお教えください。

EM_FINDTEXTでどうでしょうか？以下のサイトが参考になるかもしれません。
http://yokohama.cool.ne.jp/chokuto/urawaza/message/

> EM_FINDTEXTでどうでしょうか？以下のサイトが参考になるかもしれません。
> http://yokohama.cool.ne.jp/chokuto/urawaza/message/
ありがとうございます。
でも、EDITBOXで使用できるのでしょうか？
今から試してみます。

> すいません、言い方を間違えました。
> EDITBOXでは内部で「文字数」で扱っているのでずれます。
> InStrはバイト数で返ってくるので...
？？？
EDITBOXっていうのは自作したエディットボックスでしょうか？？？

普通のエディットボックスで以下のコードを実行した場合もズレますか？

EditBox1に対照文字列を入力して、EditBox2に検索文字列を入力。
CommandButton1かなにかを押したときに以下のコードが実行されるようにしてください。

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

コード: 全て選択

Dim hEdit[1] As HWND
Dim lpStr[1] As LPSTR
Dim nLength[1] As Long
Dim i As Long

	hEdit[0]=GetDlgItem(hMainWnd,EditBox1)

	nLength[0]=GetWindowTextLength(hEdit[0])+1
	lpStr[0]=malloc(nLength[0])
	lpStr[0][GetWindowText(hEdit[0],lpStr[0],nLength[0])]=0

	hEdit[1]=GetDlgItem(hMainWnd,EditBox2)

	nLength[1]=GetWindowTextLength(hEdit[1])+1
	lpStr[1]=malloc(nLength[1])
	lpStr[1][GetWindowText(hEdit[1],lpStr[1],nLength[1])]=0

	i=InStr(1,lpStr[0],lpStr[1])-1
	If i=>0 Then
		SendMessage(hEdit[0],EM_SETSEL,i,i+nLength[1]-1))
	End If

> EDITBOXっていうのは自作したエディットボックスでしょうか？？？
いえ、RADで投入できる普通のエディットボックスです。
着色は単純にDCを使って上から重ねるという単純な方法を
使用しようと思っているだけです。

> いえ、RADで投入できる普通のエディットボックスです。
なら、前も書きましたけどInStr関数の戻り値から-1にした数値を始点、InStr関数の戻り値+検索したい文字列の長さ-1を終点にEM_GETSELで選択するだけでズレはなくなると思うんですけど...。
ズレずにちゃんと選択されてるのは自分の環境だけなんでしょうか...？

僕の環境でもちゃんと動いています。
これは、あるボタンを押したときに起こるイベントのコードです。
参考にしてください。

参考になるかどうか分からないコード [ここをクリックすると内容が表示されます]

コード: 全て選択


Dim Count=0 As Long

Sub FindStr_CommandButton1_Click()
	Dim FindString As String
	Dim buffer As String
	Dim MOJISU As Long
	Dim nPos As Long
	Dim length As Long
	
	buffer=GetDlgItemTextStr(hMainWnd,EditBox1)
	FindString=GetDlgItemTextStr(hFindStr,ComboBox1)

	nPos=InStr(Count+1,buffer,FindString)-1

	If nPos<0 Then
		MessageBox(hFindStr,"指定された文字列はありません","エラー",MB_OK)
		Count=0
		Exit Sub
	End If

	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))
End Sub

最近、文字列検索と文字列置換えの機能を追加したばかりです。

7さん、雷電さん、ありがとうございます。
ちゃんとうごいています。

本当にありがとうございました。

ab.com コミュニティ

EDITBOXの座標取得 + 検索

EDITBOXの座標取得 + 検索