Applescript：スパンタグ内の文字をカットして貼り付けます

Question

私は、ワードドキュメントをTextWranglerのhtmlファイルに変換する作業を自動化しています。私はスパンタグ内の記事の最初の文字を移動することを含む最終ステップを除いて、すべてをソートしています（Bossのデザイン選択、そしてウェブサイトはインラインでないCSSをサポートしていません。 -文字）。

とにかく、HTMLは次のようになります。

<p style='color: #444; font-size: 1.4em; line-height: 1.8em; font-weight: bold;'> 
<img style='display: block; float: right; margin-bottom: 30px; margin-left: 15px; width: 475px;' src='*****.jpg' alt='' width='950' height='713' /> 
<span style='color: #444; float: left; font-size: 3em;'></span> 
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Integer at rhoncus velit. Sed velit libero, venenatis non ornare ac, egestas vitae quam.</p> 

アイデアはちょうどspanタグの内側に閉じspanタグを以下の最初の文字を移動するだろうが、私は周りを見回したとそうでないましたどこから始めるのかは本当に分かります。

編集：これは、行の中の必要な文字の前の文字の数が変わらないという点で、より簡単に知ることができます。だから、行のn番目の文字を分離してそこから行く方法を見つけるのだろうか？

Answer 1

これは愚かな例であり、あなたはそれを少し研磨することをお勧めします：

set htmlText to "... your HTML ..." 

set endSpanLength to 7 
set endSpanPos to offset of "</span>" in htmlText 
set firstCharPos to (endSpanPos + endSpanLength + 1) 
set firstChar to character firstCharPos of htmlText 

set oldEndSpan to "</span>" & linefeed & firstChar 
set newEndSpan to firstChar & "</span>" & linefeed 

findAndReplaceInText(htmlText, oldEndSpan, newEndSpan) 

on findAndReplaceInText(theText, theSearchString, theReplacementString) 
    set AppleScript's text item delimiters to theSearchString 
    set theTextItems to every text item of theText 
    set AppleScript's text item delimiters to theReplacementString 
    set theText to theTextItems as string 
    set AppleScript's text item delimiters to "" 
    return theText 
end findAndReplaceInText