Write a file

 

Compatibilities:

This item has not yet been rated

Attach this script to write a text file on your system.

global myFile, myName property pContent, pPath, pName, pAttach on writeFile   if objectP(myFile) then set myFile = 0   set theFile = pContent   set myFile = new (xtra "fileio")   set moviepath = myName   set myName = pPath   if the moviepath = "" then     alert "No way"   else     createFile (myFile, myName&pName&".txt")     openFile (myFile, myName&pName&".txt", 0)     writeString (myFile, theFile)   end if   closeFile(myFile)   set myFile = 0 end on EnterFrame me   if pAttach = "On EnterFrame" then     writeFile   end if end EnterFrame on ExitFrame me   if pAttach = "On ExitFrame" then     writeFile   end if end ExitFrame on MouseUp   if pAttach = "On MouseUp" then     writeFile   end if end MouseUp on MouseDown   if pAttach = "On MouseDown" then     writeFile   end if end MouseDown on getPropertyDescriptionList me   set description = [:]   addProp description, #pContent, [#default: "A-Ha", #format: #string, #comment: "Type the Content:"]   addProp description, #pPath, [#default: "C:windowsdesktop", #format: #string, #comment: "Type the path:"]   addProp description, #pName, [#default: "Default", #format: #string, #comment: "Type the file name:"]   if the currentspritenum = 0 then     addProp description, #pAttach, [#comment: "Options to attach:" ,#format:#String, #range:["On EnterFrame","On ExitFrame"],#default:"On EnterFrame"]   else     addProp description, #pAttach, [#comment: "Options to attach:" ,#format:#String, #range:["On MouseUp","On MouseDown"],#default:"On MouseUp"]   end if   return description end getPropertyDescriptionList