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

Re: [Clip] Re: [NTB] Generate Random Alphanumeric Codes

Expand Messages
  • 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 1 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 2 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 3 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.