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

Re: [NTS] Drop-down list, slightly revised

Expand Messages
  • hsavage
    ... Hi Alec - Don, Larry, Thanks for comment, I need to repost that clip so you ll see it again. I do have a clip that formats and de-formats, I ll post it if
    Message 1 of 10 , Sep 23, 2002
    • 0 Attachment
      > Alec Burgess wrote:
      >
      > Harvey:
      >
      > I like this way of distributing your clips:
      > ie. reformatter, clip-block followed by readable-clip.
      >
      > makes it easy to store something that's potentially useable in an
      > OE-folder for checking or use later ... seems more straightforward than
      > the CRC method.
      >
      > Regards ... Alec

      Hi Alec - Don, Larry,

      Thanks for comment, I need to repost that clip so you'll see it again.

      I do have a clip that formats and de-formats, I'll post it if any one
      would like to check it out.

      I realized that, if the text file I was working on wasn't the rightmost
      tab then it wouldn't be the file in focus after run the clip.

      I made a couple more additions and changes and, I hate to say fin shied
      clip but, finished for now.

      hrs


      H="ECW_RESTORE"
      ; ***IMPORTANT***
      ; SIMPLEST METHOD
      ;
      ; Copy BOTH These
      ; CLIPS To a BLANK DOC.
      ;
      ; "CUT" this FIRST CLIP to the CLIPBOARD,
      ; ADD/PASTE it INTO any CLIPBOOK,
      ; RETAIN CLIP for POSSIBLE FUTURE USE.
      ;
      ; RUN THIS CLIP on the REMAINING
      ; TEXT to DE-FORMAT IT!;
      ;
      ; THEN, PASTE EXPANDED CLIP into any CLIPBOOK;
      ;
      ^!Clearvariables
      ^!SetWordwrap 0
      ^!SetScreenUpdate 0
      ^!Replace "^p" >> "" TIWHSA
      ^!Replace "ºtº" >> "^t" TIWHSA
      ^!Replace "ºsº" >> " " TIWHSA
      ^!Replace "ºrº" >> "^p" TIWHSA
      ^!Replace "º^º" >> "^" TIWHSA
      :END_RESTORE


      H="ClipBarClips"ºrº;_Modified~Updated~Created
      _9/23/02_11:53:44a_hsavage@...ºrºº^º!Cl
      earVariablesºrºº^º!Setºsº%idx%=º^º$GetDocInde
      x(º^º##)$ºrºº^º!SetScreenUpdateºsº0ºrºº^º!Men
      uºsºFile/Newºrºº^º!SetWordWrapºsº0ºrºº^º!SetD
      elimiterºsº,ºrºº^º!SetWizardTitleºsºººººººººº
      ººººsºº^º$GetClipbarName$ºsºclipsºsºººººººººº
      ººººrºº^º!SetCodeºsº%list%=º^º$GetFileText(º^
      º$GetLibraryPath$º^º$GetClipbarName$.ctb)$ºrº
      º^º!SetCodeºsº%list%=º^º$StrTrim(º^º$StrRepla
      ce(""";"";º^º%list%;0;0)$)$ºrºº^º!InsertCodeº
      sºº^º%list%ºrºº^º!Setºsº%lines%=º^º$GetTextLi
      neCount$ºrºº^º!Setºsº%Index%=0ºrº:LOOPºrºº^º!
      Incºsº%index%ºrºº^º!Ifºsºº^º%index%>º^º%lines
      %ºsºDONEºrºº^º!Jumpºsºº^º%index%ºrºº^º!SetCod
      eºsº%clip1º^º%index%%=º^º$StrLower("º^º$GetFi
      eld(º^º%index%;1)$")$ºrºº^º!SetCodeºsº%clip2º
      ^º%index%%=º^º$StrUpper("º^º$GetField(º^º%ind
      ex%;2)$")$ºrºº^º!SetCodeºsº%strlen%=º^º$StrFi
      ll(·;º^º$Calc(17-º^º$StrSize("º^º%clip1º^º%in
      dex%%")$)$)$ºrºº^º!Appendºsº%clips%=º^º%clip1
      º^º%index%%:º^º%strlen%º^º%clip2º^º%index%%|º
      rºº^º!GotoºsºLOOPºrº:DONEºrºº^º!CloseºsºDISCA
      RDºrºº^º!SetDocIndexºsºº^º%idx%ºrºº^º!Setºsº%
      clips%=º^º?{(H=32;t=l)CLIPBARºsºCLIPSºsºACCES
      S,ºsºCANCELºsºTOºsºQUIT=º^º%clips%}ºrºº^º!Far
      Clipºsºº^º$StrReplace("·";"";º^º%clips%;0;0)$



      STRAIGHT CLIP TEXT

      H="ClipBarClips"
      ;_Modified~Updated~Created_9/23/02_11:53:44a_hsavage@...
      ^!ClearVariables
      ^!Set %idx%=^$GetDocIndex(^##)$
      ^!SetScreenUpdate 0
      ^!Menu File/New
      ^!SetWordWrap 0
      ^!SetDelimiter ,
      ^!SetWizardTitle ºººººººººººº ^$GetClipbarName$ clips ºººººººººººº
      ^!SetCode %list%=^$GetFileText(^$GetLibraryPath$^$GetClipbarName$.ctb)$
      ^!SetCode %list%=^$StrTrim(^$StrReplace(""";"";^%list%;0;0)$)$
      ^!InsertCode ^%list%
      ^!Set %lines%=^$GetTextLineCount$
      ^!Set %Index%=0
      :LOOP
      ^!Inc %index%
      ^!If ^%index%>^%lines% DONE
      ^!Jump ^%index%
      ^!SetCode %clip1^%index%%=^$StrLower("^$GetField(^%index%;1)$")$
      ^!SetCode %clip2^%index%%=^$StrUpper("^$GetField(^%index%;2)$")$
      ^!SetCode %strlen%=^$StrFill(·;^$Calc(17-^$StrSize("^%clip1^%index%%")$)$)$
      ^!Append %clips%=^%clip1^%index%%:^%strlen%^%clip2^%index%%|
      ^!Goto LOOP
      :DONE
      ^!Close DISCARD
      ^!SetDocIndex ^%idx%
      ^!Set %clips%=^?{(H=32;t=l)CLIPBAR CLIPS ACCESS, CANCEL TO QUIT=^%clips%}
      ^!FarClip ^$StrReplace("·";"";^%clips%;0;0)$
    Your message has been successfully submitted and would be delivered to recipients shortly.