egghelp/eggheads community

string editing

2006-09-01T12:18:58-04:00

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

Statistics: Posted by wiz(andrew) — Fri Sep 01, 2006 12:18 pm

string editing

2006-09-01T10:28:09-04:00

Try:

Code:

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.

Statistics: Posted by r0t3n — Fri Sep 01, 2006 10:28 am

string editing

2006-09-01T08:11:42-04:00

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

Statistics: Posted by krimson — Fri Sep 01, 2006 8:11 am

string editing

2006-09-01T08:04:13-04:00

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

Code:

  $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

Statistics: Posted by wiz(andrew) — Fri Sep 01, 2006 8:04 am