applescripts。如何在文本文档中的某些行末尾添加text_object/code片段？

Question

我正在使用AppleScript来查找某些字符或BBEDIT中的某些字符或字符串，以加快从Microsoft Word文档中剥离内容的过程，然后将其包裹在HTML中，然后再将其包装到CMS中。当它是替换类型的命令时，大多数都很好。但是，我不知道如何用关闭的H标签修改一条线的末端。

例如，以下行在p标签中包装段落做得很好： 使用“＆lt;/p＆gt; \\ n＆lt; p＆gt;”替换“ \\ n \\ n”“”在文本文档1选项的文本1中搜索{从顶部开始：true}

，我有一个解决方案将H标签添加到A行的正面。但是，我不知道如何用关闭的H标签修改一条线的结束，这就是我希望获得一些帮助的方法。

我正在寻找遵循此逻辑的内容：“如果一行以＆lt; h3＆gt;开头，则将＆lt;/h3＆gt;添加到行的末尾。”或“当行以＆lt; h3＆gt;开头时，将下一个\\ n替换为＆lt;/h3＆gt; \\ n。”

如果在Applescript中有些可行（而不是外壳），那将是理想的选择，因为我对此是相当陌生的，并且还没有对自己的贝壳进行过任何知识。

Answer 1

您可以使用BBEDIT内置的正则表达式支持来有效地解决此问题，例如：

tell application "BBEdit"
    tell text window 1
        tell contents
            replace "^(\\<h3\\>)(.*)$" using "\\1\\2<\\\\h3>" options {search mode:grep, starting at top:true}
        end tell
    end tell
end tell

这为所有H3元素添加了关闭标签。

Answer 2

在我的原始帖子中的一位受访者指出我朝正确的方向指出之后，我弄清楚了。 很有帮助。

（ Google组中的此交换也 t知道这是否是“正确的”，但它可以做我希望它能做的事情：它在每条线以特定的东西开头的每一行中添加了一个字符串。

-- This tell will find h3 tags and add a closing tag to the end of the line. It adds a space before the opening h3 tag so that it won't loop forever, and then the second tell removes that extra space once the loop finishes.  
tell application "BBEdit"  
    tell text window 1  
        set loop_while_true to true  
        repeat while true  
            set find_h3 to find "^<h3>(.*)" options {search mode:grep, starting at top:loop_while_true} with selecting match  
            set loop_while_true to false  
            if found of find_h3 then  
                set my_h3 to found text of find_h3  
                replace my_h3 using (" " & my_h3 & "</h3>\\n") options {starting at top:true, returning results:true, wrap around:true}  
            else  
                exit repeat  
            end if  
        end repeat  
    end tell  
end tell  
-- this will clean up the extra space introduced during the loop sequence.  
tell text 1 of text document 1  
    replace " <h3>" using "<h3>" options {search mode:grep, starting at top:true, returning results:true, wrap around:true}  
end tell