Scripting Additions Guide

CHAPTER 2
Scripting Addition Commands
80 Using Read/Write Commands
--now add back the rest of the record
write postBuffer to fileRefNum
on error errString number errNum
display dialog errString
end try
end AddRecord
on WriteNewRecord(recordToAdd, fieldDelimiter, recordDelimiter,¬
fileRefNum)
try
set numberOfFields to count of recordToAdd
if recordDelimiter is "" then
set readxTimes to numberOfFields
else
set readxTimes to numberOfFields - 1
end if
repeat with idx from 1 to numberOfFields
if idx ≤ readxTimes then
write item idx of recordToAdd & fieldDelimiter to ¬
fileRefNum
else
(* if file uses a record delimiter, write delimiter
after the last field in the record *)
write item idx of recordToAdd & recordDelimiter to ¬
fileRefNum
end if
end repeat
on error errString number errNum