使用分隔符删除Applescript中的HTML标记

时间:2012-04-20 23:11:03

标签: applescript delimiter html

如何使用分隔符从下面的HTML中删除所有这些<br />标记,因为它们只是大型HTML文件的一部分。我还想使用分隔符来删除我的html文件中的其他标记。

<Education :<br />
<br />
- School-leaving exam type B, Zug<br />
- Basic course HSG<br />
- Business economist FH, HWV St. Gallen (1990)<br />
<br />
Professional development :<br />
<br />
- 1984-97 GESTIO Treuhand- und Verwaltungs AG, Zug (part time)<br />
- 1985-86 Financial administration Canton of St. Gallen<br />
- 1991-94 Gestinor Services AG, Zug<br />
- 1994-97 Revisuisse Price Waterhouse AG, Zug, Taxes and Law<br />
- 1997 Founding of Bohnet & Schlatter Treuhand AG<br />
<br />
Experience :<br />
<br />
- Tax consultation of legal and natural persons<br />
- Preparation of tax statements for legal and natural persons<br />
- Preparation of structural plans and execution of organizational processes<br />
- Management and support on responsibilities in finances and accounting.

提前致谢。

1 个答案:

答案 0 :(得分:0)

替换文本是基本的,大多数人都在其库中有一个处理程序,例如

on run -- example
    set theText to "<Education :<br />
<br />
- School-leaving exam type B, Zug<br />..."

    replaceTextInString_fromOldItem_toNewItem_(theText, "<br />", "")
end run


to replaceTextInString_fromOldItem_toNewItem_(someText, oldItem, newItem)
    (*
    replace all occurances of oldItem with newItem
        parameters -    someText [text]: the text containing the item(s) to change
                        oldItem [text]: the item to be replaced
                        newItem [text]: the item to replace with
        returns [text]: the text with the item(s) replaced
    *)
    set {tempTID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, oldItem}
    try
        set {pieces, AppleScript's text item delimiters} to {text items of someText, newItem}
        set {someText, AppleScript's text item delimiters} to {pieces as text, tempTID}
    on error errorMessage number errorNumber -- oops
        set AppleScript's text item delimiters to tempTID -- make sure TID's are reset
        error errorMessage number errorNumber -- pass on error
    end try

    return someText
end replaceTextInString_fromOldItem_toNewItem_

请注意,在Snow Leopard和Lion中,要替换的项目的文本分隔符(我的示例中的oldItem参数)可以是项目列表。