Fischer-Bayern.de
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Ordneraktion funktioniert bei neuem iMac nicht mehr

 
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> AppleScript X
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
bixbixbix
•-->
•-->


Anmeldedatum: 04.01.2006
Beiträge: 37

BeitragVerfasst am: 08.10.2007 - 09:19    Titel: Ordneraktion funktioniert bei neuem iMac nicht mehr Antworten mit Zitat

Ich bin vom iMac G5 nun auf iMac Intel Core 2 Duo umgestiegen. Und was stelle ich fest? Meine geliebte Ordneraktion zum automatischen Versenden von Emailnachrichten funktioniert nicht mehr.

Was mache ich denn jetzt?

Die selbe Aktion kann ich übrigens nach wie vor von Hand per AS auslösen.

Danke, Bix.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Skeeve
•---->
•---->


Anmeldedatum: 20.04.2006
Beiträge: 1068

BeitragVerfasst am: 09.10.2007 - 08:10    Titel: Re: Ordneraktion funktioniert bei neuem iMac nicht mehr Antworten mit Zitat

bixbixbix hat Folgendes geschrieben:
Was mache ich denn jetzt?

Weinen?

bixbixbix hat Folgendes geschrieben:
Die selbe Aktion kann ich übrigens nach wie vor von Hand per AS auslösen.

Achja... Oder das.

Verwirrt? Nicht wundern. Wer mit so aussagekräftigen Fehlermeldungen rüberkommt und uns so tiefe Einblicke in die betreffenden Scripte gibt, kann nicht mit einer ernsthaften Antwort rechnen.
_________________
"All problems are solved in slightly less than half an hour" (Chumbawamba, "Hey Hey We're The Junkies")
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
bixbixbix
•-->
•-->


Anmeldedatum: 04.01.2006
Beiträge: 37

BeitragVerfasst am: 09.10.2007 - 08:28    Titel: Antworten mit Zitat

Ist es das, was Du willst?


Code:
on adding folder items to this_folder after receiving these_items
   tell application "Finder"
      set theOriginFolder to the name of this_folder
   end tell
   
   
   
   tell application "Finder"
      
      set theEventDay to day of (current date)
      if theEventDay < 10 then
         set theEventDay to ("0" & theEventDay)
      end if
      
      set theMonth to month of (current date)
      if theMonth is January then
         set theMonthNumber to "01"
      else if theMonth is February then
         set theMonthNumber to "02"
      else if theMonth is March then
         set theMonthNumber to "03"
      else if theMonth is April then
         set theMonthNumber to "04"
      else if theMonth is May then
         set theMonthNumber to "05"
      else if theMonth is June then
         set theMonthNumber to "06"
      else if theMonth is July then
         set theMonthNumber to "07"
      else if theMonth is August then
         set theMonthNumber to "08"
      else if theMonth is September then
         set theMonthNumber to "09"
      else if theMonth is October then
         set theMonthNumber to "10"
      else if theMonth is November then
         set theMonthNumber to "11"
      else if theMonth is December then
         set theMonthNumber to "12"
      end if
      
      
      set theEventMonth to theMonthNumber
      
      
      
      set theEventYear to year of (current date)
      set subjectEvent to (theEventDay & "." & theEventMonth & "." & theEventYear)
      
      --set theComputer to name of startup disk
      --set theFile to (choose file)
      
      --choose from list theList
      set theYear to year of (current date)
      set theOriginFolder to folder "Amenophis:Users:bheinz:Desktop:AuftragsEmails:"
      set theFileNumber to number of files of theOriginFolder
      repeat with i from 1 to theFileNumber
         
         --zuerst fragen, wie die Datei heißt
         set theRealName to name of file i of theOriginFolder as string
         --dann abfragen, wie lang der Name ist
         set theCharacterNumber to number of characters of theRealName
         --dann vom Namen die Dateierweiterung ausschließen
         set theName to characters 1 thru (theCharacterNumber - 4) of theRealName as string
         
         
         
         
         --und den Pfad zu jeweiligen Datei festhalten
         set theFile to ("Amenophis:Users:bheinz:Desktop:AuftragsEmails:" & theRealName) as alias
         
         
         --jetzt sicherstellen, dass die Datenbank geöffnet ist, die die Kundendaten enthält
         
         if not (window ("Angebotserstellung") exists) then
            --set theWindowControl to "no"
            open file ("Amenophis:Users:bheinz:Documents:mediat.press:FMP7:Angebotserstellung")
            --open selection
         end if
         
         --die Auftragsnummer herausfiltern
         set theNameNumber to characters 10 thru 14 of theName as string
         --die Anzahl der Volltexte bzw. die Art der Texte herausfiltern
         set theTextNumber to last word of theName
         
         --sollte im einen oder anderen Fall die Auftragsnummer kürzer sein
         --und nur vier Zahlen umfassen und folglich das Trennzeichen "_"
         --anzeigen, dann die kürzere Auftragsnummer berücksichtigen
         if last character of theNameNumber is "_" then
            set theNameNumber to characters 1 thru 4 of theNameNumber as string
         end if
         
         
         --jetzt die Angaben aus der FM-Datenbank
         
         tell application "FileMaker Pro"
            try
               delete every request
            on error
               display dialog "Fehler zu Beginn der FMP-Routine"
            end try
            set thisRequest to create new request at beginning
            
            --und mit Hilfe der Auftragsnummer "theNameNumber" den betreffenden
            --Datensatz aus "Angebotserstellung" suchen
            set cell "Auftragsnummer" of thisRequest to ("==" & theNameNumber)
            find
            --und finden
            tell window "Angebotserstellung"
               --jetzt die Datei auslesen und mit den Emailangaben beginnen.
               tell current record
                  --sollte es mehrere EmailAdressen geben...
                  set addrVar to cell "Emailzusatz"
                  if item 1 of addrVar is "" then
                     
                     set theFirstEmail to cell "LieferEmail"
                     set theSecondEmail to ""
                     set theThirdEmail to ""
                     set theFourthEmail to ""
                     set theFifthEmail to ""
                  else
                     
                     set theFirstEmail to (item 1 of addrVar)
                     
                     if not (item 2 of addrVar is "") then
                        set theSecondEmail to (item 2 of addrVar)
                     else
                        set theSecondEmail to ""
                     end if
                     
                     if not (item 3 of addrVar is "") then
                        set theThirdEmail to (item 3 of addrVar)
                     else
                        set theThirdEmail to ""
                     end if
                     
                     if not (item 4 of addrVar is "") then
                        set theFourthEmail to (item 4 of addrVar)
                     else
                        set theFourthEmail to ""
                     end if
                     
                     if not (item 5 of addrVar is "") then
                        set theFifthEmail to (item 4 of addrVar)
                     else
                        set theFifthEmail to ""
                     end if
                     
                     
                     (*if not (theSecondEmail is "") then
                     set addrVar to theFirstEmail & "," & theSecondEmail
                  else
                     set addrVar to theFirstEmail
                  end if
                  
                  if not (theThirdEmail is "") then
                     set addrVar to theFirstEmail & ", " & theSecondEmail & ", " & theThirdEmail
                  end if
                  
                  if not (theFourthEmail is "") then
                     set addrVar to theFirstEmail & "," & theSecondEmail & "," & theThirdEmail & "," & theFourthEmail
                  end if
                  
                  if not (theFifthEmail is "") then
                     set addrVar to theFirstEmail & "," & theSecondEmail & "," & theThirdEmail & "," & theFourthEmail & "," & theFifthEmail
                  end if*)
                     
                     
                     
                     --jetzt die Texte definieren die als Mitteilungstext und Betreffzeile
                     --auftauchen sollen
                     
                  end if
                  --In der Dienstleistungsvariante steht, ob es z.B. Ausschreibungen sind, die versendet werden
                  -- Achtung: in der Betreffzeile nicht genannt werden sollten Bezeichnung wie Standard und Plus
                  (*set derMedienkreisVariante to cell "Dienstleistungsvariante"
               --deshalb wird hier auch schon mal die Dienstleistung (mb, Archiv...) abgefragt
               set derMedienkreis to cell "Dienstleistung"
               --das Auftragsdatum spielt möglicherweise nur eine geringe Rolle
               set anfrageVar to cell "Auftragsdatum"*)
                  
                  
                  set addrNameVar to (cell "LieferAnrede" & " " & cell "LieferNachname")
                  set begruessungsVar to cell "LieferBegrüßung"
                  set zunameVar to cell "LieferNachname"
                  --set anfragetypVar to cell "Auftragstitel" of current record of database "Auftragsannahme"
                  set firmenName to cell "LieferFirma"
                  set ortVar to cell "LieferOrt"
                  set anredeVar to cell "LieferAnrede"
                  --set theFileIdentification to ("Die angehängte Datei trägt den Namen >" & theFileName & "<")
                  set emailAnredeVar to cell "LieferAnrede"
                  
                  
                  set subjectTyp to cell "Dienstleistung"
                  set subjectTypVariante to cell "Dienstleistungsvariante"
                  set subjectIssue to cell "Arbeitstitel"
                  
                  
                  if ((subjectTypVariante is "Ausschreibungen") and (theName contains "kurz")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:ausschreibungen-kurz"
                     set subjectEvent to "Titelübersicht"
                     
                     
                     set subjectType to subjectTypVariante
                  else if ((subjectTypVariante is "Ausschreibungen") and not (theName contains "kurz")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:ausschreibungen-volltx"
                     set subjectType to subjectTypVariante
                     set subjectEvent to "Volltexte"
                     
                     --display dialog "2. Voraussetzung"
                  else if ((subjectTypVariante is "Pressearchivsuche") and (theName contains "kurz")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:pressearchiv_kurz"
                     set subjectType to subjectTypVariante
                     set subjectEvent to "Titelübersicht"
                     
                     --display dialog "3. Voraussetzung"
                  else if ((subjectTypVariante is "Pressearchivsuche") and not (theName contains "kurz")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:pressearchiv_volltx"
                     set subjectType to subjectTypVariante
                     set subjectEvent to "Volltexte"
                     --display dialog "4. Voraussetzung"
                     
                     
                  else if (((subjectTyp contains "mb") or (subjectTyp contains "Adienst")) and (theName contains "tv")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:tv-hinweis"
                     set subjectEvent to "TV-Hinweise"
                     
                     
                     --else if (((subjectTyp contains "mb") or (subjectTyp contains "Adienst")) and (theName contains "x")) then
                     --set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:x"
                     --set subjectEvent to "Ausschnitte"
                     
                  else if (((subjectTyp contains "mb") or (subjectTyp contains "Adienst")) and (theName contains "y")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:y"
                     set subjectEvent to "Pressetexte: Ausland"
                     
                  else if (((subjectTyp contains "mb") or (subjectTyp contains "Adienst")) and (theName contains "hf")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:hf-hinweis"
                     set subjectEvent to "Hörfunk-Hinweise"
                     
                  else if (((subjectTyp contains "mb") or (subjectTyp contains "Adienst")) and (theName contains "aq")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:aq-hinweis"
                     set subjectEvent to "Korrespondenten"
                     
                  else if (((subjectTyp contains "mb") or (subjectTyp contains "Adienst")) and ((subjectTypVariante contains "FlatExpress") or (subjectTypVariante contains "Express")) and theTextNumber = "00") then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:fe"
                     set subjectEvent to ("FlatExpress: " & subjectEvent)
                     
                     
                  else if (((subjectTyp contains "mb") or (subjectTyp contains "Adienst")) and ((subjectTypVariante contains "FlatExpress") or (subjectTypVariante contains "Express")) and theTextNumber ? "00") then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:feVoll"
                     set subjectEvent to ("FlatExpress: " & subjectEvent)
                     
                  else if (((subjectTyp contains "mb") or (subjectTyp contains "Adienst")) and (subjectTypVariante contains "FlatExpress")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:fe"
                     set subjectEvent to ("FlatExpress: " & subjectEvent)
                     
                     
                     
                     
                     
                  else if (((subjectTyp contains "mb") or (subjectTyp contains "Adienst")) and (theName ends with "ol")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:ol-hinweis"
                     set subjectEvent to "Online-Hinweise"
                     
                  else if (((subjectTyp is "mb") or (subjectTyp is "Adienst")) and (subjectTypVariante contains "Express") or (subjectTypVariante contains "FlatExpress")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:Express_ergebnis"
                     set theEventDay to day of (current date)
                     if theEventDay < 10 then
                        set theEventDay to ("0" & theEventDay)
                     end if
                     
                     set theMonth to month of (current date)
                     
                     if theMonth is January then
                        set theMonthNumber to "01"
                     else if theMonth is February then
                        set theMonthNumber to "02"
                     else if theMonth is March then
                        set theMonthNumber to "03"
                     else if theMonth is April then
                        set theMonthNumber to "04"
                     else if theMonth is May then
                        set theMonthNumber to "05"
                     else if theMonth is June then
                        set theMonthNumber to "06"
                     else if theMonth is July then
                        set theMonthNumber to "07"
                     else if theMonth is August then
                        set theMonthNumber to "08"
                     else if theMonth is September then
                        set theMonthNumber to "09"
                     else if theMonth is October then
                        set theMonthNumber to "10"
                     else if theMonth is November then
                        set theMonthNumber to "11"
                     else if theMonth is December then
                        set theMonthNumber to "12"
                     end if
                     
                     
                     set theEventMonth to theMonthNumber
                     
                     
                     
                     set theEventYear to year of (current date)
                     set subjectEvent to (theEventDay & "." & theEventMonth & "." & theEventYear)
                     
                     
                  else if (((subjectTyp contains "mb") or (subjectTyp contains "Adienst")) and (theName contains "na")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:na-hinweis"
                     set subjectEvent to "Nachrichtenagenturen"
                     
                  else if (((subjectTyp contains "mb") or (subjectTyp contains "Adienst")) and (theName contains "FE")) then
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:fe"
                     set subjectEvent to "FlatExpres"
                     
                  else
                     set textVarFile to "Amenophis:Users:bheinz:Library:TheTextFolder:Emailbegleittexte:sendung"
                     set subjectEvent to "..."
                     
                  end if
                  
               end tell
               do script "ausblenden"
            end tell
            
            tell application "Finder"
               try
                  
                  open for access file textVarFile
                  copy (read file textVarFile) to textVar
                  close access file textVarFile
               on error
                  display dialog "Begleittext konnte nicht eingelesen werden"
                  close access file textVarFile
               end try
            end tell
         end tell
         --get textVar
         
         
         
         (*if theName contains "kurz" then
         set subjectEvent to "Titelübersicht"
      else if not (theName contains "kurz") and not (theName contains "tv") and not (subjectTypVariante contains "Express") then
         set subjectEvent to "Volltexte"
      else if (theName ends with "hf") then
         set subjectEvent to "TV- und Hörfunkhinweise"
      else if (theName ends with "tv") then
         set subjectEvent to "TV- und Hörfunkhinweise"
      else if (subjectTypVariante contains "Express") then
         
         
         
         --set subjectEvent to (get current date)
         
         --end if
         
      else if (theName ends with "na") then
         set subjectEvent to "Nachrichtenagenturen"
      end if*)
         
         set theSubject to theNameNumber & ": " & subjectTyp & ": " & subjectIssue & ": " & subjectEvent
         
         
         
         
         --if not (emailAnredeVar is "") then
         --   set begruessungsVar to emailAnredeVar
         --   set addrNameVar to ""
         --end if
         
         
         
         -- jetzt der Emailaccount
         --------------
         -----apple mail
         --------------
         
         tell application "Mail"
            set bodyvar to ¬
               firmenName & return & addrNameVar & return & return & return & begruessungsVar & return & return & textVar & return & return
            
            set newMessage to make new outgoing message with properties {subject:theSubject, content:bodyvar}
            tell newMessage
               set visible to true
               set sender to "mb und archiv <info@sender.de>"
               
               make new to recipient at end of to recipients with properties {name:addrNameVar, address:theFirstEmail}
               
               if not (theSecondEmail is "") then
                  make new to recipient at end of to recipients with properties {address:theSecondEmail}
               end if
               
               if not (theThirdEmail is "") then
                  make new to recipient at end of to recipients with properties {address:theThirdEmail}
               end if
               
               if not (theFourthEmail is "") then
                  make new to recipient at end of to recipients with properties {address:theFourthEmail}
               end if
               
               if not (theFifthEmail is "") then
                  make new to recipient at end of to recipients with properties {address:theFifthEmail}
               end if
               tell content
                  make new attachment with properties {file name:theFile} at after the last paragraph
               end tell
               
               if not (theName ends with "x") then
                  send
               end if
            end tell
            
            
            
         end tell
         
         
      end repeat
      tell application "Finder"
         set theOriginFolder to folder "Amenophis:Users:bheinz:Desktop:AuftragsEmails:"
         
         set theFileNumber to number of files of theOriginFolder
         
         --jetzt muß der Ordner herausgefunden werden, in den die Dateien
         -- verschoben werden soll. Hierzu wird die Liste der Namen der verfügbaren
         -- Ordner abgerufen und durchsucht
         
         set theList to name of every folder of folder "Amenophis:Users:bheinz:Documents:mediat.press:Arbeiten:"
         set theItemNumber to number of items of theList
         
         --Gesucht wird nach der Auftragsnummer der ersten im AuftragsEmail-Ordner
         -- enthaltenen Datei. Hierzu muss ebenfalls die Anzahl der enthaltenen Dateien
         -- abgefragt werden
         
         set theFileNumber to number of files of theOriginFolder
         
         -- Es wird schon mal der erste Teil des Namens des
         -- Zielordner definiert
         
         set theDestination to "Amenophis:Users:bheinz:Documents:mediat.press:Arbeiten:"
         
         --zuerst also die zu suchende Nummer innerhalb der Schleife,
         -- die die Anzahl der zu bearbeitenden Dateien berücksichtigt
         
         repeat while the theFileNumber is greater than 0
            set theFileNametoProcess to name of file 1 of theOriginFolder
            set theFileToProcess to file 1 of theOriginFolder
            set theSearchedFileNumber to characters 10 thru 14 of theFileNametoProcess as string
            
            if theSearchedFileNumber ends with "_" then
               set theSearchedFileNumber to characters 1 thru 4 of theSearchedFileNumber
            end if
            
            set theItemNumber to number of items of theList
            repeat with j from 1 to theItemNumber
               if item j of theList starts with theSearchedFileNumber then
                  
                  set theFoundFolderName to item j of theList
                  exit repeat
               end if
            end repeat
            
            -- jetzt ist der restliche Teil des Names des gesuchten
            -- Ordners bekannt
            
            set theDestinationFolder to folder (theDestination & theFoundFolderName)
            
            -- jetzt kann die erste Datei also verschoben werden
            
            try
               move file 1 of theOriginFolder to theDestinationFolder
            on error
               display dialog "Datei gleichen Namens existiert bereits? Die Datei wird durch Anhängung eines \"B\" umbenannt"
               set theExtension to name extension of file 1 of theOriginFolder
               set name of file 1 of theOriginFolder to (theName & "b." & theExtension)
               try
                  move file 1 of theOriginFolder to theDestinationFolder
               on error
                  display dialog "Datei gleichen Namens existiert bereits? Die Datei wird durch Anhängung eines \"C\" umbenannt"
                  set theExtension to name extension of file 1 of theOriginFolder
                  set name of file 1 of theOriginFolder to (theName & "c." & theExtension)
                  move file 1 of theOriginFolder to theDestinationFolder
               end try
            end try
            
            set theFileNumber to number of files of theOriginFolder
         end repeat
         
         --repeat while theItemNumber is greater than 0
         --   move first file of theOriginFolder to theDestinationFolder
         --   set theItemNumber to number of files of folder "Amenophis:Users:bheinz:Desktop:AuftragsEmails:"
         --end repeat
      end tell
   end tell
end adding folder items to


Danke, Bix.


Zuletzt bearbeitet von bixbixbix am 20.01.2009 - 18:07, insgesamt einmal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Wolle-77
•--->
•--->


Anmeldedatum: 25.02.2003
Beiträge: 447
Wohnort: Geldern

BeitragVerfasst am: 09.10.2007 - 10:57    Titel: Antworten mit Zitat

Hallo bix,

ich habe keinen FileMaker und auch sonst keinen G5, um irgendwelche Fehlermeldungen zu produzieren; diese hättest Du besser genannt.

Allerdings fällt mir folgendes auf und es kommt mir wie ein dejá vù vor..., so, als ob ich das schon mal (hier? An wen?) geschrieben habe.
Vorsichtig ausgedrückt sage ich mal, Dein stellenweise sehr unbeholfen wirkendes Script hat wahrscheinlich noch so manches Optimierungspotential.

Allen voran: Deine "Methode", um die Monatszahl zu erhalten. Vor allem hast Du sie gleich zweimal verwendet. Grottig.

Das kannst Du schon mal am Besten durch einen Handler ersetzen:

Code:
set theMonth to my monatszahl((month of (current date)))

on monatszahl(monat)
   if monat < 10 then
      return ("0" & (monat as number) as string)
   else
      return (monat as number as string)
   end if
end monatszahl

_________________
Martin Wolter
--
Apple rocks the planet!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Skeeve
•---->
•---->


Anmeldedatum: 20.04.2006
Beiträge: 1068

BeitragVerfasst am: 09.10.2007 - 11:04    Titel: Antworten mit Zitat

Wolle-77 hat Folgendes geschrieben:
Code:
set theMonth to my monatszahl((month of (current date)))

on monatszahl(monat)
   if monat < 10 then
      return ("0" & (monat as number) as string)
   else
      return (monat as number as string)
   end if
end monatszahl

Alternativ sollte auch das hier gehen:
Code:
set theMonth to my monatszahl((month of (current date)))

on monatszahl(monat)
   return text -2 thru -1 of (((monat as number) + 100) as string)
end monatszahl

_________________
"All problems are solved in slightly less than half an hour" (Chumbawamba, "Hey Hey We're The Junkies")
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
bixbixbix
•-->
•-->


Anmeldedatum: 04.01.2006
Beiträge: 37

BeitragVerfasst am: 09.10.2007 - 11:36    Titel: Antworten mit Zitat

Danke erst einmal!

Aber kann der nicht verwendete Handler der Grund für den Abbruch des Scripts sein?

Die Fehlermeldung habe ich übrigens nicht zitiert, weil es sie nicht gibt. Die Ordneraktion wird einfach nicht ausgeführt. So als gäbe es sie gar nicht.

Gruß, Bix.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Skeeve
•---->
•---->


Anmeldedatum: 20.04.2006
Beiträge: 1068

BeitragVerfasst am: 10.10.2007 - 08:37    Titel: Antworten mit Zitat

bixbixbix hat Folgendes geschrieben:
Danke erst einmal!

Aber kann der nicht verwendete Handler der Grund für den Abbruch des Scripts sein?


Wie wäre es, Du lernst AppleScript "auf die harte Tour"? Ich denke, niemand hier wird anfangen, Deine Scripte, über deren programmiertechnische Qualität sich ja Wolle schon ausgelassen hat, zu debuggen. Weißt Du: Wenn ich mich mit einem Programm beschäftigen soll, dann muß mir das Spaß machen oder ich muß Geld dafür bekommen. Da das für Deine Scripte leider beides nicht zutrifft, mache ich etwas anderes, das mir Spaß macht:
1. Ich zieh ein bißchen über Dich her
2. Ich erkläre Dir, wie Du Dir selbst helfen kannst.
Da 1 ja nun abgehakt ist, kommt hier die 2.

Wenn Du nicht weiß, wo ein Script Probleme verursacht, dann mußt Du hingehen und Dir "Markierungen" ins Script setzen, anhand derer Du erkennen kannst, was es gerade machst. Das geht am Einfachsten so, daß Du ein paar »display dialog "Ich bin an Position X"« einbaust. Am Besten zuerstmal direkt am Anfang, um zu sehen, ob es überhaupt aufgerufen wird.

Danach kannst Du Dich dann vortasten um die Fehlerstelle einzugrenzen.[/quote]
_________________
"All problems are solved in slightly less than half an hour" (Chumbawamba, "Hey Hey We're The Junkies")
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
bixbixbix
•-->
•-->


Anmeldedatum: 04.01.2006
Beiträge: 37

BeitragVerfasst am: 10.10.2007 - 09:11    Titel: (Hilfe?) Antworten mit Zitat

(Vielen Dank für Deine "Hilfe". Wie Du vielleicht bemerkt hast, geht es eigentlich in meiner Frage NICHT um das Script, sondern um die möglichen Veränderungen, die sich für ein Script ergeben, wenn man von einem Motorola-Chip auf einen Intel-Chip wechselt.

Dass das Script hier veröffentlicht wurde war ja Dein Wunsch. Also beschwer Dich danach nicht und erzähle mir von Lust und Unlust.

Dass ich mit Markierungen arbeiten kann, weiß ich. Bei der Art von "Hilfe", die Personen wie Du geben - und es ist nicht das erste Mal, dass ich diese unangenehme Erfahrung mit Dir hier im Forum mache - bleibt mir nichts anderes übrig als entsprechende Techniken anzuwenden.

Diese "Techniken" haben aber zu nichts geführt, da das Script, das "uns" in diesem Thread beschäftigt, einfach nicht ausgelöst wird und es keine Fehlermeldung gibt.

Eine Bitte an Dich persönlich: Bitte reagiere in Zukunft NICHT mehr auf meine Anfragen! Das wäre hilfreich für mich. Danke, Bix.)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Skeeve
•---->
•---->


Anmeldedatum: 20.04.2006
Beiträge: 1068

BeitragVerfasst am: 10.10.2007 - 10:23    Titel: Antworten mit Zitat

Offtopic folgt:

Ich möchte in diesem Zusammenhang mal auf einen guten Beitrag in einem anderen Forum hinweisen und ihn hier auszugsweise zitieren:

Zitat:
Ich möchte mal meine Sorgen hier äußern.
Irgendwie komme ich mit der Ignoranz mancher User nicht klar. Ein User stellt eine Fragem weil er ein Problem hat. Warum zum Teufel kann man die Frage nicht genau und präzise stellen, daß viele Gegenfragen sich erübrigen? Viele Mitglieder hier helfen und versuchen durch Fragen das Problem zu lösen. Manche Fragesteller (Beitragsersteller) haben es nicht nötig auf Fragen zu antworten. Fall’ ich auf Trolls rein? Alle User hier opfern freiwillig ihre Zeit für andere (meist wildfremde) Menschen.

_________________
"All problems are solved in slightly less than half an hour" (Chumbawamba, "Hey Hey We're The Junkies")
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
iScript
•---->
•---->


Anmeldedatum: 29.03.2001
Beiträge: 1116

BeitragVerfasst am: 10.10.2007 - 10:57    Titel: Antworten mit Zitat

liegt's vielleicht am ordner?
versuchs mal mit einem neuen ordner
laufen andere folder-actions?
die möglichkeiten sind vielfältig und müssen ja nicht zwangsläufig mit dem script zusammenhängen.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen AIM-Name
bixbixbix
•-->
•-->


Anmeldedatum: 04.01.2006
Beiträge: 37

BeitragVerfasst am: 10.10.2007 - 11:02    Titel: Antworten mit Zitat

Wie gesagt, die Aktion läuft normal, wenn Sie nicht als Ordneraktion läuft.

Andere Ordneraktionen habe ich nicht, sollte aber doch vielleicht mal eine erstellen, um das, was Du sagt auszuprobieren.

Danke, Bix.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
bixbixbix
•-->
•-->


Anmeldedatum: 04.01.2006
Beiträge: 37

BeitragVerfasst am: 10.10.2007 - 12:09    Titel: Antworten mit Zitat

Ich hab's!

Es hatte weder mit dem Chip noch mit dem Script zu tun. Am ehesten liegt die Erklärung im Wechsel des Computers.

Wie ich drauf komme?

1. Andere Ordnerscripte an anderen Ordnern funktionierten.
2. Andere Ordnerscripte am fraglichen Ordner funktionierten nicht.
3. Andere Ordnerscripte an einem Ordner mit demselben Namen (wie unter 2) funktionierten (scheinbar) auch nicht. "Scheinbar" weil ich die Ordneraktion nicht neu zugewiesen habe und also genau hier den Fehler bemerkte.

Die Ordneraktion musste neu zugewiesen werden. Da scheint irgendeine Verbindung verlorengegangen zu sein. Und da liegt die Vermutung nahe, "aufgrund des Computerwechsels".

Sehe ich das falsch?

Jetzt funzt alles wieder. Danke iScript!

Gruß, Bix.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
iScript
•---->
•---->


Anmeldedatum: 29.03.2001
Beiträge: 1116

BeitragVerfasst am: 10.10.2007 - 19:33    Titel: Antworten mit Zitat

bixbixbix hat Folgendes geschrieben:
"aufgrund des Computerwechsels" ... Sehe ich das falsch?

Hatte so etwas schon vermutet. System migriert mit CCC oder Apples Programm? Der Ordner liegt für das Dateisystem an anderem Ort, auch wenn er den gleichen Pfad besitzt.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen AIM-Name
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> AppleScript X Alle Zeiten sind GMT + 2 Stunden
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2002 phpBB Group
Deutsche Übersetzung von phpBB.de


AppleScript für absolute Starter