05) ファイルの読み込み

下記はファイルを選択し読み込んだ内容を変数myStrに入れ表示します。 開いたファイルは必ず閉じるようにしてください。

set myFile to choose file with prompt "ファイルを選択"
open for access myFile--ファイルを開く
set myStr to read myFile--読み込み結果を変数myStrに入れる
close access myFile--ファイルを閉じる
display dialog myStr

上とほとんど同じなのですが as list using delimiter {return}を付けるとtextではなく改行区切りのlistで読み込みます。1行づつ処理したい場合は便利です。

set myFile to choose file with prompt "ファイルを選択"
open for access myFile
set myList to read myFile as list using delimiter {return}
close access myFile
display dialog item 1 of myList

改行コードがcrのShiftJISなら下記1行づつ処理。 set textPath to "Macintosh HD:test.txt" set fobj to open for access alias textPath read fobj set str_data to result close access fobj set OriginalDelimiters to AppleScript's text item delimiters set AppleScript's text item delimiters to {return} set str_data to text items of str_data repeat with L from 1 to count str_data display dialog "#" & item L of str_data & "#" end repeat set AppleScript's text item delimiters to OriginalDelimiters crlfは set AppleScript's text item delimiters to {(ASCII character (13)) & (ASCII character (10))} ifは set AppleScript's text item delimiters to {ASCII character (10)} です。 UTF16なら as Unicode textをつけます。 set textPath to "Macintosh HD:testutf16cr.txt" set fobj to open for access alias textPath read fobj as Unicode text set str_data to result close access fobj