home *** CD-ROM | disk | FTP | other *** search
/ FCE Gold Plus / GOLD.iso / pc / xml / Language_Quiz.xom < prev    next >
Text File  |  2007-10-11  |  2KB  |  36 lines
  1. global stream outfile
  2. global stream flag 
  3.  
  4. process
  5. set flag to "yes"
  6. open outfile as file "LangQuiz.xml"
  7. submit file "Copy of Mod01-Activ7.xml"
  8. submit file "Copy of Mod02-Activ7.xml" 
  9. submit file "Copy of Mod03-Activ7.xml" 
  10. submit file "Copy of Mod04-Activ7.xml" 
  11. submit file "Copy of Mod05-Activ7.xml" 
  12. submit file "Copy of Mod06-Activ7.xml" 
  13. submit file "Copy of Mod07-Activ7.xml" 
  14. submit file "Copy of Mod08-Activ7.xml"
  15. submit file "Copy of Mod09-Activ7.xml" 
  16. submit file "Copy of Mod10-Activ7.xml" 
  17. submit file "Copy of Mod11-Activ7.xml" 
  18. submit file "Copy of Mod12-Activ7.xml" 
  19. submit file "Copy of Mod13-Activ7.xml"
  20. put outfile "</Content></AuctionMultipleChoice><Feedback playallOn=%"1%" showAnswersOn=%"1%" animatedFeedbackOn=%"1%" testModeOn=%"0%" instantFeedbackOn=%"0%"><Sounds /></Feedback><GenericActivity hintsNextTo=%"0%" timerIsOn=%"0%" CDPrefsFolder=%"preferences/%" CDPrefsFile=%"cd1.xml%"><ActivityCanvas graphicAlpha=%"100%" folder=%"%" file=%"%" colourAlpha=%"100%" colour=%"transparent%" /><SoundLibrary y=%"10%" x=%"10%" isOn=%"0%" /><VideoLibrary h=%"252%" w=%"385%" y=%"78%" x=%"10%" isOn=%"0%" /><Assets /></GenericActivity></Activity></Entry></CD-RAT>"
  21.  
  22. find ("<CD-RAT>" ((lookahead not "<Content>")any)* "<Content>")=temp1
  23.  do when flag="yes"
  24.   put outfile temp1
  25.   set flag to "NO"
  26.  done
  27.  
  28. find ("<Question>" ((lookahead not "</Content>")any)*)=>temp1 "</Content>"
  29.  put outfile temp1
  30.  
  31. find any     
  32.  
  33. find any=>temp1
  34.  put outfile temp1 
  35.  
  36.