AppleScript-在每段末尾添加换行符的最佳方法是什么？

如何解决AppleScript-在每段末尾添加换行符的最佳方法是什么？

我想在下面的斜体文本（较大文档的摘录）中用额外的换行符分隔每个段落。我有两种失败的方法。我的第一种方法在第2段的末尾引发了一个异常，但是它成功在每个段落的末尾插入了一个不同的字符，例如“ *”：

文字：
Lorem ipsum dolor坐下来，一直保持着良好的状态。 Morbi interdum，digissim胎盘，adiqua mi aliquam metus，非luccus lacus erat等。 Curabitur vitatric ultrices mi。矢状前庭的魁梧的蓬皮。 Nibh sed dictum的Duis pulvinar。 Etiam id lectus是一个dapibus元素。 Morbi ac tristique turpis，在车辆通配。 Morbi et risus ac nisl pulvinar vehicula。
Fusce mattis gravue augue，quis gravida leo scelerisque坐着。 Cras nec rutrum nisl。 sed faucibus semper purus eu commodo。 Etiam mollis est magna，非pretium nulla euismod eu。 Suspendisse ut lectus rut​​rum，暂定的天疱疮，无礼的兽人。 Maecenas congue neque坐在amet leo sagittis，在最大双歧本。紫叶韧带中的Vestibulum ac semper nulla。 Vestibulum vel nunc atmet metus sodales eleifend et eu purus。 quisque dictum ultricies nulla et euismod lectusvestibulum vel。在格拉蒂克黑人中，坐在原产于欧洲的芸苔。 sed ac dioo velit。

第一种方法：

set my_file to (choose file with prompt "Choose a text file")

    tell application "Pages"
        activate
        set my_doc to open my_file
        tell my_doc to tell the body text
            set last character of every paragraph to "
    "
        end tell
    end tell

我的第二种方法部分地通过分隔段落来工作，但是它没有在每个段落的末尾插入返回字符。似乎在第一段末尾插入换行符会导致文档进一步更改，从而使计算机无法正常运行（我的猜测和基本解释）。

第二种方法

set my_file to (choose file with prompt "Choose a text file")

    tell application "Pages"
        activate
        set my_doc to open my_file
        tell my_doc to tell the body text
            set (every character where it is the "
    ") to (return & return)
        end tell
    end tell

您能帮助我调整任一代码以产生所需的结果吗？

解决方法

由于添加段落会更改索引，因此一种解决方案是例如通过将计数加倍和索引加2s来补偿这种情况

tell my_doc to tell the body text
  repeat with num from 1 to (count paragraphs) * 2 by 2
    set paragraph num to paragraph num & linefeed
  end repeat
end tell

,

是的，插入字符会更改后续字符的索引。因此，从末尾开始按相反顺序插入字符。

,

使用matt所引用的方法，我发布了示例代码。如果需要重构，也许有人可以发表评论？

我更喜欢matt的方法，因为它更容易理解别人是否在看代码（或者将来看我自己）。

set my_file to (choose file with prompt "Choose a text file")

tell application "Pages"
    activate
    set my_doc to open my_file
    tell my_doc to tell the body text
        
        set paragraph_list to (every paragraph)
        set number_of_paragraphs to (length of paragraph_list)
        
        repeat with n from number_of_paragraphs to 1 by -1
            set last character of paragraph n to (last character of paragraph n & linefeed)
        end repeat

    end tell
end tell