Как поместить извлеченные значения из одного файла в другой

Question

Ниже приведены извлеченные элементы из файла

Mg1.qna o a vss vss n 0.36 0.03 mult=4 $$UNI

Mg1.qpa o a vcc vcc p 0.36 0.03 mult=6 $$UNI

Теперь вышеперечисленные элементы должны быть заменены на другой файл, который содержит следующее

set name(A) qp18

set source(A) vccgated_1p24

set drain(A) vldoout

set gate(A) pgtbias

set bulk(A) vccgated_1p24

set inst(A) 1

set name(B) qp2

set source(B) vccgated_1p24

set drain(B) vccgated_1p24

set gate(B) vccgated_1p24

set bulk(B) vccgated_1p24

set inst(B) 1

set bulk(B) vccgated_1p24

Можно ли использовать regsubзаменить каждый элемент один за другим?

иначе, если индексация может быть полезна?

Answer 1

Я предполагаю, что файл, который вы импортируете, описывает транзисторы или какой-либо другой электронный компонент, выгравированный на кремниевом чипе. Кажется, что формат файла разделен пробелом. Вот предложение, но вам нужно уточнить это гораздо больше.

set inputFile [open INPUT_FILE_NAME_GOES_HERE]
set outputFile [open OUTPUT_FILE_NAME_GOES_HERE w]
set lineNumber 0
while {[gets $inputFile line] >= 0} {
    set items [split $line]
    # assumes you have at most 8 lines for components A through H in your file
    set letter [lindex {A B C D E F G H} $lineNumber]
    puts $outputFile "set name($letter) [lindex $items 0]"
    puts $outputFile "set source($letter) [lindex $items 1]"
    # as many more puts commands as you need for all the columns
}
close $inputFile
close $outputFile