Text AppleScript:将变量添加到文本文件

Text AppleScript:将变量添加到文本文件,text,applescript,Text,Applescript,我正在运行AppleScript,它正在将我想要的变量保存到文本文件中,下面是我的代码: 执行shell脚本“echo”&myDateTime的引用形式&“>>Users/kevin/Documents/data/data\u Backup.txt” 执行shell脚本“echo”&myNote的引用形式&“>>Users/kevin/Documents/data/data\u Backup.txt” 它正在做我想做的事情,但是每次我运行脚本时,新数据都会添加到文本的按钮上,最旧的数据在顶部,我

我正在运行AppleScript,它正在将我想要的变量保存到文本文件中,下面是我的代码:

执行shell脚本“echo”&myDateTime的引用形式&“>>Users/kevin/Documents/data/data\u Backup.txt”

执行shell脚本“echo”&myNote的引用形式&“>>Users/kevin/Documents/data/data\u Backup.txt”

它正在做我想做的事情,但是每次我运行脚本时,新数据都会添加到文本的按钮上,最旧的数据在顶部,我怎么能将最新的数据放在顶部呢

例如

data_backup.txt数据3数据2数据1

我还可以在文本上添加计数吗 例如

data_backup.txt数据3案例3、数据2案例2、数据1案例1


您需要使用AppleScript的读/写命令来读取文本,在开头插入新数据并将其写回

这是一个处理程序,成功时返回true,否则返回false

set dataBackupFile to (path to documents folder as text) & "Data:data_Backup.txt"
insertOnTop from "foo" into dataBackupFile
insertOnTop from "bar" into dataBackupFile

on insertOnTop from theData into theFile
    try
        set fileDescriptor to open for access file theFile with write permission
        if (get eof fileDescriptor) > 0 then
            set theContent to read fileDescriptor as «class utf8»
        else
            set theContent to ""
        end if
        set eof fileDescriptor to 0
        write (theData & theContent) to fileDescriptor as «class utf8»
        close access fileDescriptor
        return true
    on error
        try
            close access file theFile
        end try
        return false
    end try
end insertOnTop

您需要使用AppleScript的读/写命令来读取文本,在开头插入新数据并将其写回

这是一个处理程序,成功时返回true,否则返回false

set dataBackupFile to (path to documents folder as text) & "Data:data_Backup.txt"
insertOnTop from "foo" into dataBackupFile
insertOnTop from "bar" into dataBackupFile

on insertOnTop from theData into theFile
    try
        set fileDescriptor to open for access file theFile with write permission
        if (get eof fileDescriptor) > 0 then
            set theContent to read fileDescriptor as «class utf8»
        else
            set theContent to ""
        end if
        set eof fileDescriptor to 0
        write (theData & theContent) to fileDescriptor as «class utf8»
        close access fileDescriptor
        return true
    on error
        try
            close access file theFile
        end try
        return false
    end try
end insertOnTop