は、私はこのようになりますテキストファイルを持っているのAppleScript

Question

とtxtファイルにループ管理： http://i.stack.imgur.com/AqKzS.png

下のスクリーンショットは、各項目には、この形式になっています。
ID <>テキスト
~~
ID <>テキスト
~~
INTで後で使用するIDを取得したいとします。後で使用する文字列のテキスト。
デリミタ "<>" & "~~"を使用して何度もファイルをループしました。しかし、毎回違うスクリプトエラーで失敗します。

最初に、ファイルには「テキスト」全体に多くの改行が含まれていたため、問題が発生しました。
また、テキストには、Screenshotに示すように、英語の段落に続いてアラビア語の段落が含まれることがあります。
強調表示されたようにIDが{9031}
であるべきであり、テキストは
{N/M06" エルパティオ.......
......
....
であるべきです。 ...
....
アラビア語のテキスト.....}
誰かがこのテキストファイルをループに適切なスクリプトで私を助け、で使用されるそのテキストが続く各IDを取得することができますDataEntryプロセス？

Answer 1

この目的のために、Satimage sax 3.7.0

利点は正規表現でテキストを見つけることです。

その後、あなたは簡単にfind text

set theText to read file "HD:Path:to:text.txt" as «class utf8» -- replace the HFS path with the actual path 
set theResult to {} 
set matches to find text "\\d{1,4}<>.*" in theText with regexp and all occurrences 
repeat with aMatch in matches 
    tell aMatch's matchResult 
     set end of theResult to {text 1 thru 4, text 7 thru -1} 
    end tell 
end repeat 

find textとテキストがレコードを返すフィルタ：

matchLen：試合の長さ
matchPos：試合のオフセット（0は最初の文字であります！）
matchResult：一致する文字列（「使用」パラメータに従ってフォーマットされている可能性あり）

変数theResultでスクリプトの結果はidとtextを含むリストのリストです。 textは<>の後に始まりますが、さらに文字をカットすることがあります。

編集：

正規表現は（または私の正規表現の知識があまりにも悪いです）、このテキストを解析することができないようです。

これは、Scripting Additionのない純粋なAppleScriptバージョンです。

set theText to read file ((path to desktop as text) & "description.txt") as «class utf8» -- replace the HFS path with the actual path 
set {TID, text item delimiters} to {text item delimiters, ("~~" & linefeed)} 
set theMatches to text items of theText 
set text item delimiters to TID 
set theResult to {} 
repeat with aMatch in theMatches 
    if length of aMatch > 1 then 
     tell aMatch 
      set end of theResult to {text 1 thru 4, text 7 thru -1} 
     end tell 
    end if 
end repeat