tcl/tk text组件命令解析
使用text组件对文件编辑
text命令创建文本组件
text .text -relief raised -bg yellow -yscrollcommand {.scroll set}
scrollbar .scroll -command {.text yview}
grid .text -row 0 -column 0 -sticky news
grid .scroll -row 0 -column 1 -sticky ns
proc loadFile {} {
set file [tk_getOpenFile -initialfile text]
.text delete 1.0 end; # delete content in .text
set f [open $file]; # read $file into $f
.text insert end [read $f]; #
close $f
}
文本索引
文本中的位置说明符称为索引
最简单的形式,一个点分开的两个数组组成,如2.3表示第二行字符索引是3的位置. 行号从1开始编号,一行中的字符从0开始编号.
5.end表示代表第五行终止的换行符
## 删除一行
## 5.0->5.end到删除一行但是不包括换行符,5.end再删除换行符
.text delete 5.0 5.end 5.end
.text delete 5.0 6.0
@x.y形式的索引中的数字x和y指在窗口中最靠近x,y坐标处像素的字符.
对文本中表征位置的字符设定名称,称为设定记号
.text mark set first