Mac添加新建文本文档

2023-10-24 09:33

文章标签 mac 新建文本文档

本文主要是介绍Mac添加新建文本文档，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

功能：默认使用TextEdit（自带文本文档程序）在当前目录建立新文本文档。

过程：

打开automator

选择----服务

选取----实用工具

拖动----运行apple script 到右边的面板中

然后把面板内容替换如下：

[javascript]  view plain copy  
 (*  
 --Author: Libok Zhou (libk.8800.org, libkhorse@gmail.com). Feel free to contact me if you have questions about this script  
 --Usage: This script is used for Automator to add an "new text file" to the context menu,   
          when you want to create a new text file in current folder of Finder  
 *)  
 tell application "Finder"  
     try  
         set currentFolder to (folder of the front window)  
         set currentPath to (POSIX path of (target of the front window as alias))  
         set libkIsDeskTop to false  
     on error  
         set currentFolder to desktop  
         set currentPath to (POSIX path of (desktop as alias))  
         set libkIsDeskTop to true  
     end try  
     (*  
     set currentPath to (POSIX path of (target of the front window as alias))  
     set currentFolder to (folder of the front window)  
     *)  
       
     set txtName to text returned of (display dialog "Please enter the text name, " default answer "untitled.txt")  
       
     --if txtName is empty using "untitled.txt" as default  
     --no trailing extension, suffix with ".txt"  
     --have extension, don't touch it.  
     if length of txtName = 0 then  
         set ext to "txt"  
         set baseName to "untitled"  
         set txtName to "untitled.txt"  
     else  
         set prevTID to text item delimiters of AppleScript  
         set text item delimiters of AppleScript to "."  
         set libkNameParts to text items of txtName  
         set text item delimiters of AppleScript to prevTID  
           
         set len to length of libkNameParts  
         if len = 1 then  
             set ext to "txt"  
             set baseName to txtName  
             set txtName to baseName & "." & ext  
         else if len = 2 then  
             set ext to last text item of libkNameParts  
             set baseName to item 1 of libkNameParts as text  
         else  
             set ext to last text item of libkNameParts  
             set baseName to text 1 thru -((length of ext) + 1) of txtName  
         end if  
     end if  
       
       
       
     -- if the file name already exists in current folder, attach the "_n" to the filename  
     set n to 1  
     considering case  
         tell (get name of currentFolder's files) to repeat while txtName is in it  
             set txtName to baseName & "_" & n & "." & ext  
             set n to n + 1  
         end repeat  
     end considering  
       
       
     set newTxt to currentPath & txtName  
     do shell script "touch " & newTxt  
     if libkIsDeskTop is false then select the file txtName in currentFolder  
     tell application "TextEdit"  
         activate  
         open newTxt  
     end tell  
       
 end tell  