home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1991 / 18 / rmvspc.doc < prev    next >
Text File  |  1991-10-01  |  2KB  |  42 lines
  1.  
  2.         «Set echo="off"»
  3. «COMMENT Get default setting in Options,»
  4. «COMMENT show all non-printing symbols:»
  5.         <Esc>o<Tab 3>«Set SHOW=Mid(Field,1,1)»a<Enter> 
  6. «COMMENT Mark cursor position w/bookmark:»
  7.         <Esc>fkHERE<Enter>
  8.         «Set LOG=1»
  9. «COMMENT Go to top of doc and search for spaces:»
  10.         <Ctrl PgUp><Esc>s?<Space 2><Tab>d<Enter>
  11. «COMMENT If punctuation exists 2 spaces»
  12. «COMMENT to left of cursor, search not»
  13. «COMMENT successful (so search again):»
  14.         «While found»
  15.                «If Mid(Selection,1,1)="."»«Set LOG=0»«EndIf»
  16.                «If Mid(Selection,1,1)=":"»«Set LOG=0»«EndIf»
  17.                «If Mid(Selection,1,1)="!"»«Set LOG=0»«EndIf»
  18.                «If Mid(Selection,1,1)="?"»«Set LOG=0»«EndIf»
  19.                «If LOG=1» 
  20. «COMMENT Move cursor to extra space:»
  21.                        <Right><Left 2> 
  22. «COMMENT Press enter to delete space»
  23. «COMMENT or any other character + enter» 
  24. «COMMENT to skip this occurrence:»
  25.                        «ASK OK=? ┘ Delete space, X+┘ to skip»
  26.  
  27.        «COMMENT Reposition cursor in case» 
  28. «COMMENT there is more than 1 extra space:»
  29.                        «If OK=""»<Del><Left 2>«EndIf»
  30.                «EndIf» 
  31. «COMMENT Reset search parameters and start over:»
  32.                «Set LOG=1»
  33.                <Shift F4>
  34.         «EndWhile» 
  35. «COMMENT Return to & delete bookmark,»
  36. «COMMENT reset screen:»
  37.         <Esc>jkHERE<Enter>
  38.         <Esc>fk<Del><Enter>y
  39.         <Esc>o<Tab 3>«SHOW»<Enter>
  40.  
  41.  
  42.