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

Drop-down list, revised

Expand Messages
  • hsavage
    ... libraries to ... Hi Larry, all, That info helped. I became more familiar with the leading underscore issue. For testing I created _default.clb and used
    Message 1 of 1 , Sep 24, 2002
    • 0 Attachment
      > Larry Hamilton wrote:
      >
      > Harvey,
      >
      > I finally found the problem.
      >
      > It is an issue that has come up several times before related to working
      > with libraries and certain characters for the first character in their
      > name.
      >
      > Here is the first line of the clip that does not run:
      >
      > ^!LoadLibrary "_Larry.clb"
      >
      > I use leading underscores to force my active, i.e. not hidden
      libraries to
      > sort the most used ones at the front of the list.
      >
      > I have determined that the last two lines of your clip have the issue,
      >
      > This should help you narrow down where in your clip to best account for
      > leading underscores in Library names.
      >
      > Larry

      Hi Larry, all,

      That info helped.

      I became more familiar with the leading underscore issue.

      For testing I created '_default.clb' and used the following 2 line clip
      as the first clip in the clipbook.

      h="_testunderscore"
      ^!LoadLibrary _tooltips

      There were more than 2 line that needed to be altered.

      In this application it seems libraries must retain the underscore and
      clipnames must eliminate the underscore.

      Here is the latest modified clip. I didn't have any trouble with it,
      give it a try.

      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/24/02_1:59:25a_hsavage@...ºrºº^º!Cle
      arVariablesºrºº^º!Setºsº%idx%=º^º$GetDocIndex
      (º^º##)$ºrºº^º!SetScreenUpdateºsº0ºrºº^º!Menu
      ºsºFile/Newºrºº^º!SetWordWrapºsº0ºrºº^º!SetDe
      limiterºsº,ºrºº^º!SetWizardTitleºsººººººººººº
      ºººsºº^º$GetClipbarName$ºsºclipsºsººººººººººº
      ºººrºº^º!SetCodeºsº%list%=º^º$GetFileText(º^º
      $GetLibraryPath$º^º$GetClipbarName$)$ºrºº^º!S
      etCodeºsº%list%=º^º$StrTrim(º^º$StrReplace(""
      ";"";º^º%list%;0;0)$)$ºrºº^º!InsertCodeºsºº^º
      %list%ºrºº^º!Setºsº%lines%=º^º$GetTextLineCou
      nt$ºrºº^º!Setºsº%Index%=0ºrº:LOOPºrºº^º!Incºs
      º%index%ºrºº^º!Ifºsºº^º%index%>º^º%lines%ºsºD
      ONEºrºº^º!Jumpºsºº^º%index%ºrºº^º!SetCodeºsº%
      clip1º^º%index%%=º^º%space%º^º$StrLower("º^º$
      GetField(º^º%index%;1)$")$ºrºº^º!SetCodeºsº%c
      lip2º^º%index%%=º^º$StrUpper("º^º$GetField(º^
      º%index%;2)$")$ºrºº^º!SetCodeºsº%strlen%=º^º$
      StrFill(·;º^º$Calc(17-º^º$StrSize("º^º%clip1º
      ^º%index%%")$)$)$ºrºº^º!Appendºsº%clips%=º^º%
      clip1º^º%index%%:º^º%strlen%º^º%clip2º^º%inde
      x%%|ºrºº^º!GotoºsºLOOPºrº:DONEºrºº^º!Closeºsº
      DISCARDºrºº^º!SetDocIndexºsºº^º%idx%ºrºº^º!Se
      tºsº%clips%=º^º?{(H=32;T=L)CLIPBARºsºCLIPSºsº
      ACCESS,ºsºCANCELºsºTOºsºQUIT=º^º%clips%}ºrºº^
      º!IfCancelºsºNEXTºrºº^º!Setºsº%clips%=º^º$Str
      DeleteLeft(º^º%clips%;1)$ºrºº^º!Setºsº%clips%
      =º^º$StrReplace("·";"";º^º%clips%;0;0)$ºrºº^º
      !Setºsº%clips%=º^º$StrReplace(":_";":";º^º%cl
      ips%;0;0)$ºrºº^º!FarClipºsºº^º%clips%ºrº:NEXT



      STRAIGHT CLIP TEXT

      H="ClipBarClips"
      ;_Modified~Updated~Created_9/24/02_1:59:25a_hsavage@...
      ^!ClearVariables
      ^!Set %idx%=^$GetDocIndex(^##)$
      ^!SetScreenUpdate 0
      ^!Menu File/New
      ^!SetWordWrap 0
      ^!SetDelimiter ,
      ^!SetWizardTitle ºººººººººººº ^$GetClipbarName$ clips ºººººººººººº
      ^!SetCode %list%=^$GetFileText(^$GetLibraryPath$^$GetClipbarName$)$
      ^!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%%=^%space%^$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%}
      ^!IfCancel NEXT
      ^!Set %clips%=^$StrDeleteLeft(^%clips%;1)$
      ^!Set %clips%=^$StrReplace("·";"";^%clips%;0;0)$
      ^!Set %clips%=^$StrReplace(":_";":";^%clips%;0;0)$
      ^!FarClip ^%clips%
      :NEXT
    Your message has been successfully submitted and would be delivered to recipients shortly.