TCL格式化困境

Question

# My first application for reals! 
set drink {{"Kiwi Juice"} {"Apple Juice"} {"Pumpkin Juice"} {"Soda"}} 
set price {{1.50} {0.50} {2.00} {1.25}} 
foreach c $drink b $price { 
    set price1 [format "%-10s %+20s " "Drink" "Price"] 

    set price2 [format "%-5s %+10d Dollars " $c $b] 

    puts $price1 
    puts $price2 
} 

它不會運行。顯然它總是停在$c $b部分，但我確信我做得對！

Answer 1

的%d替代在format，其中%+10d是一個專業化，僅適用於整數。 1.50不是一個整數，它是一個浮點數（當然是一個字符串）。你可能想%f替代，特別是%+10.2f（小數點後2位，總寬度10，帶符號）：

set drink {{"Kiwi Juice"} {"Apple Juice"} {"Pumpkin Juice"} {"Soda"}} 
set price {{1.50} {0.50} {2.00} {1.25}} 
foreach c $drink b $price { 
    set price1 [format "%-15s %+10s " "Drink" "Price"] 
    set price2 [format "%-15s %+10.2f Dollars " $c $b] 

    puts $price1 
    puts $price2 
}