PassoloApp.BeforeGenerateTarget
Event handler for the before generate target file event.
Syntax
BeforeGenerateTarget (TransList as PslTransList, Abort as Boolean) as void
TransList the translation list to be used for generating the target file
Abort Setting this value to True aborts the current operation.
Example
Dim stored_size As Long
Public Sub PSL_BeforeGenerateTarget(TransList As PslTransList, Abort As Boolean)
stored_size = 0
On Error Resume Next ' Maybe the file does not exist yet
stored_size = FileLen(TransList.TargetFile)
End Sub
Public Sub PSL_AfterGenerateTarget(TransList As PslTransList, ByVal Error As Boolean)
If Not Error And stored_size <> 0 Then
diff = FileLen(TransList.TargetFile) - stored_size
If diff = 0 Then
PSL.Output "Size of target file did not change."
ElseIf diff > 0 Then
PSL.Output "Target file increased by " & Str(diff) & " bytes."
Else
PSL.Output "Target file decreased by " & Str(-diff) & " bytes."
End If
End If
End Sub