string editing

[wiz(andrew)]

hello
i need few proc/command that match mirc's commands $mid

Code: Select all

  $mid(text,S,N) 
  Returns N characters starting at position S in text. 
  
  $mid(othello,3,4)  returns hell 
  
  If N is zero, it returns the number of characters from S to the end of the line. 
  
  You may also use negative numbers for S or N. 

what i am trying to is to take out lets say the secound char from a string etc..

string "abc 123 qwe"
then to take the 2chr "b" or the 5 till the 8 "123 "

Thx For the help

[krimson]

http://www.tcl.tk/man/tcl8.4/TclCmd/string.htm#M40

[r0t3n]

Try:

Code: Select all

proc mid {text s {n ""}} {
  if {[info exists n]} { 
    return "[string range $text [expr $s - 1] [expr $n - 1]]"
  } else { 
    return "[string length [string range $text [expr $s - 1] end]]"
  }
}

Not tested.

[wiz(andrew)]

Thx for the help!!!
(i dont belive i missed the string section in)


http://www.tcl.tk/man/tcl8.4/TclCmd/string.htm#M40
thx again