home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / OMAN_174.ZIP / OMANCITY.FIX < prev    next >
Text File  |  1992-01-27  |  1KB  |  54 lines
  1. ;
  2. ;                       The Opus System Manager
  3. ;
  4. ;        Copyright (C) 1990-1992 by Tom Kashuba and Ulf Nilsson
  5. ;
  6. ;     OMANCITY.FIX - C)ity field preening rules for the User Manager
  7. ;
  8. ;--------------------------------------------------------------------------
  9. ;
  10. ;
  11. {SUB} "!#$%^&*()_+`={}|[]\:;'<>?,./"  "@"  ; Replace garbage characters
  12. {SUB} '"@'  ""                             ;
  13.  
  14. {TRIM}            ; Trimming all lead/trailing spaces and any convert
  15.                   ; any embedded embedded multiple spaces to single ones.
  16.  
  17. {0}        "Montreal, Que"
  18.  
  19. "Pq"       "Que"
  20. "Qc"       "Que"
  21. "Quebec"   "Que"
  22. "Mtl"      "Montreal"
  23. "P.Q."     "Que"
  24. "P.Q"      "Que"
  25. "PQ."      "Que"
  26.  
  27. "Saint "   "St-"
  28. "Saint-"   "St-"
  29. "Saint_"   "St-"
  30.  
  31. "Sainte "  "Ste-"
  32. "Sainte-"  "Ste-"
  33. "Sainte_"  "Ste-"
  34.  
  35. "Vls"      "Lasalle"
  36. "Vsl"      "St-Laurent"
  37. "Pat"      "Pt-Trembles"
  38. "Rdp"      "Riv-Prairie"
  39. "DDO"      "Dollard"
  40. "NDG"      "Montreal"
  41. "|Quebec " "Quebec City"
  42.  
  43. "."        " "       ; No periods, replace with space
  44. " "        ", "      ; Always Add comma
  45. ","        ", "      ; Add space after any comma
  46. " ,"       ","       ; Fix spaced out commas
  47. ",,"       ","       ; Remove any multiple commas resulting from above
  48.  
  49. {TRIM}               ; Catch-All trim up
  50. {1}        ", Que"   ; Do this near end in case fix ups created two words
  51. {TRIM}               ; Catch-All trim up
  52. ",|"        ""       ; Remove any trailing commas
  53.  
  54.