Scrambling a word/line (please help)

[FreakyComputer]

Okay, this is the part I am stuck with: i have a word ie. guranga in $ogaword but now i want my script to scramble, thus making that word ie. gaanrug using ALL the letters in the $ogaword and scrambling it... If anyone can just give that little snippet of code

Thanks
FreakyComputer

[slennox]

This is adapted from my proc for randomising lists rather than strings, so it may not be the most efficient solution, but it works:

Code: Select all

proc randstring {string} {
  set randstring ""
  while {[string length $string] > 0} {
    set random [rand [string length $string]]
    append randstring [string index $string $random]
    set string [string range $string 0 [expr {$random - 1}]][string range $string [expr {$random + 1}] end]
  }
  return $randstring
}

randstring <string>

[FreakyComputer]

Thanks you slennox That piece of code is really what my script needed, so now my string is always scrambled! Thank you )

FreakyComputer