You are here

마지막에있는 ","기호를 없애고 싶습니다.

if { [ regexp {inout} $split_name ] == 0 } {
        set B ""
        foreach list_output $split_name {
                if { [ lindex $list_output 0 ] == "output" } {
                        if { [ regexp {(\[)([0-9]):([0-9])(\])} [ lindex $list_output 1 ]  bus ] == 1 } {
                                set outputs [ lrange $list_output 2 end ]
                                if { [ llength $outputs ] == 1 } {
                                        lappend B "[ format "%s%14s%s%-20s" "/* output" "  $bus */" "\t\t"  ".$outputs\t\( $outputs \)," ]"
                                } elseif { [ llength $outputs ] > 1 } {
                                        set outputs_1 [ split $outputs , ]
                                        set outputs_2 [ join $outputs_1 ]
                                        foreach list_output_1 $outputs_2 {
                                                lappend B "[ format "%s%14s%s%-20s" "/* output" "  $bus  */" "\t\t"  ".$list_output_1\t\( $list_output_1 \)," ]"
                                        }
                                }
                        } else {
                                set outputs [ lrange $list_output 1 end ]
                                if { [ llength $outputs ] == 1 } {
                                        lappend B "[ format "%s%14s%s%-20s" "/* output" " */" "\t\t"  ".$outputs\t\( $outputs \)," ]"
                                } elseif { [ llength $outputs ] > 1 } {
                                        set outputs_1 [ split $outputs , ]
                                        set outputs_2 [ join $outputs_1 ]
                                        foreach list_output_1 $outputs_2 {
                                                lappend B "[ format "%s%14s%s%-20s" "/* output" " */" "\t\t"  ".$list_output_1\t\( $list_output_1 \)," ]"
                                        }
                                }

                        }
                }
        }
#########################################################################
        set BB [ join $B "\n" ]
        puts $BB
        puts $fo $BB

#########################################################################

# 이 부분에서 inout이 없다면, 마지막의 ","기호를 찾아 없앤다음 다음줄에 ");" 기호를 넣으려고 합니다..

input 파일은 이러한 형식이고,

input a ,b ;
input c;
output d;
output e;

출력파일은 이러한 형식입니다.

/* input */ .a ( a ),
/* input */ .b ( b ),
/* input */ .c ( c ),
/* output */ .d ( d ),
/* output */ .e ( e ),

#########################################################################
많은 도움 주셔서 여기까지 했는데 마무리가 잘 안되네요 ㅜㅜ
부탁드립니다!