Loading ...
Sorry, an error occurred while loading the content.

16648Re: [Clip] Re: Creation of clip

Expand Messages
  • Jeff Scism
    Jun 20, 2007
      You should probably avoid the Keyboard ENTER and other Keyboard
      commands, (They do not work for everyone, it seems) also things move
      along quicker with ^!SetScreenupdate OFF.

      Flo wrote:
      >
      > --- In ntb-clips@yahoogroups.com <mailto:ntb-clips%40yahoogroups.com>,
      > "idisnick" <idisnick@...> wrote:
      > > Hi,...
      > > Also it took a few minutes to do a list of
      > > 24,000, any way to speed it up?
      >
      > Try another one. In a test, it "parsed" 16.000 lines within a few
      > seconds. This will remind some members of an earlier discussion
      > (see "Removing stopwords from word list")...;-)
      >
      > Flo
      >
      > ^!Set %Doc%=^$GetDocIndex$
      > ^!Set %Keywords%=^?[(T=O;F="Textfiles (*.txt)|*.txt")Choose Keyword
      > File:]
      > ^!Open ^%Keywords%
      > ^!Replace "(\r\n){2,}" >> "\r\n" AWRS
      > ^!Replace "\r\n" >> "|" AWRS
      > ^!Replace "\|\Z" >> "" AWRS
      > ^!Select All
      > ^!Set %Search%=^$GetSelection$
      > ^!Close ^%Keywords% Discard
      > ^!SetDocIndex ^%Doc%
      > ^!SetListDelimiter ^%Space%^P
      > ^!Set %linesout%=^$GetDocMatchAll("^.*(^%Search%).*^%Dollar%";0)$^%
      > Space%
      > ^!Menu Edit/Copy All
      > ^!Toolbar Paste New
      > ^!Jump Doc_End
      > ^!IfFalse ^$IsEmpty(^$GetLine$)$ Next Else Skip
      > ^!Keyboard Enter
      > ^!Select All
      > ^!Menu Modify/Lines/Trim Blanks
      > ^!Jump Doc_End
      > ^%linesout%^%NL%
      > ^!Select All
      > ^$StrSort("^$GetSelection$";0;1;1)$
      > ^!Replace "^(.+)\r\n\1 (\r\n)" >> "" AWIRS
      > ^!Replace "^(.+) \r\n" >> "" AWRS
      > ^!Info Finished!
      > ;end of clip
      >
      >
    • Show all 30 messages in this topic