Test AppleScript | Motions-Media

--example 1
set theFile to (choose file with prompt "Select a file to read:" of type {"TEXT"})
open for access theFile
set fileContents to (read theFile)
close access theFile

--example 2
on readFile( unixPath )
  set foo to (open for access (POSIX file unixPath ))
  set txt to (read foo for (get eof foo))
  close access foo
  return txt
end readFile

--example 3 UTF-16
on readFile( unixPath )
  set foo to (open for access (POSIX file unixPath ))
  set txt to (read foo for (get eof foo) as Unicode text)
  close access foo
  return txt
end readFile

--example 4 UTF-8
on readFile( unixPath )
  set foo to (open for access (POSIX file unixPath ))
  set txt to (read foo for (get eof foo) as Â«class utf8Â»)
  close access foo
  return txt
end readFile

--example 5 with terminal
on readFile( unixPath )
  return (do shell script "cat '" & unixPath & "'")
end

--example 1

set theFile to (choose file with prompt "Select a file to read:" of type {"TEXT"})

open for access theFile

set fileContents to (read theFile)

close access theFile

--example 2

on readFile( unixPath )

set foo to (open for access (POSIX file unixPath ))

set txt to (read foo for (get eof foo))

close access foo

return txt

end readFile

--example 3 UTF-16

on readFile( unixPath )

set foo to (open for access (POSIX file unixPath ))

set txt to (read foo for (get eof foo) as Unicode text)

close access foo

return txt

end readFile

--example 4 UTF-8

on readFile( unixPath )

set foo to (open for access (POSIX file unixPath ))

set txt to (read foo for (get eof foo) as Â«class utf8Â»)

close access foo

return txt

end readFile

--example 5 with terminal

on readFile( unixPath )

return (do shell script "cat '" & unixPath & "'")

end

M	D	M	D	F	S	S
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30
31

Web, Coding, Mac, Snippets, a Blog and more…