如何在Tcl中将小写更改为大写？

Question

我想regsub使用字符类中的所有小写字母为大写的文件：

regsub -all { [:lower:] } $f { [:upper:] } f 

，但它不会做替代。

Answer 1

只是文件读入到一个字符串，并使用string toupper。然后将其写回文件。

set fp [open "somefile" r] 
set file_data [read $fp] 
close $fp 

set file_data [string toupper $file_data] 

set fp [open "somefile" "w"] 
puts -nonewline $fp $file_data 
close $fp 

Answer 2

是，上面会像魅力。

set f [string toupper $f] 

˚F是一些列表或字符串。如果你想要文件操作，像往常一样从文件中读取并写入。

但如果你只是想用regsub，试试这个

set f "this is a line" 

regsub -all {.*} $f {[string toupper {&}]} f 

set f [subst -nobackslashes -novariables $f] 

现在您的内容˚F是大写的。

注意：这仅仅选择特定的文本是大写或小写

感谢时，