Hi Slava,
Here is a script which i wrote to save all the scripts to a text file using
fileIO xtra. Better open the text file using Microsoft word to avoid seeing
strange charecters(Carriage Return).
--- movie script
on saveScripts
scriptText = ""
casts = the number of castLibs
repeat with c = 1 to casts
mems = the number of members of castLib c
repeat with m = 1 to mems
if member(m).type = #script then
movieName = "Movie "the movieName & return
memberName = "Member Name " & member(m).name & RETURN
type = "Script Type " & member(m).scriptType & RETURN
script = "Script " & RETURN & member(m).scriptText & RETURN
break = "------------" & RETURN
end if
scritpText = scritpText & movieName & memberName & type & script &
break
end repeat
end repeat
fileObj = new(xtra "fileIO")
fileName = displaySave(fileObj, "Scripts", "script.txt")
createFile(fileObj,filename)
openFile(fileObj,fileName,2)
writeString(fileObj,scritpText)
closeFile(fileObj)
end
regards
---------------------------------
Ramesh CT
Office: 91 80 6665948 Extn:2169
Mobile: 9844117802
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
