home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d6xx / d645 / dmd.lha / DMD / REXX / ListWords.dme < prev    next >
Text File  |  1992-04-26  |  915b  |  38 lines
  1. /* ListWords.dme © 1992 Fergus Duniho */
  2.  
  3. Arg FILE WORDFREQ
  4. 'title `Collecting Words ...'
  5. Call Open 'Old', FILE, 'R'
  6. Call Open 'New', 'T:B1', 'W'
  7. NA = XRange('', '&') || XRange('(', '@') || XRange('{', '¿') || "[\]^_`÷"
  8. Num. = 0
  9. LINE = Upper(Translate(Readln('Old'),,NA))
  10. Do Until EOF('Old')
  11.     Do X=1 to Words(LINE)
  12.         W = Strip(Word(LINE, X),,"'")
  13.         If Right(W,2) = "'S" Then W = Left(W, Length(W)-2)
  14.         If Length(W)>1 Then Do
  15.             If Num.W = 0 Then Call Writeln 'New', W
  16.             Num.W = Num.W+1
  17.         End
  18.     End
  19.     LINE = Upper(Translate(Readln('Old'),,NA))
  20. End
  21. Call Close 'Old'
  22. Call Close 'New'
  23.  
  24. 'title `Sorting Words ...'
  25. C = 'C:Sort T:B1 to' FILE
  26. Address Command C
  27.  
  28. If WORDFREQ=1 Then Do
  29.     Call Open 'Old', 'T:TEXT', 'R'
  30.     Call Open 'New', 'T:B1', 'W'
  31.  
  32.     W = Readln('Old')
  33.     Do Until EOF('Old')
  34.         Call Writeln 'New', W NUM.W
  35.         W = Readln('Old')
  36.     End
  37. End
  38.