次のプログラムは、既に存在する最大レコード長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