TCL学习之字符串2

这篇文章主要讲的是TCL中字符串的修改函数，主要包括小写转大写，大写转小写，以及字符串中字符删除函数，另外还会讲到format函数。

1.string tolower string1:将string1转换成小写字母

2.string toupper string1:将string1转换成大写字母

3.string trim string1？trimchars?:去掉string1前后的trimchars字符，如果不指定，缺省为空格，trimleft 和trimright一样的情况。

4.string trimleft string1?trimchars?:去掉string1左边的trimchars字符

5.string trimright string1?trimchars?:去掉string1右边的trimchars字符

示例如下：

set upper "THIS IS A STRING IN UPPER CASE LETTERS"
set lower "this is a string in lower case letters"
set trailer "this string has trailing dots..."
set leader "...this string has leading dots"
set both "((this string is nested in parens)))"

puts "tolower converts this:$upper\n"
puts "to this:[string tolower $upper]\n"
puts "toupper converts this:$lower\n"
puts "to this:[string toupper $lower]\n"
puts "trimright converts this:$trailer\n"
puts "to this:[string trimright $trailer .]\n"
puts "trimleft converts this:$leader\n"
puts "to this:[string trimleft $leader .]\n"
puts "trim converts this:$both\n"
puts "to this:[string trim $both ()]\n" 

运行结果如图所示：

2.format 函数

格式：format formatstring?arg1 arg2 ...argn?

格式串列表

序号	格式	描述
1	s	字符串
2	d	十进制数字
3	x	十六进制整数
4	o	八进制整数
5	f	浮点数
6	-	右对齐
7	+	右对齐不指定-或+，缺省是右对齐

示例如下:

set labels [format "%-20s%+10s" "Item" "Cost"]
set price1 [format "%-20s%10d Cents Each" "Tomatoes" "30"]
set price2 [format "%-20s%10d Cents Each" "peppers" "20"]
set price3 [format "%-20s%10d Cents Each" "Onions" "10"]
set price4 [format "%-20s%10.2f per lib" "steak" "3.59997"]
puts "\n example of format:\n"
puts "$labels"
puts "$price1"
puts "$price2"
puts "$price3"
puts "$price4"

运行结如下：

以上就是关于字符串的修改函数。