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

Re: [NTB] Generate Random Alphanumeric Codes

Expand Messages
  • flo.gehrke
    ... Don, Inserting line by line makes it rather slow here. It s done in a second when first creating the list in the memory... ^!SetHintInfo Working... ^!Set
    Message 1 of 6 , Aug 21, 2013
    • 0 Attachment
      --- In ntb-clips@yahoogroups.com, Don <don@...> wrote:
      >
      > :Loop
      > ^!InsertText ^$StrRandom(10;A..F0..9)$^P
      > etc.
      >
      > Which would take about 40 seconds to generate 10000 unique codes of
      > 10 characters each. They might also have more elegant solutions
      > that would be faster ...

      Don,

      Inserting line by line makes it rather slow here. It's done in a second when first creating the list in the memory...

      ^!SetHintInfo Working...
      ^!Set %Counter%=10000
      :Loop
      ^!Set %Str%=^$StrRandom(10;A..F0..9)$
      ^!Append %List%=^%Str%^%NL%
      ^!Dec %Counter%
      ^!If ^%Counter% > 0 Loop
      ^%List%
      ^!ClearVariables

      Regards,
      Flo
    • Don
      ... Figured there was a blinding fast way. Nicely done Flo!
      Message 2 of 6 , Aug 21, 2013
      • 0 Attachment
        On 8/21/2013 7:28 PM, flo.gehrke wrote:
        > Inserting line by line makes it rather slow here. It's done in a second when first creating the list in the memory...

        Figured there was a blinding fast way. Nicely done Flo!
      • Adrian Worsfold
        Based on contributions I ve therefore added in flexibility to length, number and presentation: ^!Set %chars%=^?{Character length=001} ^!Set %counter%=^?{How
        Message 3 of 6 , Aug 21, 2013
        • 0 Attachment
          Based on contributions I've therefore added in flexibility to length, number and presentation:

          ^!Set %chars%=^?{Character length=001}
          ^!Set %counter%=^?{How many=10}
          ^!Set %layout%=^?{(T=L;H=2)Presentation:=New line^=^%NL%|Space^= }
          ^!SetHintInfo Working...
          :Loop
          ^!Set %Str%=^$StrRandom(^%chars%;A..F0..9)$
          ^!Append %List%=^%Str%^%layout%
          ^!Dec %Counter%
          ^!If ^%Counter% > 0 Loop
          ^%List%^%NL%
          ^!ClearVariables





          Adrian Worsfold

          http://www.pluralist.co.uk
          http://pluralistspeaks.blogspot.com
          pluralist@...
          22-08-2013
          ----- Received the following content -----
          From: flo.gehrke
          Receiver: ntb-clips
          Time: 2013-08-22, 00:28:47
          Subject: [Clip] Re: [NTB] Generate Random Alphanumeric Codes


          [Non-text portions of this message have been removed]
        • hsavage
          On 8/21/2013 6:28 PM, flo.gehrke wrote: --- In ... second when first creating the list in the memory... ... Florian, Don, I only mention this because Burt
          Message 4 of 6 , Aug 21, 2013
          • 0 Attachment
            On 8/21/2013 6:28 PM, flo.gehrke wrote:> --- In
            ntb-clips@yahoogroups.com, Don <don@...> wrote:
            >>
            >> :Loop
            >> ^!InsertText ^$StrRandom(10;A..F0..9)$^P
            >> etc.
            >>
            >> Which would take about 40 seconds to generate 10000 unique codes of
            >> 10 characters each. They might also have more elegant solutions
            >> that would be faster ...
            >
            > Don,
            >
            > Inserting line by line makes it rather slow here. It's done in a
            second when first creating the list in the memory...
            >
            > ^!SetHintInfo Working...
            > ^!Set %Counter%=10000
            > :Loop
            > ^!Set %Str%=^$StrRandom(10;A..F0..9)$
            > ^!Append %List%=^%Str%^%NL%
            > ^!Dec %Counter%
            > ^!If ^%Counter% > 0 Loop
            > ^%List%
            > ^!ClearVariables
            >
            > Regards,
            > Flo

            Florian, Don,

            I only mention this because Burt admittedly hasn't done a lot of clipping.

            It's a fine clip and is extermely fast but additional line at the start
            might be useful, neater and furnish a discrete file of only generated
            numbers.

            ^!Menu File/New
            ^!SetHintInfo Working...
            ^!Set %Counter%=10000
            :Loop
            ^!Set %Str%=^$StrRandom(10;A..F0..9)$
            ^!Append %List%=^%Str%^%NL%
            ^!Dec %Counter%
            ^!If ^%Counter% > 0 Loop
            ^%List%
            ^!ClearVariables

            ···············································
            ¤• JD#.234 - ¤• SL.933/@1>4 - 13.08.22~00.01.27

            • Maybe It's True That Life Begins
            • At Fifty, But Everything Else Starts
            • To Wear Out, Fall Out, Or Spread Out.

            • --Phyllis Diller

            € hrs € hsavage € pobox € com
          • John Wallace
            Is there a clip that can backup or copy all the files that are open in NoteTab, like the ones in the quick list to a usb device? I have a lot of files in
            Message 5 of 6 , Aug 25, 2013
            • 0 Attachment
              Is there a clip that can backup or copy all the files that are 'open' in NoteTab, like the ones in the quick list to a usb device?

              I have a lot of files in quick list and all in hundreds of different locations/folders.
              I would like to be able to run a clip and have all of them copied to a usb memory stick.
              (instead of opening each and saving it to the stick)

              Thanks for any help.

              John Wallace
            Your message has been successfully submitted and would be delivered to recipients shortly.