The following program is an example of describing the code to reconstruct the existing binary file "c:\sortin" of which the record length is 100 bytes, in 10 bytes from the 20th byte, 10 bytes from 30th byte, 10 bytes from the head, 10 bytes from the 40th byte of the record in order and output the result to the binary file "c:\sortout".
Private Sub Command1_Click()
'Specify not to display the error message.
PowerBSORT1.DispMessage = False
'The sort processing is specified.
PowerBSORT1.DisposalNumber = 0
'Specify to reconstruct the record in 10 bytes from the 20th byte first, then 10 bytes from
'the 30th byte and then 10 bytes from the head and 10 bytes from the 40th byte in order.
PowerBSORT1.RconCmdStr = "19.10 29.10 0.10 39.10"
'The input file name is specified.
PowerBSORT1.InputFiles = "c:\sortin"
'Binary fixed length is specified for each input file type.
PowerBSORT1.InputFileType = 1
'The output file name is specified.
PowerBSORT1.OutputFile = "c:\sortout"
'Binary fixed length is specified for each output file type.
PowerBSORT1.OutputFileType = 1
'The length of the record is 100 bytes.
PowerBSORT1.MaxRecordLength = 100
'The reconstruction processing is executed.
PowerBSORT1.Action
'Processing for when an error is found.
If PowerBSORT1.ErrorCode <> 0 Then
Msgbox "An error was found in PowerBSORT." & " ErrorDetail=" & PowerBSORT1.ErrorDetail
Exit Sub
End If
End Sub