更新

Question

我正在使用Tcl / Tk，我想在文件中存储多个变量。我已经储存了一些但只有一个抵抗。你能解释一下为什么吗？以下是我的变量出现的程序，这些程序在三个不同的脚本中，由一个＆＃34; source＆＃34;声明在顶部：

在主脚本中

proc loginCreate { name } {
if {[file exists users/$name] == 1} {
    set answer [tk_dialog .dialog "Username already existing" "This username already exists. Do you want to log in as $name?" \
        question 1 Cancel "Log in"]
    if {$answer == 0} {return} else {
        loginValid $name
        set ::goOn2 1
    }
}
set ::user $name
set ::entryTestScores {"Not Taken" "Not Taken" "Not Taken" "Not Taken" "Not Taken" "Not Taken" "Not Taken" "Not Taken"\
"Not Taken" "Not Taken" "Not Taken"}
set ::testScores {"Not Taken" "Not Taken" "Not Taken" "Not Taken" "Not Taken" "Not Taken" "Not Taken" "Not Taken"\
"Not Taken" "Not Taken" "Not Taken"}
setColor khaki
onSelect 0
set ::genAvg 0
set ::goOn2 1
}

在另一个剧本中

proc readUserFile { name } {
    if {[file exists users/$name] == 0} {return -1}
    set ::user $name
    set fd [open users/$name r]
    set data [split [read $fd] \n]
    close $fd
    set ::entryTestScores [lrange $data 1 $::nbTests] ;# Entry test scores stored from line 1 to line nbTest
    set ::testScores [lrange $data [expr $::nbTests+1] [expr 2*$::nbTests]] ;# Individual test scores stored from line nbTest to line 2*nbTest
    if {[llength $data]>[expr 2*$::nbTests +2] && [lindex $data [expr 2*$::nbTests +2]] != ""} { ;# Colour name stored line 2*nbTest+2
        setColor [lindex $data [expr 2*$::nbTests +2]]
    } elseif {[lindex $data [expr 2*$::nbTests +2]] == ""} {
        setColor khaki
    } else {
        setColor khaki
    }
    onSelect [lsearch $::pages [lindex $data [expr 2*$::nbTests +1]]] ;# Page active to save stored line 2*nbTest+1
    set ::genAvg [lindex $data [expr 2*$::nbTests +3]] ;# General average of individual tests stored line 2*nbTest+3
    return 0
}

在第三个脚本中

proc DisplayResults {} {
    set linetag ""
    .fr.txt configure -state normal
    if {[info exist ::user]} {
        .fr.txt insert end "The best scores of $::user are:\n"
        for {set ind 0} {$ind < $::nbTests} {incr ind} {
            .fr.txt insert end \n
            incr ind
            .fr.txt insert end "\tTest #$ind\t" $linetag
            incr ind -1
            switch [lindex $::testScores $ind] {
                "Not Taken" { .fr.txt insert end "--/10\t\t" $linetag}
                10 { .fr.txt insert end "10/10\t\t" right$linetag}
                default { .fr.txt insert end "[lindex $::testScores $ind]/10\t" $linetag}
            }
        }
        if {[lsearch $::testScores "Not Taken"] == -1} {
            set mean [expr {double(round(100*[getAvg $::testScores]))/100}] ;# return the average rounded to 2 decimals
            set ::genAvg [lreplace $::genAvg 0 0 $mean] 
            .fr.txt insert end "\n\n\tYour general average is:\n\t $mean/10\n\n"
        } else {
            .fr.txt insert end "\n\nWhen you pass all the Individual Tests, your general average will be displayed here\n\n"
        }   
    } else {
        .fr.txt insert end "You are currently running on a generic profile, please log in to remember your high scores."
    }
}

我的变量是＆＃34; genAvg＆＃34;。是唯一不能存储在文件中的变量，其他变量（在列表中）如＆＃34; testScores＆＃34;工作完美。我试着按照＃34; genAvg＆＃34;但我不明白为什么它不起作用。

有关信息，脚本的主要目标是测试学生，将结果存储在文件中，最后比较一般平均值。

更新

通过仔细观察我发现了：

wm protocol . WM_DELETE_WINDOW {
    set ::goOn 1
    if {[info exists user]} {
        set fd [open users/$::user w]
        puts $fd 0
        foreach elt $::entryTestScores { puts $fd $elt }
        foreach elt $::testScores { puts $fd $elt }
        puts $fd [lindex $::pages $::page]
        puts $fd $::bgColor
        close $fd
    }
    exit
}

这＆＃34;写＆＃34;在文件中不是吗？

Answer 1

标题说如何将我的变量存储在文件中？，但查看代码，我怀疑你的意思是读取文件并将内容放入变量 。考虑到这一点，我注意到 off-by-one 错误。在proc readUserFile中，在读取文件并将内容拆分为行列表（data）后，您没有对第一行执行任何操作（在索引0处，因为TCL是零基数 - 索引语言）。您的脚本第一次从data检索内容时是：

    set ::entryTestScores [lrange $data 1 $::nbTests] ;# Entry test scores stored from line 1 to line nbTest

请注意，lrange命令将索引1转换为$::nbTest。这意味着不使用索引0处的数据。这可能是::genAvg的价值吗？如果是这种情况，而不是：

    set ::genAvg [lindex $data [expr 2*$::nbTests +3]] ;# General average of individual tests stored line 2*nbTest+3

试试这个：

    set ::genAvg [lindex $data 0]

这是一个黑暗中的镜头，因为当脚本写入文件时，我在代码中没有看到任何显示顺序的位置。

更新

我刚注意到这一行：

    set ::entryTestScores [lrange $data 1 $::nbTests] ;# Entry test scores stored from line 1 to line nbTest

评论说：

从第1行到第nbTest行存储的入学考试成绩

但是，为了从第1行到第nbTests行获得测试分数，命令必须是：

    set ::entryTestScores [lrange $data 0 [expr $::nbTests - 1]]

此外，以下几行需要进行类似调整。

更新2

我在您的更新中看到，没有::genAvg的写作。要解决这个问题，而不是：

        puts $fd $::bgColor
        close $fd

这样做：

        puts $fd $::bgColor
        puts $fd $::genAvg    ; # Insert this line
        close $fd

如何将变量存储在文件中？

1 个答案:

更新

更新2