psp9 script mit python - datum

from JascApp import *
import string
import JascUtils

def ScriptProperties():
    return {
        'Author': u'Jasc Software, Zeromotion',  
        'Copyright': u'Copyright (c) 2002-2004 Jasc Software, Inc.  All rights reserved.',  
        'Description': u"EXIF-Datestamp unten rechts.",  
        'Host': u'Paint Shop Pro 9',  
        'Host Version': u'9.00',  
        }

NoEXIFData = u"Auf dem aktuell ausgewählten Bild wurden keine EXIF-Daten gefunden."  
CaptionFontName = u"Arial"  


def Do(Environment):

    if JascUtils.RequireADoc( Environment ) == App.Constants.Boolean.false:
        return

    
    # first extract the EXIF data - if we can't find any just return without changing the image 
    ImageInfo = App.Do( Environment, 'ReturnImageInfo', {'GeneralSettings': {'Version': ((9,0,0),1) }} )  
    if ImageInfo['ExifOriginalDate'] == '':  
        App.Do(Environment,  'MsgBox', {  
                'Buttons': App.Constants.MsgButtons.OK,   
                'Icon': App.Constants.MsgIcons.Stop,   
                'Text': NoEXIFData,  
                'GeneralSettings': {'Version': ((9,0,0),1) }  
                })
        return


    # save any existing selection
    SelSaver = JascUtils.SaveSelection( Environment, App.TargetDocument )
    
    CaptionDate = ImageInfo['ExifOriginalDate']  

    # Figure out how big the text should be by examining the overall image size.  We'll do a rough 
    # scale based on 1000 pixels.  We won't paint text less than 16 point in any event. 
    ImageMaxDimension = max(App.TargetDocument.Width, App.TargetDocument.Height)
    TextScaleFactor = max(0.25, float(ImageMaxDimension) / 800.0)
    TextSize = int(16.0 * TextScaleFactor)
 
    # now place the text - use right justification at the lower right corner of the image.
    # we are placing 16 pixel text, so to leave some room for leading we place the first
    # line of text 24 pixels up from the bottom
    TextPlacementLine1 = (App.TargetDocument.Width - 4 * TextScaleFactor, App.TargetDocument.Height - (24 * TextScaleFactor))
    App.Do( Environment, 'TextEx', {  
            'Visibility': True,   
            'CreateAs': App.Constants.CreateAs.Selection,   
            'Start': TextPlacementLine1,   
            'TextFlow': App.Constants.TextFlow.HorizontalDown,   
            'TextType': App.Constants.TextType.TextBase,   
            'AutoKern': True,   
            'Kerning': 0,   
            'Tracking': 0,   
            'Leading': 0,   
            'Font': CaptionFontName,   
            'PointSize': TextSize,   
            'Italic': False,   
            'Bold': False,   
            'Underline': False,   
            'Strikethru': False,   
            'AntialiasStyle': App.Constants.AntialiasEx.Smooth,   
            'WarpText': True,   
            'SetText': App.Constants.Justify.Right,   
            'Fill': None,   
            'Stroke': None,   
            'LineWidth': 0,   
            'Join': App.Constants.JointStyle.Miter,   
            'MiterLimit': 10,   
            'Characters': CaptionDate,   
            'Strings': None,   
            'TextTarget': (0,0,[1],False),   
            'PathTarget': None,   
            'GeneralSettings': {  
                'ExecutionMode': App.Constants.ExecutionMode.Default,   
                'AutoActionMode': App.Constants.AutoActionMode.Match,   
                'Version': ((9,0,0),1)  
                }
            })

    # Negativbild
    App.Do( Environment, 'NegativeImage', {  
            'GeneralSettings': {  
                'ExecutionMode': App.Constants.ExecutionMode.Default,   
                'AutoActionMode': App.Constants.AutoActionMode.Match,   
                'Version': ((9,0,0),1)  
                }
            })

    # restore the original selection
    SelSaver.RestoreSelection()

set "dtmstr=2006:04:05 21:40:26"  
set "dtmstr=%dtmstr:~2%"  
for /f "tokens=1-3 delims=: " %%a in ("%dtmstr%") do echo %%c.%%b.%%a  

    CaptionDate = ImageInfo['ExifOriginalDate'].replace( ':', ' ' )  
    CaptionDate = CaptionDate[8:10] + '.' + CaptionDate[5:7] + '.' + CaptionDate[2:4]