TCL(Tool Command Language)学习笔记4-String

set string_1 "This is my string."puts "\$string_1 = \"$string_1\"";#使用string length获取字符串长度set length_string_1 [string length $string_1]puts "Length of \$string_1= $length_string_1 ";#使用string index 获取指定下标的字符set chr_string_1_index_0 [string index $string_1 0]puts "\$string_1\[0\]=\'$chr_string_1_index_0\'";#使用string range获取一个子串set substring_string_1_5_10 [string range $string_1 5 10]puts "\$string_1\[5~10\]=\"$substring_string_1_5_10\"";#使用string frist查找子串在串中首次出现的位置set substring_string_1_first_s_end [string range $string_1 [string first "s" $string_1] [expr $length_string_1 - 1]]puts "From the first \'s\' till the end is \"$substring_string_1_first_s_end\"";#使用string last查找子串在串中末次出现的位置set substring_string_1_last_s_end [string range $string_1 [string last "s" $string_1] [expr $length_string_1 - 1]]puts "From the last \'s\' till the end is \"$substring_string_1_last_s_end\"";#画分割线puts .....................................................;#简单应用 根据给定路径判断OS类型并对路径进行解析set string_2 "C:\\Documents and Settings\\Administrator\\My Documents\\Tcl"set string_2 "/home/Traveler/work/cpp/"set first_character [string index $string_2 0]if {$first_character >={C} && $first_character <={Z}} {puts "This machine is working on windows OS."set tree_string_2 [split $string_2 "\\"]} elseif {$first_character=={/}} {puts "This machine is working on Unix OS."set trim_slash_from_each_side [string trim $string_2 '/']set tree_string_2 [split $trim_slash_from_each_side "/"]set string_2 [string trimright $string_2 '/']}foreach item_teee_string_2 $tree_string_2 {puts $item_teee_string_2}set upper_string_2 [string toupper $string_2]set lower_string_2 [string tolower $string_2]puts $upper_string_2puts $lower_string_2