Смена строки не происходит

Question

Я читаю строку за строкой из файла. В этом файле я хочу заменить заявление #endif с комментарием как /******/. Следующий код не касаясь этой линии

while {[gets $in line] !=-1} 
{ 
    # if substring #endif is present in the string 
     if { [regexp {endif} $line] } { 

      set line [string replace "#endif" 1 7 "/*****/" } $line] 
     } 
} 

Answer 1

Как @Donal написал ваш «строка заменить» строка имеет несколько вопросов - так «} $ строка» часть является синтаксической ошибкой, например, и диапазон вы даете длиннее строки, которую вы хотите заменить. Возможно, вы имели в виду:

set line [string replace ${line} 1 6 "/*****/"] 

Но это предполагает, что часть «#endif» закодирована, чтобы начать со второго символа строки.

Я думаю, за то, что вы просили его проще использовать «regsub»:

set line [regsub {#endif} ${line} {/*****/}]