小编Don*_*ows的帖子

我只想弄清楚如何插入变量的内容,.txt insert end $var并将我插入的内容自动显示在最后一行,而无需手动向下滚动文本.

一个简单的TCL示例:

proc push_button { } {
    global k
    set name [.ent get]
    .txt insert end "$k New Line...$name\n"
}
global k
set k 1
frame .frm -relief groove
label .lab -text "Enter name:"
entry .ent
button .but -text "Insert Line" -command "push_button; incr k"
text .txt -width 20 -height 10
pack .lab -in .frm
pack .ent -in .frm
pack .frm
pack .but
pack .txt

您如何有效地在Tcl中清空列表？

我尝试使用lreplace清空列表，例如：

set lst "a b c d e"  
lreplace $lst 0 [[llength $lst] - 1]  # replace all content in the list with "".

我是 tcl 的初学者。我正在尝试使用 primetime execute 命令，但它不能接受变量。例如：

set var "get_timing_paths -rise_from A -rise_to B"
set path0001 [$var]

但它不起作用。我想做的事情是

set path0001 [get_timing_paths -rise_from A -rise_to B]

但我需要把它分开。

谢谢您的回答。

我是 tcl 新手，我试图获取给定列表中的最大元素我编写了一个打印最大值的函数，但它无法正常工作，这是代码

proc findmax { items } {
  set max 1
  foreach i $items { 
    if { $i > $max } {
      set $max $i
    }
  }
  puts "max is = $max"
}

我这样调用该函数：

findmax $items

这是我通过的列表：

set items { 12 2 5 4 2 6 7 55 8 9 6 4}

但它输出 1 而不是预期的 55

我想使用TCL删除目录中的所有文件.(我在Win 10下使用Xilinx Vivado的TCL控制台.)我在TCL文档中发现了这一点

file delete ?-force? ?- -? pathname ?pathname ... ?

应该管用.但

file delete -force -- [glob *]

什么也没做.这有什么不对？

如何将两个列表组合为键值对？

两个列表中的元素数量相同。我有两个列表如下。

set a "1 2 3"
set b "One two three"

我如何组合如下dict['1':One,'2':two,'3':three]

我试图想出一种干净的方法来ArrayList根据其索引复制一个但一个的所有元素。

在 JavaScript 中，我们可以按值进行过滤，也可以基于索引进行过滤。所以我想要实现的目标看起来像这样：

// nums is []
for(let i = 0; i <nums.length; i++) {
   let copyNums = nums.filter((n, index) => index !== i);
}

到目前为止，在 Java 中我能做的最好的就是这个，它超级长且冗长。更不用说我不能使用i它自己，因为它不是最终的，否则我会得到

lambda 表达式中使用的变量应该是最终变量或有效最终变量

       // nums is ArrayList
       for (int i = 0; i < nums.size(); i++) {
            final int index = i;
            List<Integer> allElementsWithoutCurr = IntStream.range(0, nums.size())
                    .filter(j -> j != index)
                    .mapToObj(j -> nums.get(j))
                    .collect(Collectors.toList());
        }

Java 中肯定有更好的方法来实现这一点吗？

我如何setStatus从内部打电话awakeFromNib？

-(void)awakeFromNib {
    setStatus; // how?
}

/* Function for setting window status */
- (void)setStatus {
    [statusField setStringValue:@"Idle"];
}

#include "stdafx.h"

int _tmain(int argc, _TCHAR* argv[])
{
    string s = "Haven't got an idea why.";
    auto beg =  s.begin();
    auto end = s.end();
    while (beg < end)
    {
        cout << *beg << '\n';
        if (*beg == 'a')
        {//whithout if construct it works perfectly
            beg = s.erase(beg);
        }
        ++beg;
    }
    return 0;
}

为什么如果我从此字符串中删除一个或多个字符,此代码会中断？我认为它与返回迭代器有关,因为擦除操作是在比end迭代器更高的地址创建的,但是我不确定它肯定是不正确的行为.或者是吗？

这是一些硬编码语法.IPAddr是一个int,这是sqlite,将被移植到mysql.

语法不起作用AND V.IPAddr <> 0.可能是因为V是左连接而可能不存在(null？).我怎样才能让它成功V == null || V.IPAddr <> Val？

select Post.id, name, body,
      (select count() from Votes where id=Post.id AND (type & 4)<> 0) as DV
   from Post 
left join Votes as V on V.id=Post.id
   where flag='1'  AND V.IPAddr <> 0 AND DV<1
   limit 1