下記はファイルを選択し読み込んだ内容を変数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
コメントする