tk组件用于编辑显示一行或者多行文本
text .text -relief raised -bd 2 \
-yscrollcommand {.scroll set}
scrollbar .scroll -command {.text yview}
grid .text -row 0 -column 0 -sticky nsew
grid .scroll -row 0 -column 0 -sticky nsew
proc loadFile {file} {
.text delete 1.0 end
set f [open $file]
.text insert end [read $f]
close $f
}
###
loadFile {g:\HyperWorks_Experment\About_Bar\bar_force.out}
text中文本索引使用n.m格式,其中n表示行号,m表示列好,需要注意的是: text中行号的索引从1开始,而列号的索引从0开始。
文章最终的索引可使用end字符。例如:5.end:代表改行最终的换行符
可以使用mask命名在文章添加位置标记,例如:
.text mark frist 2.3
在第二行第三列的位置,创建一个名为frist的标记记号。
text中两个特殊记号:insert,current
索引可以接受复杂格式:例如:
.text delete insert "insert + 2 chars"
文本组件支持search子命令与replace子命令,search命令通过检索整篇文章寻找完全匹配的字符串或者与正则表达式模式匹配的字符串,该命名可以返回给定起始点之后的下一个匹配对象,或者返回所有匹配位置,replace将删除与插入的命令组合成单个命令。
下面代码使用标记与一般索引功能实现搜索功能:
proc forAllMatches {w pattarn script} {
set countList [list]
set startList [$w search -all -regexp \
-count countList $pattarn 1.0 end]
foreach frist $startList count $countList {
$w mark set frist $frist
$w mark set last [$w index "$frist + $count chars"]
}
}
查看在TK组件中所有行数可以使用如下命令:
$win count -lines 1.0 end