Interstage Shunsaku Data Manager アプリケーション開発ガイド - Microsoft(R) Windows(R) 2000/ Microsoft(R) Windows Server(TM) 2003 - - UNIX共通 -

H.1.5 検索条件に一致するXML文書の値を集計して取得する

検索操作において、検索した結果をある特定の要素の値を集計して取得したい場合があります。

場所を検索条件式に指定して、最も安い宿泊費、最も高い宿泊費、宿泊費の平均値を取得する例を用いて、VB .NETの使用例を示します。

■検索条件

「2006年7月18日に宿泊可能なホテルのうち、最も安い宿泊費、最も高い宿泊費、宿泊費の平均値を地域別に集計して欲しい。」

年月日(2006年7月18日)を条件に指定します。また、取得する結果に集計式(min, max, avg)を指定し、集計結果を取得します。

■APIの使用例

以下にVB .NETを使用したプログラミング例を示します。

Imports System
Imports Fujitsu.Shunsaku
Imports System.ComponentModel

Class SampleSort2

  Shared Public Function Main( ByVal args() As String ) As Integer
    Dim service As ShunService = Nothing

    Try
      '' ShunService の作成
      service = new ShunService()

      '' ホスト名 ポート番号を指定して Shunsaku に接続
      service.Host = "DirSrv1"
      service.Port = 33101
      service.Connect()

      '' ShunSearchRequirement の作成
      Dim req As ShunSearchRequirement = new ShunSearchRequirement()
      
      '' 各種検索条件の設定
      req.QueryExpression = "/document/information/date == '2006年07月18日'"
      req.ReturnExpression = "/document/base/prefecture/text(), min(/document/base/price/text()), max(/document/base/price/text()), avg(/document/base/price/text())"
      req.SortExpression = "/document/base/prefecture/text()"
      req.ReplyNumber = 1
      req.RequestCount = 30
      
      '' 検索条件を指定して検索を実行
      Dim rs As ShunResultSet = service.Search( req )

      '' 検索結果の表示
      '' 検索条件に該当するデータを取得
      Dim i As Integer = 0
      For Each record As ShunRecord In rs.Records
        i += 1
        Console.WriteLine( "[結果]{0}件目:", i )
        Dim result As String()() = record.GetDividedData()
        Console.WriteLine("  地域          ：{0}", result( 0 )( 0 ) )
        Console.WriteLine("  最も安い宿泊費：{0}", result( 1 )( 0 ) )
        Console.WriteLine("  最も高い宿泊費：{0}", result( 2 )( 0 ) )
        Console.WriteLine("  宿泊費の平均値：{0}", result( 3 )( 0 ) )
      Next

      '' Shunsaku から切断
      service.Disconnect()
    
    Catch e As ShunContinuousException
      '' ShunContinuousExceptionが発生した場合の処理を記述
      Try
        If Not service Is Nothing And service.State = ShunConnectionState.Open Then

          service.Disconnect()
        End If
      Catch ex As ShunException
        Console.WriteLine( "エラーメッセージ : {0}", ex.Message )
      End Try
      Console.WriteLine( "エラーメッセージ : {0}", e.Message )
    
    Catch e As ShunConnectionTerminatedException
      '' ShunConnectionTerminatedExceptionが発生した場合の処理を記述
      Console.WriteLine( "エラーメッセージ : {0}", e.Message )

    End Try
  End Function
End Class

■実行結果

[結果]1件目:
  地域          ：神奈川
  最も安い宿泊費：6000
  最も高い宿泊費：8000
  宿泊費の平均値：7000
[結果]2件目:
  地域          ：大阪
  最も安い宿泊費：6000
  最も高い宿泊費：9000
  宿泊費の平均値：7500