write/append to text file

 

Compatibilities:

This item has not yet been rated

Writes and appends to a specified text file.

property mFile global mTextFile property mTextField global mDirectory property textFieldsList property defaultTextField on beginSprite me   textFieldsList = []   maxCastLib = the number of castLibs   repeat with theCastLib = 1 to maxCastLib     maxMember = the number of members of castLib theCastLib     repeat with memNumber = 1 to maxMember       set ooMember = member(memNumber, theCastLib)       if ooMember.type = #field then         if ooMember.name = EMPTY then           textFieldsList.append(ooMember)         else           textFieldsList.append(ooMember.name)         end if       end if     end repeat   end repeat   return textFieldsList   defaultTextField = textFieldsList[1] end beginSprite on mouseUp   if objectP(mFile) then set mFile = 0   set theFile = the text of field mTextField     set mFile = new(xtra "fileio")         if the moviePath = "" then     alert "did you brush your teeth ??"   else     createFile( mFile, mDirectory&mTextFile&".txt")         openFile(mFile, mDirectory&mTextFile&".txt",0)       setPosition(mFile,getLength(mFile))       writeString(mFile, theFile)             alert "Status: "&error(mFile,status(mFile))       end if   closeFile (mFile)     set mFile = 0 end on getPropertyDescriptionList   set description = [:]      addProp description, #mTextField, [#range  : textFieldsList, #format : #field, #comment: "Enter Text Field:", #default: defaultTextField]     addProp description, #mDirectory, [#default: the moviePath, #format : #string, #comment: "Directory Path:"]     addProp description, #mTextFile, [#default: "boohaha", #format : #string, #comment: "Name of Text File (.txt will be added):"]     return description end getPropertyDescriptionList