正则表达式 – 如何在Tcl中将小写更改为大写？

发布时间：2020-12-14 06:01:53 所属栏目：百科来源：网络整理

导读：我正在尝试使用字符类将所有小写字母重新编译为大写： regsub -all { [:lower:] } $f { [:upper:] } f 但它不做替代. 解决方法只需将文件读入字符串并使用 string toupper.然后将其写回文件. set fp [open "somefile" r]set file_data [read $fp]close $fps

我正在尝试使用字符类将所有小写字母重新编译为大写：

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

但它不做替代.

解决方法

只需将文件读入字符串并使用 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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!