File Read/Write

 

Compatibilities:

This item has not yet been rated

writes to text file

-- mailto: shehal@mediasolv.com -- Refer Macromedia TechNote 03192 --http://www.macromedia.com/support/director/ts/documents/tn3192.html property mFile global mTextFile property mTextField global mDirectory property textFieldsList property defaultTextField property deleteTextFile 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 deleteTextFile = TRUE then deleteFile   writeFile end on writeFile   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 "File Written: "&error(mFile,status(mFile))       end if   closeFile (mFile)     set mFile = 0 end writeFile on deleteFile      if objectP(mFile) then set mFile = 0   set mFile = new(xtra "fileio")   if the moviePath = "" then     alert "did you brush your teeth ??"   else     openFile (mFile, mDirectory&mTextFile&".txt",0)     delete (mFile)     alert "File Deleted: "&error(mFile,status(mFile))   end if   closefile (mfile)   set mFile = 0 end deleteFile 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):"]      addProp description, #deleteTextFile, [#default: TRUE, #format : #boolean, #comment: "Delete Old Text File: (Yes/No):"]      return description end getPropertyDescriptionList

Upload Provided by ABCUpload ASP