Lines Matching refs:string

28   set concat [string map {" " "" "\n" ""} $str]
39   while { [set idx [string first $needle $haystack $start]]>=0 } {
104   set a [string replace $archive $idx [expr $idx+3] 0000]
115   set a [string replace $archive $idx [expr $idx+3] 1234]
127   set a [string replace $archive [expr $idx+8] [expr $idx+9] 00]
142 # set blob [string range $blob 2 end]
143 # set blob [string range $blob 0 end-1]
144 # while {[string length $blob]>0} {
145 #   puts [string range $blob 0 63]
146 #   set blob [string range $blob 64 end]
166 foreach i $L { set a [string replace $a $i [expr $i+7] 16000000] }
173 set blob [blob [string map {0800 0900} $archive2]]
185   set blob [blob [string map [list 504B0506 $sub] $archive2]]
205   set hex [string map {6e6f7461646972 6e6f746164692f} $hex]