START > APPLESCRIPT > Praktische Handler > Gross-/Kleinschreibung ändern

Gross-/Kleinschreibung ändern

Drei Handler von skeeve, um die Groß-und-Kleinschreibung von Texten zu verändern. Es hapert einzig noch mit Sonderzeichen (Umlaute etc.).

---------------------------------------------------------------------------------------
--   BEISPIEL-AUFRUF:
---------------------------------------------------------------------------------------
AllCaps for "dies ist ein einfacher probetext"
--> "DIES IST EIN EINFACHER PROBETEXT"
InitialCaps for "dies ist ein einfacher probetext"
--> "Dies Ist Ein Einfacher Probetext"
NoCaps for "Dies Ist Ein Einfacher Probetext"
--> "dies ist ein einfacher probetext"
InitialCaps for (NoCaps for "DIES IST EIN EINFACHER PROBETEXT")
--> "Dies Ist Ein Einfacher Probetext"
-- :::::::::::::::::::::::::::::::::  hohabadu.de  :::::::::::::::::::::::::::::::::
--                              ( posted by skeeve - Nov 2007 )

on InitialCaps for a_text
   do shell script "perl -ne 'print ucfirst foreach split /\\b/'<<'" & ¬
      (ASCII character 3) & "'" & (ASCII character 10) & a_text
end InitialCaps

on AllCaps for a_text
   do shell script "perl -ne 'print uc' <<'" & ¬
      (ASCII character 3) & "'" & (ASCII character 10) & a_text
end AllCaps

on NoCaps for a_text
   do shell script "perl -ne 'print lc' <<'" & ¬
      (ASCII character 3) & "'" & (ASCII character 10) & a_text
end NoCaps
 Im Scripteditor öffnen



Powered By CMSimple Design By NMuD Top