Wie Werte aus der Datei abgerufen und der Variablen zugewiesen werden und in der Schleife ausgeführt werden

Question

Ich möchte Werte aus der Textdatei abrufen und Variablen in der Schleife zuweisen, um dies zu erreichen. data.text Datei enthält zwei Spalten

 
Name, Age 
ABC , 31 
def , 41 
ghi  , 51 

ich Namen von diesem wählen möchten, und ordnen zu $age nächsten Wert Alter und weisen Sie nehmen dann an $name . Ich werde diese durch Sequenz bis zum Ende der Datei holen.

Ich versuchte foreach & Zeile aber in der Lage komplette Linie zu holen vielleicht ist dies möglich durch regex oder Liste verwenden, aber nicht sicher, wie es zu benutzen

bitte

Answer 1

mit Beispielprogramm helfen, das wie eine CSV sieht Datei. Sie möchten dafür eine proper CSV parser verwenden.

lassign [lmap value [csv::split $line] {string trim $value}] name age 

Aber das ist eine reine Verfeinerung:

package require csv 

set f [open "data.text"] 

# Skip the header line; we could parse it, but we won't 
gets $f 

# Parse the remaining lines 
while {[gets $f line] >= 0} { 
    lassign [csv::split $line] name age 
    # Your data has extra spaces in it, it seems; we deal with that here 
    set name [string trim $name] 
    set age [string trim $age] 
    # Now we'll do something with that 
    puts "name is '$name', age is '$age'" 
} 
close $f 

---

Mit Tcl 8.6, können Sie die Trimm mehr direkt integrieren. (8.5 und früher keine lmap hat, man könnte schreibt es mit foreach und so weiter, aber es gibt keinen wirklichen Punkt;. Sie den Code ohne es direkt genug schreiben können, wenn es gibt nur zwei Felder)