home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / text / FAQ / bonus / faq_createguide_byKL.rexx next >
OS/2 REXX Batch file  |  1995-10-10  |  2KB  |  69 lines
  1. /*  ARexx Skript, erzeugt Guide aus FAQ-Liste
  2.     $VER: faq_createguide_byKL.rexx 0.1 (08.10.95)
  3.           ©1995 Khamsonh Marcel Khounlivong
  4.     */
  5.  
  6. PARSE ARG listfile
  7.  
  8. listfile = Strip(listfile)
  9.  
  10. newsgroup = SubStr(listfile,1,LastPos('.files',listfile))'answers'
  11. IF (Pos('/',newsgroup) ~= 0) THEN
  12.     newsgroup = SubStr(newsgroup,LastPos('/',newsgroup)+1)
  13.  
  14. enter = '0a'x
  15.  
  16. if (~Open(infile,listfile,r)) THEN DO
  17.     SAY "Can't open"listfile
  18.     EXIT 20
  19.     END
  20.  
  21. SAY '@database' newsgroup
  22. SAY '@remark $VER: newsgroups-'newsgroup'.guide ('Date()')'
  23. SAY '@remark (c) Meeting Pearls Group'
  24. SAY '@remark Autor: Khamsonh Marcel 'ninji' Khounlivong'enter
  25.  
  26. SAY '@master :Pearls/text/FAQ/newsgroups'newsgroup'.guide'
  27. SAY '@node main'
  28. SAY '@title' newsgroup
  29.  
  30. archive = Word(ReadLn(infile),1)
  31. CALL gettopic
  32.  
  33. DO WHILE (~Eof(infile))
  34.     topic.1 = topic.2
  35.  
  36.     SAY enter'@{b}'topic.1'@{ub}'enter
  37.  
  38.     DO WHILE (topic.2 == topic.1 & ~Eof(infile))
  39.  
  40.         dir.2 = SubStr(archive,1,LastPos('/',archive))
  41.         dir.1 = dir.2
  42.         SAY '    'dir.2
  43.         DO i = 0 WHILE (dir.2 == dir.1 & ~Eof(infile))
  44.             SAY '    @{" 'archive' " system ":C/MetaTool FAQ/'archive' TEXT"}'
  45.             archive = Word(ReadLn(infile),1)
  46.             IF (~Eof(infile)) THEN dir.2 = SubStr(archive,1,LastPos('/',archive))
  47.             END
  48.         CALL gettopic
  49.         END
  50.     END
  51.  
  52. CALL Close(infile)
  53.  
  54. SAY '@endnode'
  55.  
  56. EXIT
  57.  
  58. gettopic:
  59.     DO UNTIL (position ~= 0 | Eof(infile))
  60.         position = Pos('/',archive)
  61.         DO WHILE (position == 0 & ~Eof(infile))
  62.             SAY enter'@{" 'archive' " system ":C/MetaTool FAQ/'archive' TEXT"}'
  63.             archive = Word(ReadLn(infile),1)
  64.             IF ~Eof(infile) THEN position = Pos('/',archive)
  65.             END
  66.         IF ~Eof(infile) THEN topic.2 = SubStr(archive,1,position-1)
  67.         END
  68.     RETURN
  69.