在AppleScript中重复提取两个字符串之间的文本

set textToSearch to "在AppleScript中重复提取两个字符串之间的文本。这是一个示例文本。在这个示例文本中，我们想要提取两个字符串之间的文本。"
set startDelimiter to "在"
set endDelimiter to "示例文本"

-- 设置起始和结束分隔符
set AppleScript's text item delimiters to startDelimiter
-- 拆分字符串为多个文本项
set textItems to text items of textToSearch

-- 遍历文本项，找到起始和结束分隔符之间的文本
set extractedText to {}
repeat with i from 2 to count of textItems
    set currentItem to item i of textItems
    -- 设置起始和结束分隔符
    set AppleScript's text item delimiters to endDelimiter
    -- 查找结束分隔符的位置
    set endDelimiterPos to offset of endDelimiter in currentItem
    -- 设置起始和结束分隔符
    set AppleScript's text item delimiters to startDelimiter
    -- 查找起始分隔符的位置
    set startDelimiterPos to offset of startDelimiter in currentItem
    -- 计算起始和结束分隔符之间的文本长度
    set extractedLength to endDelimiterPos - startDelimiterPos - length of startDelimiter
    -- 提取起始和结束分隔符之间的文本
    set extractedTextItem to text startDelimiterPos + length of startDelimiter ¬
        through startDelimiterPos + length of startDelimiter + extractedLength - 1 of currentItem
    -- 添加提取的文本项到结果列表
    set end of extractedText to extractedTextItem
end repeat

-- 恢复默认的分隔符
set AppleScript's text item delimiters to ""

-- 输出提取的文本
extractedText