PowerSORT Workstation V5.0 使用手引書

A.2.10 レコード選択機能、レコード再編成機能、レコード集約機能を組み合わせた例

次のプログラムは、既に存在する最大レコード長15バイトのテキストファイル"c:\sortin.txt"を、レコード選択、レコード再編成、レコード集約の中から1つを選んで実行し、テキストファイル"c:\sortout.txt"に出力するコードの記述例です。

Private Sub Command1_Click()

　　'エラーメッセージを表示しない旨を指定します。
　　PowerSORT1.DispMessage = False

　　'ソート処理を指定します。
　　PowerSORT1.DisposalNumber = 0

　　'フィールドはカラム位置で指定します。
　　PowerSORT1.FieldDefinition = 1

　　'レコード選択をチェックした場合。
　　If Option1.Value = True Then
　　　'選択フィールドとしてレコードの先頭から3バイトが文字列'DDD'以外の
　　　'レコードを選択するように指定します。
　　　PowerSORT1.SelCmdStr = "0.3asc.ne.'DDD'"
　　End If

　　'レコード再編成をチェックした場合。
　　If Option2.Value = True Then
　　　'再編成フィールドとしてレコードの9バイトめから4バイト、3バイトめから
　　　'5バイト、先頭から3バイトの順に再編成します。
　　　PowerSORT1.RconCmdStr = "8.4 2.5 0.3"
　　End If

　　'レコード集約をチェックした場合。
　　If Option3.Value = True Then
　　　'キーフィールドとしてレコードの9バイトめから4バイトを指定します。
　　　PowerSORT1.KeyCmdStr = "8.4asca"
　　　'集約キーのフィールドとしてレコードの4バイトめから4バイトのASCII
　　　'コードを集約するように指定します。
　　　PowerSORT1.SumCmdStr = "3.4asc"
　　　'指定したキーフィールドが同じ内容だった場合、レコード集約機能を用いて、
　　　'集約フィールドを加算するように指定します。
　　　PowerSORT1.HandlingSameKey = 3
　　End If

　　'入力ファイル名を指定します。
　　PowerSORT1.InputFiles = "c:\sortin.txt"

　　'入力ファイル種別にテキストを指定します。
　　PowerSORT1.InputFileType = 0

　　'出力ファイル名を指定します。
　　PowerSORT1.OutputFile = "c:\sortout.txt"

　　'出力ファイル種別にテキストを指定します。
　　PowerSORT1.OutputFileType = 0

　　'最大レコード長は15バイトです。
　　PowerSORT1.MaxRecordLength = 15

　　'PowerSORTのDLLを呼出し実行します。
　　PowerSORT1.Action

　　'エラー検出時の処理。
　　If PowerSORT1.ErrorCode <> 0 Then
　　　Msgbox "PowerSORTでエラーを検出しました。" & " ErrorDetail=" & PowerSORT1.ErrorDetail
　　　Exit Sub
　　End If

End Sub