ab.com コミュニティ

コード: 全て選択

Dim Count=0 As Long
Dim Ending_String As String

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)
	
	If Ending_String="" Then
		Ending_String=FindString
	Else
		If InStr(0,Ending_String,FindString)=0 Then
			Ending_String=Ending_String + Ex"\r\n" + FindString
		Else
			Ending_String=Ending_String
		End If
	End If

	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

コード: 全て選択

Sub FindStr_CommandButton3_Click()
	Dim OK_NO As Long

	OK_NO=WritePrivateProfileString("Main","FindStr",Ending_String,".\findstr.ini")
	If OK_NO=0 Then
		MessageBox(hFindStr,"INIの書き込みに失敗しました","エラー",0)
		EndDialog(hFindStr,0)
	Else
		EndDialog(hFindStr,1)
	End If
End Sub

コード: 全て選択

Sub FindStr_CommandButton1_Click()
	Dim FindString As String				'検索文字列
	Dim buffer As String					'EditBox1の文字列
	Dim nPos As Long
	Dim Length As Long						'

	'検索文字列を取得
	FindString=GetDlgItemTextStr(hFindStr,ComboBox1)

	'EditBox1の文字列を取得
	buffer=GetDlgItemTextStr(hMainWnd,EditBox1)

	If InStr(0, FindStringHistory, FindString) = -1 Then
		'検索履歴バッファに検索文字列が無かった時
		Dim lpstrKeyName[255] As Byte			'気にしなくて良い
	
		'検索文字列をINIファイルに追加
		WritePrivateProfileString("FindString", "NumOfFindString", Str$(NowFindStringNum), ".\findstr.ini")
		wsprintf(lpstrKeyName, "FindString(%d)", NowFindStringNum)
		WritePrivateProfileString("FindString", lpstrKeyName, StrPtr(FindString), ".\findstr.ini")
		NowFindStringNum++
				
		'検索履歴バッファに検索文字列を追加
		FindStringHistory = FindStringHistory + Ex"\r\n" + FindString
	End If

	'検索文字列をEditBox1の内容から検索
	nPos = InStr(Count+1, buffer, FindString)-1

	If nPos < 0 Then
		MessageBox(hFindStr, "指定された文字列はありません", NULL, 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