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?

格式串列表
序号格式描述
1s字符串
2d十进制数字
3x十六进制整数
4o八进制整数
5f浮点数
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"
运行结如下:

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


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值