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

[Clip] Re: setting arrays

Expand Messages
  • Jody
    Hi Steve, I wanted to push the new beta to see if I could get an Access Violation when working with many files open, so I had a need to do a Clip like you
    Message 1 of 2 , Nov 27, 1999
      Hi Steve,

      I wanted to push the new beta to see if I could get an Access
      Violation when working with many files open, so I had a need
      to do a Clip like you wanted. I don't know if you need to open
      the files or not, but that is what this does on the Open loop
      below: ^!Open ^%Open^%Index%% I updated the DirStuff Library on
      my site with it which comes with a choice to browse or use a
      pulldown list that is done in the initial Setup.

      <--- Copy below this line --->
      H=AllFilesOpen (Drive)...
      ; 11/27/1999, Sojourner@..., jody
      ; Requires NoteTab version 4.6a
      ; http://www.sureword.com/notetab/zip/dirstuff.zip

      ; long line till blank
      ^!Continue Gets the path and file names of a drive including subfolders and inserts into a new document that is made for you. Continue?

      ^!ClearVariable %List%

      ; long line till blank
      ^!Set %Folder%=^?{(T=D)Browse: full path, end in backslash=}; %Type%=^?{(H=10)File &Types, wildcards OK: *.txt or *.*htm*;*.txt=All Files^=*.*|_Html Only^=*.*htm*|Text Only^=*.txt|Html & Text^=*.*htm*;*.txt|Outline^=*.otl|Clipbook Library^=*.clb|Ini^=*.ini}

      ^!SetHintInfo Working...
      ^!SetScreenUpdate Off

      ^!Set %OutPut%=^$GetDosOutput(Dir /s/b "^%Folder%^%Type%")$
      ^!IfTrue ^$IsEmpty("^%OutPut%")$ Error
      ^!Toolbar New Document
      ^%OutPut%
      ^!Goto MakeList

      :Error
      ^!StatusShow It appears the ^%Folder%^%Type% was not in the folder you searched.
      ^!Delay 30
      ^!StatusClose

      :MakeList
      ^!Jump 1
      :Loop
      ^!Set %File%=^$GetLine$|
      ^!Append %List%=^%File%
      ^!Jump +1
      ^!If ^$GetRow$ = ^$GetLineCount$ Skip
      ^!Goto Loop

      ^!SetListDelimiter |
      ^!SetArray %Open%=^%List%
      ^!Set %Count%=^%Open0%
      ^!Set %Index%=0

      ^!SetHintInfo Opening...
      ^!SetScreenUpdate Off

      :Open
      ^!Inc %Index%
      ^!If ^%Index% => ^%Count% DocCount
      ^!Open ^%Open^%Index%%
      ^!Goto Open

      :DocCount
      ^!StatusShow Opened ^$GetDocCount$ files.
      ^!Delay 15

      <--- Copy above this line, right --->
      <--- click over the Clipbook and --->
      <--- choose "Add from Clipboard" --->

      Nite... I hope. ;)

      Happy Clip'n!
      Jody

      http://www.sureword.com/notetab

      The NoteTab Clip List...
      mailto:Ntb-Clips-Subscribe@...
      mailto:Ntb-Clips-UnSubscribe@...
    Your message has been successfully submitted and would be delivered to recipients shortly.