create a new page, using OOoBasic/Calc/search as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
*検索 [#c113aacd]
検索してみます。
#contents
**準備 [#kb1f0539]
検索するための準備をします。
検索するためには， SearchDescriptor が必要です。これは， ...
Sub search_1
Dim oDoc As Object, oSheet As Object
Dim oSearchDesc As Object
oDoc = ThisComponent
oSheet = oDoc.Sheets(0)
oSearchDesc = oSheet.createSearchDescriptor()
End Sub
**検索文字列 [#e63e5de1]
検索する文字列は ''SearchString'' プロパティーに設定しま...
oSearchDesc.SearchString = "found"
検索に正規表現を使用したいときは正規表現をこの文字列に指...
oSearchDesc.SearchRegularExpression = true
正規表現についてはここでは説明しないことにします。
**検索オプション [#s957cd0d]
***単語単位 [#d979e607]
単語単位での検索を行いたいときは ''SearchWords'' プロパテ...
oSearchDesc.SearchWords = true
***大文字と小文字の区別 [#hdd0ddd8]
大文字と小文字を区別して検索したいときは ''SearchCaseSens...
oSearchDesc.SearchCaseSensitive = true
**最初の一つだけの検索 [#i541d62e]
最初に見つかる一つ目だけを検索するには ''findFirst'' メソ...
.uno.XInterface findFirst ( [in] .util.XSearchDescriptor...
**次の検索 [#l7691dec]
最初以降の検索を行うには ''findNext'' メソッドを使用して...
.uno.XInterface findNext ( .uno.XInterface xStartAt, .ut...
Sub search_2
Dim oDoc As Object, oSheet As Object
Dim oSearchDesc As Object, oFound As Object
oDoc = ThisComponent
oSheet = oDoc.Sheets(0)
oSearchDesc = oSheet.createSearchDescriptor()
oSearchDesc.SearchString = "found"
oFound = oSheet.findFirst(oSearchDesc)
Do While NOT IsNull(oFound)
oFound = oSheet.findNext(oFound, oSearchDesc)
Loop
End Sub
ここで戻される oFound はセルオブジェクトです。
**全検索 [#mfb7ba2a]
すべて検索するときです。これには， ''findAll'' メソッドを...
.container.XIndexAccess findAll ( [in] .util.XSearchDesc...
Sub search_3
Dim oDoc As Object, oSheet As Object
Dim oSearchDesc As Object
Dim oFounds As Object
oDoc = ThisComponent
oSheet = oDoc.Sheets(2)
oSearchDesc = oSheet.createSearchDescriptor()
oSearchDesc.SearchString = "text"
oFounds = oSheet.findAll(oSearchDesc)
If NOT(IsNull(oFounds)) Then
MsgBox oFounds.getCount()
Else
MsgBox "Not found !"
End If
End Sub
''findAll'' メソッドで戻される oFounds は CellRanges オブ...
**範囲内の検索 [#k35a45ba]
[[OOoBasic/Calc/sheetcellranges]] 参照。
End:
*検索 [#c113aacd]
検索してみます。
#contents
**準備 [#kb1f0539]
検索するための準備をします。
検索するためには， SearchDescriptor が必要です。これは， ...
Sub search_1
Dim oDoc As Object, oSheet As Object
Dim oSearchDesc As Object
oDoc = ThisComponent
oSheet = oDoc.Sheets(0)
oSearchDesc = oSheet.createSearchDescriptor()
End Sub
**検索文字列 [#e63e5de1]
検索する文字列は ''SearchString'' プロパティーに設定しま...
oSearchDesc.SearchString = "found"
検索に正規表現を使用したいときは正規表現をこの文字列に指...
oSearchDesc.SearchRegularExpression = true
正規表現についてはここでは説明しないことにします。
**検索オプション [#s957cd0d]
***単語単位 [#d979e607]
単語単位での検索を行いたいときは ''SearchWords'' プロパテ...
oSearchDesc.SearchWords = true
***大文字と小文字の区別 [#hdd0ddd8]
大文字と小文字を区別して検索したいときは ''SearchCaseSens...
oSearchDesc.SearchCaseSensitive = true
**最初の一つだけの検索 [#i541d62e]
最初に見つかる一つ目だけを検索するには ''findFirst'' メソ...
.uno.XInterface findFirst ( [in] .util.XSearchDescriptor...
**次の検索 [#l7691dec]
最初以降の検索を行うには ''findNext'' メソッドを使用して...
.uno.XInterface findNext ( .uno.XInterface xStartAt, .ut...
Sub search_2
Dim oDoc As Object, oSheet As Object
Dim oSearchDesc As Object, oFound As Object
oDoc = ThisComponent
oSheet = oDoc.Sheets(0)
oSearchDesc = oSheet.createSearchDescriptor()
oSearchDesc.SearchString = "found"
oFound = oSheet.findFirst(oSearchDesc)
Do While NOT IsNull(oFound)
oFound = oSheet.findNext(oFound, oSearchDesc)
Loop
End Sub
ここで戻される oFound はセルオブジェクトです。
**全検索 [#mfb7ba2a]
すべて検索するときです。これには， ''findAll'' メソッドを...
.container.XIndexAccess findAll ( [in] .util.XSearchDesc...
Sub search_3
Dim oDoc As Object, oSheet As Object
Dim oSearchDesc As Object
Dim oFounds As Object
oDoc = ThisComponent
oSheet = oDoc.Sheets(2)
oSearchDesc = oSheet.createSearchDescriptor()
oSearchDesc.SearchString = "text"
oFounds = oSheet.findAll(oSearchDesc)
If NOT(IsNull(oFounds)) Then
MsgBox oFounds.getCount()
Else
MsgBox "Not found !"
End If
End Sub
''findAll'' メソッドで戻される oFounds は CellRanges オブ...
**範囲内の検索 [#k35a45ba]
[[OOoBasic/Calc/sheetcellranges]] 参照。
Page:
