2017-01-18 7 views
0

私はdemoRoot demoSuite demoCaseやICなどの4つの異なる値を取得することができ、各オブジェクトを使用して$ M_OBJSとして格納された変数にオブジェクトのリストを持っているので、これらのそれぞれは、このようなリストのリストである必要があります:tclに複数のリストのtclリストを作成するには?

set data { 
    {demoRoot1 demoSuite1 demoCase1 ic1} 
    {demoRoot2 demoSuite2 demoCase2 ic2} 
    {demoRoot3 demoSuite3 demoCase3 ic3} 
    {demoRoot4 demoSuite4 demoCase4 ic4} 
    {demoRoot5 demoSuite5 demoCase5 ic5} 
    {demoRoot5 demoSuite5 demoCase5 ic5} 
} 

だから私はこのようにforeachループを使用してみました:私は取得

set tests [list] 

foreach ic $m_ics \ 
{ 
    set icRoot [$ic getRoot] 
    set icSuite [$ic getSuite] 
    set icCase [$ic getCase] 
    set icName [$ic getName] 
    set icList "$icRoot $icSuite $icCase $icName" 
    lappend tests $icList 
} 

出力はこの

puts $icList 
PTSE2 actions misc rmon_counters 

しかしOutpのような唯一の繰り返しのためにあります

set icList "$icRoot $icSuite $icCase $icName" 

へ:

set icList [list $icRoot $icSuite $icCase $icName] 

これはとしてicListを作成します。私は、私はこの1つの

+1

'puts'が一つだけ反復(最後)の値を印刷しています。リストのリストは 'tests'変数に組み込まれています。それを印刷してみてください。ありがとうbrad助ける –

答えて

2

変更にこの行を取得するには助けてくださいset data {...........}

ように述べたように、UTが得られなければなりませんリストではなく、リストとしてリストに追加されます。

参照:list

+0

。 – vinay

関連する問題