How to generate a random string of a fixed length in cache

Question

Question

Thembelani Mlalazi · Oct 16, 2017

#Beginner #Object Data Model #Caché

Is it possible to generate a random string in cache please advice thank you in advance

Discussion (4)1

Log in or sign up to continue

Dmitry Maslennikov · Oct 16, 2017

It depends on, how long this string should be, and what do you expect to see there.

The simplest way is just generating it with $random.

set string=""
set length=100
for i=1:1:length set string=string_$char($random(26)+97)

0 0

score 1 · Answer 1 · 2017-10-16T06:51:28-04:00

Use ##class(%PopulateUtils).StringMin(minlen,maxlen)

http://docs.intersystems.com/latest/csp/documatic/%25CSP.Documatic.cls?P...

score 4 · Answer 2 · 2017-10-16T07:15:43-04:00

Isn't it easier to use the built function StringMin, especially when its the code does exactly the same thing?

USER>w $length(##class(%PopulateUtils).StringMin(100,100))
100

Source code:

ClassMethod StringMin(
  minlen As %Integer = 1,
  maxlen As %Integer = 1) As %String [ ProcedureBlock = 1 ]
{
 if maxlen '< minlen {
   set len=$$$PRand(maxlen-minlen+1)+minlen,
       string=""
   for i=1:1:len {
     Set charn=$s($$$PRand(2):$$$PRand(26)+65,1:$$$PRand(26)+97),
         string=string_$s(charn<123:$c(charn),1:" ")
   }
   quit string
 } else { quit "" }
}

score 0 · Answer 3 · 2023-11-17T13:37:31-05:00

To many time later, anyway for keep reference

Set string = ""
Set length = 256
For i=1:1:length {
    Set Up = $random(2)
    Set tNum = $random(28)
    If (tNum = 26) {
        Set tChar = "-"
    }elseif (tNum = 27) {
        Set tChar = "_"
    } Else {
        If Up {
            // Upper case range
            Set tChar = $CHAR(tNum+65)
        } Else {
            // Lower case range
            Set tChar = $CHAR(tNum+97)
        }
    }
    Set string = string _ tChar
}ObjectScript
ObjectScript