Export Text for proofing

 

Compatibilities:

This item has not yet been rated

This is a quick one I wrote a couple of years ago to export all my text members for the proof-reader.

--Copyright 1999 Chuck Neal --chuck@mediamacros.com --If you find this code helpful, send me an e-mail and let me know.  :-) on makeFileFromTexta whichFile, whatLib     set myFile = new(xtra "fileio")     if fileExists(whichFile) <> 0 then     createFile(myFile, whichFile)   end if     openFile(myFile, whichFile, 0)   repeat with x = 1 to the number of members of castLib whatLib     if the type of member (member x of castlib whatLib) = #richText then       set whatText = the text of member x of castlib whatLib       setPosition(myfile,getLength(myFile))       set tCRLF  = numToChar(13) & numToChar(10)       writeString(myFile, whatText & tCRLF & tCRLF)       end if   end repeat   closeFile(myFile)                       set myFile = 0                         end