-- 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
|