hubionmac.com » Useful Snippets

Unterschriften-Erfassung via Web-Viewer in Filemaker

hubi — Tue, 24 Jan 2012 03:13:55 +0000

Ein Bekannter von mir wollte sich eine Filemaker-Datenbank aufbauen, mit der Mitarbeiter papierlos den Empfang von Paketen quittieren können sollten und das mittels Wacom-Tablet und Filemaker.

Ich habe Filemaker nie so wirklich gemocht, auch wenn es sicherlich eine Berechtigung hat, nur das Face-Lifting ist einfach mehr als überfällig. Wirkliche Neuerungen hat es meiner Erfahrung nicht gegeben und reine Web-Anwendungen sind nicht nur schöner, schneller, günstiger, leichter anzupassen, nein sie laufen sogar von Natur aus im Netz.

Der erste Ansatz

Nun ist die Erfassung einer Unterschrift weder in Filemaker noch über einen Webbrowser eine alltägliche Sache, doch auch nicht unmöglich.
In Filemaker direkt geht so etwas wohl gar nicht und ein extra Programm fernab der Datenbank für die Erfassung zu nutzen, ist etwas unpraktisch und würde den Nutzer aus der Anwendung reissen. Ich wurde aber nach einer kurzen Suche recht schnell fündig und fand hier ein super Beispiel, wie man via JavaScript und mit einem Canvas-Objekt ein kleines Zeichen-Programm erstellen kann.

Jetzt hat man die Unterschrift, wie aber speichern?

Der nächste Frage war nun nur noch, wie die so erfasste Unterschriften in der Datenbank gespeichert werden könnte. Meine erste Idee war, einen Webserver laufen zu lassen, per JavaScript das Unterschriften-Canvas in ein Bild zu wandeln (siehe hier) und diese Daten dann via POST auf den Server zu laden, dann auf einen Link umzuleiten, der auf dem Mac wiederum ein AppleScript startet (wie hier beschrieben), welches dann das Image vom Server lädt und in die Datenbank importiert… ziemlich quer und kompliziert gedacht, zudem auch recht aufwendig, da ein Webserver laufen muss, der abgesichert werden müsste.

So geht’s auch ohne Webserver

Später kam mir eine etwas pflegeleichtere Lösung in den Sinn, es wird ein Screenshot der Unterschrift angefertigt und entsprechend importiert. Das Problem hierbei ist zunächst das screencaputure-Tool von Apple, welches ohne Interaktion mit dem Nutzer nur einen kompletten Screenshot und nicht nur einen Ausschnitt des Bildschirms speichern kann. Aber aus diesem Bild kann man ja den Bereich nachträglich ausschneiden, nur leider nicht via sips oder image-events (ist eigentlich das gleiche wie sips nur als AppleScript-Anwendung). In diesen Standard-Anwendungen kann man nur Ränder entfernen und von der Mitte ausgehend ausschneiden. Deshalb musste nun doch ein Tool ran, welches das via Shellscript im Hintergrund erledigen kann und so bin ich auf das “CoreImageTool” gestoßen, welches eine Art Shell-Schnittstelle zum Core-Image Fragework bereitstellt. Weitere Infos dazu findet ihr hier. Das ist zwar immer noch nicht perfekt, ersparte mir aber für mich komplizierte Verrenkungen in Phyton, was vermutlich aber eine entsprechende Alternative sein könnte.

Am Ende

Die fertige Lösung sieht also so aus:
In der Datenbank ist ein Webview eingebunden, der eine Lokale HTML-Datei anzeigt, die ein Canvas-Element enthält. In diesem WebView wird die Unterschrift geleistet und anschließend startet ein Knopf im Filemaker-Layout ein Skript, welches einen Screenshot anfertigt und via CoreImageTool die Unterschrift daraus ausschneidet (die Berechnung der Koordinaten des Webviews ist etwas tricky, ist aber im Beispiel-Skript entsprechend kommentiert). Anschließend übernimmt wieder Filemaker und importiert die Ausgeschnittene Unterschrift in ein Container-Feld innerhalb der Filemaker-Datenbank.
Um das ganze direkt in einem Beispiel zu verdeutlichen…

Video mit Erläuterung

Youtube Link

Funktionsbeispiel aus dem Video

DOWNLOAD
Unterschriftenerfassung in Filemaker Beispiel v.1.0
63.74 kB (5 hits)

Address Book: Normale Gruppen von Smart-Groups unterscheiden

hubi — Sun, 15 Jan 2012 03:12:36 +0000

In den Adress-Buch-Funktionsverzeichnis gibt es als Property nur den Namen und leider keinen Wert den man auslesen könnte, um zu erkennen, ob es sich um eine Smart-Group oder eine echte Gruppe handelt. Um das nun doch zu können sind zumindest die jeweiligen IDs der Gruppe recht eindeutig und enden ggf. mit dem String “SmartGroup”.
Möchte man zum Beispiel alle Namen der normalen Gruppe:

tell application “Address Book”

set groupnames to name of every group whose id does not end with “SmartGroup”

end tell

PDF: Dynamisches Wasserzeichen mit SVG->PDF Overlay

hubi — Sun, 11 Dec 2011 01:16:27 +0000

Ich habe einen neuen Trick gefunden automatisch PDFs zu erstellen, ohne dabei auf allzu teure (Indesign, Quark), komplizierte (ruby pawn z.B.) oder nicht gerade performante Tools (Pages, Word) angewiesen zu sein. SVG-Dateien sind quasi nichts anderes als XML bzw. Text-Dateien, und lassen sich leicht per Skript manipulieren. Zudem lassen sich auch exakte Format-Angabe (A4, Letter usw.) definieren.

Das Wandeln von SVG in PDF übernimmt dann Inkscape und zwar als Shell-Anwendung. Auf diese Art lassen sich schnell (ohne GUI) PDFs erstellen, die anders als bei der wkpdf-Lösung auch über einen Transparente Hintergrund verfügen.
Ich habe jetzt kein direktes Beispiel zur Hand, verweise aber mal /Applications/Inkscape.app/Contents/Resources/bin/inkscape-bin --help

AppleScript Reste-Eintopf II

hubi — Fri, 09 Dec 2011 15:19:33 +0000

Add to Login-Items

–03.09.2008 hubionmac.com

–asks for an app and adds it to login items

addtologin(choose file of type {“APPL”})

on addtologin(thisApp) – adds an item to login items

set appPath to POSIX path of thisApp

tell application “System Events”

set appName to name of thisApp

set shortName to (characters 1 through ((get offset of “.app” in appName) – 1) of appName) as text

if shortName is not in (name of every login item) then

make login item at end with properties {path:appPath}

end if

end tell

end addtologin

Nach Datei-Endungen sortieren

Das hatte ich mal als Ordner-Aktion für meinen Download-Ordner erdacht… seitdem es Spotlight gibt, hat der Drang Downloads zu sortieren deutlich nachgelassen ;-)

–19.11.2006 hubionmac.com

–Ordneraktion die Dateien an Hand Ihrer Datei-Endung in Unter-Ordner sortiert

on adding folder items to derOrdner after receiving added_items

– die Liste kann man gut erweitern

set endungmitordner to {“.jpg;JPEGS”, “.mov;Movies”}

repeat with k in endungmitordner

–damit kann man die Einträge aus der Liste gut in Ihre Bestandteile zerlegen

–Ist auch super um in Strings Teile zu ersetzen =)

set AppleScript‘s text item delimiters to “;”

set endung to text item 1 of k

set ordnername to text item 2 of k

set AppleScript‘s text item delimiters to “”

tell application “Finder”

set inhalt to every item of derOrdner

set itemcount to count of every item of inhalt

– wenn in dem Ordner nix drin ist, soll er auch nix machen… lohnt ja nicht

if itemcount > 1 then

repeat with aitem in inhalt

–Die Anzahl der Buchstabe einer definierten Endung… damit ich am Ende auch weiß ob ich nach

– .tiff oder .mov suchen muss

set endcount to (-1 * (count of every character of endung))

set itemname to name of aitem

if (characters endcount through -1 of itemname) as text = endung then

–wenn es den ordner schon gibt den fehler ignorieren und weiter im Text

try

make folder at derOrdner with properties {name:ordnername}

end try

–wir basteln uns einen Alias zu einem Verzeichnis

set workingdir to ((derOrdner as string) & ordnername & “:”) as alias

–tja und dieser teil bewegt die Datei in den Ordner… und bennent sie um, sofern der

–Name bereits im Zielordner existiert

– man könnte statt des counters auch die uhrzeit bzw. das datum nehmen…

– oh ich neheme die Uhrzeit =).

try

move aitem to workingdir as alias

on error

set no_error to false

repeat until no_error = true

set counter to (time of (current date))

try

set name of aitem to (counter & “##” & itemname) as string

move aitem to workingdir as alias

set no_error to true

exit repeat

on error

set no_error to false

end try

end repeat

end try

end if

end repeat

end if

end tell

end repeat

end adding folder items to

Safari Bookmark Saver

Man nehme den Titel und die URL der aktuellen Seite und speichere sie via Skript in einer kleinen HTML-Datei (meta-refresh)… fertig ist das Platform-übergreifende Bookmark-File

–18.01.2005

–Safari Bookmark safer

– it’s not a boookmark but a tiny html file that redirects to the saved URL

set html_text01 to “

set html_text02 to “\”>”

tell application “Safari” to set windowcount to count of every window

if windowcount ≥ 1 then

tell application “Safari” to set theurl to URL of document 1

tell application “Safari” to set thename to name of document 1

display dialog “Filename” default answer thename

set thename to text returned of the result

set thetext to html_text01 & theurl & html_text02 as text

do shell script “echo ” & quoted form of thetext & “|cat >~/Desktop/” & quoted form of thename & “.html”

end if

Folder-List

Erstelle eine Art Folder-Map… keine Ahnung wofür ich das mal brauchte…

– 18.3.2007 hubionmac.com.com

– creates a table of contents (tree structure) of a folder that was dropped onto the script and saves it into a text file

global theroottxt, thefolder_unix, tabcount

on open thefolder

if (count of thefolder) > 1 then

display dialog “Please put ONE Folder onto the script”

end if

set thefolder to thefolder as alias

set thefolder_unix to POSIX path of thefolder

set theroottxt to thefolder as text

tell application “Finder”

set these_folders to every folder of thefolder

end tell

set tabcount to 0

repeat with this_folder in these_folders

set folderstring to get_folderstring(this_folder)

do shell script (“echo ” & quoted form of folderstring & “|cat>> ” & quoted form of thefolder_unix & “folder_list.txt”) as text

do_folder(this_folder)

end repeat

end open

on do_folder(this_folder)

set tabcount to tabcount + 1

tell application “Finder”

set these_folders to every folder of this_folder

end tell

repeat with this_folder in these_folders

set folderstring to get_folderstring(this_folder)

do shell script (“echo ” & quoted form of folderstring & “|cat>> ” & quoted form of thefolder_unix & “folder_list.txt”) as text

do_folder(this_folder)

end repeat

set tabcount to tabcount – 1

end do_folder

on get_folderstring(this_folder)

tell application “Finder”

set FolderName to name of this_folder

end tell

repeat with i from 1 to tabcount

set FolderName to tab & FolderName

end repeat

return FolderName as text

end get_folderstring

Rekursions-Beispiel

Würde ich heute ehr mit find -type d lösen, aber geht auch so

–12.10.2005 hubionmac.com

–Beispiel zum Thema Rekursion

global folderkind

set thisfolder to choose folder

display dialog “deepcount=” default answer “0″

set deepcount to text returned of the result as integer

if deepcount = 0 then

process_item(thisfolder)

else

process_folder(thisfolder, deepcount)

end if

on process_folder(this_item, deepcount)

tell application “Finder”

set these_items to every folder of this_item

set deepcount to deepcount – 1

end tell

repeat with this_item in these_items

if deepcount = 0 then

process_item(this_item)

else

process_folder(this_item, deepcount)

end if

end repeat

end process_folder

on process_item(this_item)

tell application “Finder”

set itemname to name of this_item

display dialog itemname

end tell

end process_item

AppleScript Reste-Eintopf

hubi — Sun, 04 Dec 2011 19:09:16 +0000

Ich räume gerade meine AppleScript-Verzeichnis auf und dabei sind mir einige Code-Schnipsel untergekommen, die noch nicht hier “archiviert” wurden:

convert aliases into symlinks:

Damit lassen sich wunderbar Aliase in symbolische Links umwandeln. Macht z.B. Sinn, wenn man schnell via Finder Aliase anlegt, die Software, die aber die Dateien braucht nur mit symbolischen Links klar kommt.

set thefolder to choose folder

set thefolderx to POSIX path of (thefolder as alias)

tell application “Finder”

set thealiases to every alias file of thefolder

repeat with thisalias in thealiases

set aliasname to name of thisalias

set theorig to original item of thisalias

set theorigx to POSIX path of (theorig as alias)

do shell script “cd ” & quoted form of thefolderx & “;rm ” & quoted form of aliasname & “;ln -s ” & quoted form of theorigx & ” ” & quoted form of aliasname

end repeat

end tell

DropTar:

Ich wollte wohl mal via Drag&Drop bzw. eine Finder-Auswahl einfach als .tar.gz packen…. hat sich dank LaunchBar bei mir nun erledigt (da ist so etwas schon eingebaut), der Code landet nun hier

on open these_items

my makeTar(these_items)

end open

on run

tell application “Finder”

set these_items to selection

if these_items = {} then error “Nothing slected”

my makeTar(these_items)

end tell

end run

on makeTar(these_items)

– READ THE NAME

display dialog “Name of the file:” default answer “” buttons {“.TAR”, “.TAR.GZ”, “cancel”}

copy result as list to dialog01

set tarname to item 1 of dialog01

if tarname = “” then

display dialog “please enter a propper name!” buttons {“cancel”}

else

if (item 2 of dialog01) as text = “.TAR” then

set tarname to (tarname & “.tar”) as text

set zz to “-”

else if (item 2 of dialog01) as text = “.TAR.GZ” then

set tarname to (tarname & “.tar.gz”) as text

set zz to “-z”

end if

– READ THE LOCATION WHERE THE FILE SHOULD BE STORED

set save_path to POSIX path of (choose folder with prompt “Where do you wanna save ” & tarname & “?”)

set thefiles to “”

set first_item to true

repeat with this_item in these_items

tell application “Finder”

– READ THE FILE’s LOCATIONS AND COMPARE THEM

set current_container to container of this_item

if first_item = true then

set item_container to current_container

set first_item to false

end if

– if the current_containter does not match the general container ERROR!

if item_container ≠ current_container then

display dialog “Sorry, this script can only proccess files/folders that at the same location” buttons {“cancel”}

else

– GET THE ITEMS’ NAMES AND LIST THEM

set item_name to name of this_item

set thefiles to thefiles & ” \”" & item_name & “\”"

end if

end tell

end repeat

– GET THE POSIX PATH OF THE ITEMS ‘ CONTAINER

set thefilespath to quoted form of POSIX path of (item_container as alias)

– MAKE THE COMMAND STRING FOR THE SHELL

set theshellcommand to (“cd ” & thefilespath & “; tar ” & zz & “cf ” & quoted form of ((save_path & tarname) as text) & thefiles) as text

set the clipboard to theshellcommand

– display dialog theshellcommand

– DO THE SHELL COMMAND, BECAUSE THIS COULD TAKE SOME TIME… A LONG TIMEOUT SO NO APPLE EVENT TIMEOUT POPS UP =)

with timeout of 3600 seconds

do shell script theshellcommand

end timeout

end makeTar

dmg-maker:

Und hier wollte ich mal per AppleScript ein dmg-Image erstellen…

on open these_

if (count of these_) > 1 then

tell me to quit

end if

tell application “Finder”

set orig_image to quoted form of (POSIX path of item 1 of these_)

set imagename to quoted form of ((name of (item 1 of these_)) as text)

set image_destination to quoted form of POSIX path of (folder of ((item 1 of these_) as alias) as alias)

end tell

set thecommand to (“hdiutil convert ” & orig_image & ” -format UDZO -imagekey zlinb-level=9 -o ” & image_destination & imagename & “.dmg”) as text

tell application “Terminal”

run

delay 1

do script with command thecommand

end tell

end open

delete empty folders

Leere Ordner haben mit dem Code fast nichts zu lachen… funktioniert auch nur auf einer Ebene ist also nicht rekursiv geschrieben

on open hubi

tell application “Finder”

set folderkind to kind of folder 1 of startup disk

repeat with k in hubi

if kind of k = folderkind then

set itemcount to count of every item of k

if itemcount = 0 then

delete k

end if

end repeat

end tell

end open

tell application “Finder”

set hubi to selection

set folderkind to kind of folder 1 of startup disk

repeat with k in hubi

if kind of k = folderkind then

set itemcount to count of every item of k

if itemcount = 0 then

delete k

end if

end repeat

end tell

delete n chars at beginning/end of filename

tell application “Finder”

set hubi to selection

set folderkind to kind of folder 1 of startup disk

repeat with k in hubi

if kind of k = folderkind then

set itemcount to count of every item of k

if itemcount = 0 then

delete k

end if

end repeat

end tell

delete .DS_Store

Die Dateien machen oft so gar keinen Sinn und stören mich einfach unter Windows.

set thepath to POSIX path of (choose folder)

set hubi to do shell script “cd ” & quoted form of thepath & “;find ./ -name .DS_Store -delete”

display dialog “.DS_Store deleted”

Dateien nach Erstellungsdatum in Ordner sortieren

Ich glaube das war mal ein Versuch meinen Download-Ordner etwas aufgeräumter aussehen zu lassen… alles nur Schein ;-)

–hubionmac.com >~2007 i think

–AppleScript Droplet to sort fieles into folders by creation date

on open these_items

set thelist to {make_dateString(current date, 1)} & {make_dateString(current date, 2)} & {make_dateString(current date, 3)} as list

choose from list thelist with prompt “Choose date format:”

if result as text = item 1 of thelist as text then

set theformat to 1

else if result as text = item 2 of thelist as text then

set theformat to 2

else if result as text = item 3 of thelist as text then

set theformat to 3

end if

repeat with this_item in these_items

tell application “Finder”

– set thedate to creation date of this_item

set thedate to modification date of this_item

set theLocation to quoted form of POSIX path of ((folder of this_item) as alias)

end tell

set foldername to make_dateString(thedate, theformat)

try

do shell script “cd ” & theLocation & “;mkdir ” & quoted form of foldername

end try

set the_item to quoted form of POSIX path of this_item

– 2008-05-26 -n Option add, so files are not overwritten

do shell script “cd ” & theLocation & “;mv -n ” & the_item & ” ./” & quoted form of foldername & “/”

end repeat

end open

on get_month_number(incomingDate)

– works with systems

copy incomingDate to b

set the month of b to January

set month_number to “0″ & (1 + (incomingDate – b + 1314864) div 2629728) as text

return (characters -2 through -1 of month_number) as text

end get_month_number

on make_dateString(thedate, theformat)

if theformat = 1 then

set theday to characters -2 through -1 of ((“0″ & day of thedate) as text) as text

set thestring to (year of thedate) & “-” & get_month_number(thedate) & “-” & theday

else if theformat = 2 then

set thestring to (year of thedate) & “-” & get_month_number(thedate)

else if theformat = 3 then

set thestring to (year of thedate)

end if

return thestring as text

end make_dateString

Rechner ausschalten nach x-Minuten

Das funktioniert, wenn kein Dialog aufgeht… ansonsten müsste man das mit shutdown -now und Admin-Rechten machen…

with timeout of 600000 seconds

display dialog “Shutdown in x Minutes?” default answer 10

set i to (text returned of the result) as integer

delay i * 60

tell application “Finder” to shut down

end timeout

Dateien eines bestimmten Typs verschieben und Ordnerstruktur dabei beibehalten

hubi — Wed, 02 Nov 2011 12:28:12 +0000

Das war die Aufgabenstellung, damit die Ordnerstruktur der Kamera zwar beibehalten wird, jpgs und raw Dateien aber getrennt abgelegt werden:

set thesource to quoted form of POSIX path of (choose folder)

set thedestination to quoted form of POSIX path of (choose folder)

set thesuffix to “‘*.jpg’”

set thelist to get_folder_and_file_list(thesuffix, thesource)

set filecount to count of every paragraph of item 2 of thelist

display dialog filecount & ” files have been moved” as text

make_folders_of_list(thedestination, every paragraph of (item 1 of thelist))

move_files_to_folders(thesource, thedestination, every paragraph of (item 2 of thelist))

on move_files_to_folders(thesource_folder, destination_folder, filelist)

repeat with thefile in filelist

do shell script “cd ” & destination_folder & “;mv ” & thesource_folder & quoted form of thefile & ” ” & quoted form of thefile

end repeat

end move_files_to_folders

on make_folders_of_list(destination_folder, folderlist)

repeat with thefolderpath in folderlist

do shell script “cd ” & destination_folder & “;mkdir -p ” & quoted form of thefolderpath

end repeat

end make_folders_of_list

on get_folder_and_file_list(searchstring, folder2search)

set folderlist to do shell script “cd ” & folder2search & “;find . -iname ” & searchstring & ” -exec dirname {} \\;”

set filelist to do shell script “cd ” & folder2search & “;find . -name ” & searchstring

return {folderlist, filelist}

end get_folder_and_file_list

OS X Lion: Fensterwiederherstellung für einzelne Programme sperren

hubi — Thu, 11 Aug 2011 07:36:41 +0000

defaults write com.apple.QuickTimePlayerX NSQuitAlwaysKeepsWindows -bool false
via OS X Lion: Fensterwiederherstellung für einzelne Programme sperren « macnews.de.

In der Library, unter Saved Application State werden alle Programme aufgeführt, bei denen ein solcher SavedState bereits gespeichert wurde =) also warum nicht ein kleines Skript:

–11.08.2011 little script to edit saved state settings for a single app instead of all apps

global myhome

tell application “Finder”

set myhome to POSIX path of (home as alias)

set theitems to name of every item of folder “Saved Application State” of folder “Library” of home

set theapps to {}

repeat with theitem in theitems

if (theitem as text) ends with “.savedState” then

set theapps to theapps & ((characters 1 through -12 of theitem as text) as text)

end if

end repeat

end tell

set theapp to (choose from list theapps with prompt “Which app with saved state?”) as text

set theactions to {“Delete SavedState”, “Disable SavedState”, “Enable SavedState”, “Freeze Saved State”, “Defrost Saved State”}

set theaction to (choose from list theactions with prompt “Which action?”) as text

if theaction = (item 1 of theactions) as text then

my deleteSavedState(theapp)

else if theaction as text = (item 2 of theactions) as text then

my disableSavedState(theapp)

else if theaction as text = (item 3 of theactions) as text then

my enableSavedState(theapp)

else if theaction as text = (item 4 of theactions) as text then

my freezeSavedState(theapp)

else if theaction as text = (item 5 of theactions) as text then

my defrostSavedState(theapp)

end if

on deleteSavedState(appName)

–moves avedState to user’s trash folder and plays drag to trash sound

do shell script “mv ” & myhome & “Library/’Saved Application State’/” & quoted form of appName & “.savedState ~/.Trash/;afplay /System/Library/Components/CoreAudio.component/Contents/SharedSupport/SystemSounds/dock/drag\\ to\\ trash.aif”

end deleteSavedState

on disableSavedState(appName)

–uses defaults write to disable saved state for this particular app

do shell script “defaults write ” & appName & ” NSQuitAlwaysKeepsWindows -bool false”

do shell script “afplay /System/Library/Components/CoreAudio.component/Contents/SharedSupport/SystemSounds/ink/InkSoundBecomeMouse.aif”

end disableSavedState

on enableSavedState(appName)

–uses defaults write to disable saved state for this particular app

do shell script “defaults write ” & appName & ” NSQuitAlwaysKeepsWindows -bool true”

do shell script “afplay /System/Library/Components/CoreAudio.component/Contents/SharedSupport/SystemSounds/ink/InkSoundBecomeMouse.aif”

end enableSavedState

on freezeSavedState(appName)

–changes user permissions to read only, so that savedStated is frozen

do shell script “chmod u-w ” & myhome & “Library/’Saved Application State’/” & quoted form of appName & “.savedState”

do shell script “afplay /System/Library/Components/CoreAudio.component/Contents/SharedSupport/SystemSounds/ink/InkSoundBecomeMouse.aif”

end freezeSavedState

on defrostSavedState(appName)

–changes user permissions to read&write again, so that savedStated is not frozen any more

do shell script “chmod u+w ” & myhome & “Library/’Saved Application State’/” & quoted form of appName & “.savedState”

do shell script “afplay /System/Library/Components/CoreAudio.component/Contents/SharedSupport/SystemSounds/ink/InkSoundBecomeMouse.aif”

end defrostSavedState

Update:

Ok, das hier ist nun wirklich eine schönere Lösung: http://www.tuaw.com/2011/07/26/dear-aunt-tuaw-help-me-fine-tune-session-window-restores/

Adressbuch: checkt ob eine Telefonnummer bereits vorhanden ist

hubi — Thu, 30 Jun 2011 05:46:04 +0000

Das ist nur als Beispiel gedacht, wie so eine Funktion aussehen könnte:

tell application “Address Book”

activate

set my_phone_2_check to text returned of (display dialog “Telefonnummer:” default answer “0″)

set allp to people

set phone_numbers to value of every phone of people

repeat with i from 1 to count of phone_numbers

set current_phone_numbers to item i of phone_numbers

if (count of current_phone_numbers) > 0 then

repeat with phone_number_2_check in current_phone_numbers

set phone_number_2_check to phone_number_2_check as text

if phone_number_2_check starts with “+” then

set phone_number_2_check to (“0″ & characters 4 through -1 of phone_number_2_check) as text

end if

if phone_number_2_check contains ” ” then

set phone_number_2_check to my replace_chars(phone_number_2_check, ” “, “”)

end if

if phone_number_2_check contains “-” then

set phone_number_2_check to my replace_chars(phone_number_2_check, “-”, “”)

end if

if phone_number_2_check contains “/” then

set phone_number_2_check to my replace_chars(phone_number_2_check, “/”, “”)

end if

if phone_number_2_check = my_phone_2_check then

set selection to item i of people

error “Die Nummer gibt es schon”

end if

end repeat

end if

end repeat

end tell

to replace_chars(this_text, search_string, replacement_string)

try

if this_text contains the search_string then

set AppleScript‘s text item delimiters to the search_string

set the item_list to every text item of this_text

set AppleScript‘s text item delimiters to the replacement_string

set this_text to the item_list as string

set AppleScript‘s text item delimiters to “”

end if

return this_text

on error msg

error “error on replace_chars” & return & msg

end try

end replace_chars

Wie lange braucht mein Mac zum Aufwachen…

hubi — Sat, 07 May 2011 08:56:12 +0000

Ich finde es etwas fragwürdig, das per Skript zu messen… aber wie sonst? Es ist aber ein nettes Beispiel, wie man pmset skripten kann.

–07.05.2011 hubionmac.com

–skript that measures the time until wakeup is complete

– this gives a f*** about your wakeorpoweron settings, they will be deleted!!!

set mystartup to build_pmset_date(1)

set ct to current date

tell application “Finder” to sleep

repeat until 1 = 0

if ct > mystartup then

exit repeat

else

set ct to current date

delay 1

end if

end repeat

set diff to ct – mystartup

display dialog “Waking up took me ” & diff & ” sec.”

–clean wakup-plan

do shell script “pmset repeat cancel” with administrator privileges

on build_pmset_date(plusminutes)

set d to (current date) + (plusminutes * 60)

–make sure that we will end up with at least 1 minute…

if seconds of d > 30 then

set d to d + 60

end if

set thehour to characters -2 through -1 of ((“0″ & (hours of d as integer)) as text)

set theminutes to characters -2 through -1 of ((“0″ & (minutes of d as integer)) as text)

–pmset does not care about seconds…

set theseconds to “00″

set seconds of d to 0

set thetime to thehour & “:” & theminutes & “:” & theseconds

–clean wakup-plan

do shell script “pmset repeat cancel” with administrator privileges

–set the plan

do shell script “pmset repeat wakeorpoweron MTWRFSU \”" & thetime & “\”" with administrator privileges

return d

end build_pmset_date

ISBN Nummern aus PDFs auslesen

hubi — Sat, 30 Apr 2011 10:25:08 +0000

Ist eigentlich nur ein Beispiel, wie man recht ohne großen Overhead (gs mal vorausgesetzt) PDFs auslesen kann… vielleicht kennt ja jemand noch ein simplere Lösung:

–30.04.2011 hubionmac.com

–quick & dirty script to extract first ISBN-Number of a PDF file… just uses grep, maybe some nice reqexp would do a better job!

set myselection to choose file of type {“pdf”} with multiple selections allowed

set myoutput to “”

repeat with pdf_file in myselection

tell application “Finder” to set pdfname to name of (pdf_file as alias)

set pdf_file_posix to quoted form of POSIX path of (pdf_file as alias)

do shell script “”

try

–first add the path, otherwhise s2ascii will fail since it cannot find ghostscript (gs) which is also installed in /usr/local/bin (think by macports)

set ISBN_String to do shell script “PATH=\”$PATH:/usr/local/bin\”; /usr/local/bin/ps2ascii ” & pdf_file_posix & ” | grep -m 1 ISBN”

set foundLine to true

on error

display dialog “maybe \”" & pdfname & “\” does not contain a ISBN at all”

set foundLine to false

end try

if foundLine is true then

repeat with s in every word of ISBN_String

try

get s as integer

set s to s as text

set foundisbn to true

exit repeat

on error

set s to “”

end try

end repeat

end if

set myoutput to myoutput & pdfname & tab & s & return

end repeat

tell application “TextEdit”

activate

set a to make new document

set text of a to myoutput as text

end tell