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

Re: [Clip] Enumeration

Expand Messages
  • Don - HtmlFixIt.com
    ... ; a rework of ... order from ; http://www.notetab.net/zip/nnnlines.zip ; whacked at by don at htmlfixit.com ^!Jump Doc_Start ^!Set %Line%=^$GetRow$
    Message 1 of 4 , Oct 6, 2006
      hsavage wrote:
      > Karin Andersson wrote:
      > > Hello,
      > >
      > > A have a text document. Every line in that document contains the same:
      > >
      > > My_text
      > > My_text
      > > My_text...
      > >
      > > A want to change that to:
      > >
      > > My_text001
      > > My_text002
      > > My_text003
      > >
      > > and so on.
      > >
      > > Can I do that with a clip?
      > >
      > > Best regards,
      > > Karin


      ; a rework of ... order from
      ; http://www.notetab.net/zip/nnnlines.zip
      ; whacked at by don at htmlfixit.com
      ^!Jump Doc_Start
      ^!Set %Line%=^$GetRow$
      ^!SetHintInfo Numbering...

      ; check number of lines and get length of max number
      :Line
      ^!SetWordWrap Off
      ^!Set %format%="^$GetLineCount$"
      ^!Set %formatsize%="^$StrSize("^%format%")$"


      :Loop
      ^!Jump Line_End
      ; set padding of zero's
      ^!Set %length%="^$Calc(^%formatsize%-^$StrSize("^$GetRow$")$)$"
      ^!InsertText ^$StrFill(0;^%length%)$^%Line%

      :Top
      ^!If ^$GetRow$ = ^$GetLineCount$ END
      ^!Jump +1
      ^!Inc %Line%
      ^!Goto Loop
    • Karin Andersson
      Many thanks, It works exactly as I wanted. Karin *********** URSPRUNGLIGT BREV ***********
      Message 2 of 4 , Oct 7, 2006
        Many thanks,

        It works exactly as I wanted.

        Karin

        *********** URSPRUNGLIGT BREV ***********

        2006-10-06 klockan 13:16 skrev Don - HtmlFixIt.com:

        >hsavage wrote:
        >> Karin Andersson wrote:
        >> > Hello,
        >> >
        >> > A have a text document. Every line in that document contains the same:
        >> >
        >> > My_text
        >> > My_text
        >> > My_text...
        >> >
        >> > A want to change that to:
        >> >
        >> > My_text001
        >> > My_text002
        >> > My_text003
        >> >
        >> > and so on.
        >> >
        >> > Can I do that with a clip?
        >> >
        >> > Best regards,
        >> > Karin
        >
        >
        >; a rework of ... order from
        >; http://www.notetab.net/zip/nnnlines.zip
        >; whacked at by don at htmlfixit.com
        >^!Jump Doc_Start
        >^!Set %Line%=^$GetRow$
        >^!SetHintInfo Numbering...
        >
        >; check number of lines and get length of max number
        >:Line
        >^!SetWordWrap Off
        >^!Set %format%="^$GetLineCount$"
        >^!Set %formatsize%="^$StrSize("^%format%")$"
        >
        >
        >:Loop
        >^!Jump Line_End
        >; set padding of zero's
        >^!Set %length%="^$Calc(^%formatsize%-^$StrSize("^$GetRow$")$)$"
        >^!InsertText ^$StrFill(0;^%length%)$^%Line%
        >
        >:Top
        >^!If ^$GetRow$ = ^$GetLineCount$ END
        >^!Jump +1
        >^!Inc %Line%
        >^!Goto Loop
        >
        >
        >Fookes Software: http://www.fookes.us, http://www.fookes.com
        >Fookes Software Mailing Lists: http://www.fookes.us/maillist.htm
        >
        >Yahoo! Groups Links
        >
        >
        >
        >
        >
        >
      Your message has been successfully submitted and would be delivered to recipients shortly.