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_2
puts $lower_string_2