while {$path != ""} {
set char [string index $path 0]
switch $char {
e -
E {
incr x
#puts "e--array($x,$y) = $array($x,$y)"
}
w -
W {
incr x -1
}
00
最新推荐文章于 2024-05-19 21:54:56 发布