如何逐值读取TCL文件并提取PUx(n)对应值存入变量

Great question! Handling structured data like this in Tcl is straightforward thanks to its built-in list and array capabilities. Here's a step-by-step solution tailored to your input format:

Step 1: Read the File Content #

First, we'll read the entire content of your TCL file into a variable. This works whether your data is on a single line or spread across multiple lines:

# Replace "your_file.tcl" with your actual file path
set input_file "your_file.tcl"
set file_handle [open $input_file r]
set raw_content [read $file_handle]
close $file_handle

Step 2: Convert Content to a Token List #

Tcl excels at working with lists. We'll split the raw content into a list of individual tokens (each PUx(n) label and number becomes a list element):

set data_tokens [split $raw_content]

Step 3: Process Tokens and Store Values #

We'll iterate through the token list in chunks of 6 (1 PUx(n) label + 5 numeric values). Using an array is the cleanest way to store these pairs, as it lets you easily reference values by their PUx(n) key:

# Initialize an array to hold our PUx(n) data
array set pu_data {}

set current_index 0
set total_tokens [llength $data_tokens]

# Loop through tokens in 6-element chunks
while {$current_index < $total_tokens} {
    # Grab the PUx(n) label (e.g., "PUx(1)")
    set pu_label [lindex $data_tokens $current_index]
    
    # Grab the next 5 values associated with this label
    set pu_values [lrange $data_tokens [expr {$current_index + 1}] [expr {$current_index + 5}]]
    
    # Store the values in the array: key = label, value = list of numbers
    set pu_data($pu_label) $pu_values
    
    # Move to the next chunk
    incr current_index 6
}

Step 4: Access Your Stored Values #

Now you can easily retrieve any values you need:

# Print all stored data to verify
foreach label [array names pu_data] {
    puts "$label: [join $pu_data($label) ", "]"
}

# Access individual values (e.g., third value of PUx(2))
puts "Third value of PUx(2): [lindex $pu_data(PUx(2)) 2]"

Alternative: Individual Variables (If Preferred) #

If you want separate variables for each numeric value (instead of an array), you can extract the number from the PUx(n) label using regex and assign values directly:

set current_index 0
while {$current_index < $total_tokens} {
    set pu_label [lindex $data_tokens $current_index]
    # Extract the number n from PUx(n)
    regexp {PUx\((\d+)\)} $pu_label -> n
    
    # Assign the 5 values to variables like pu1_1, pu1_2, etc.
    lassign [lrange $data_tokens [expr {$current_index +1}] [expr {$current_index +5}]] \
        pu${n}_1 pu${n}_2 pu${n}_3 pu${n}_4 pu${n}_5
    
    incr current_index 6
}

# Example: Print the first value of PUx(3)
puts "First value of PUx(3): $pu3_1"

This approach is flexible and handles your exact input format perfectly. Let me know if you need adjustments for any edge cases!

内容的提问来源于stack exchange，提问作者Qusay