如何在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是大寫的。

注意：這僅僅選擇特定的文本是大寫或小寫

感謝時，