1

私はtclで式を取り、それをに変換したいと_思い<ます>。いくつかの例:

  • bla_bla_4_->bla_bla<4>
  • bla_bla_4 ->bla_bla_4
  • bla_4_->bla<4>

どうすればいいのですか?regsubのマニュアルで見つかりませんでした。

4

2 に答える 2

5

正しいパターンが必要です。

set parts {"bla_bla_4_" "bla_bla_4" "bla_4_"}
foreach part $parts {
   regsub -all {_(\d+)_} $part {<\1>} result
   puts "$part -> $result"
}

これは

bla_bla_4_ -> bla_bla<4>
bla_bla_4 -> bla_bla_4
bla_4_ -> bla<4>
于 2012-06-24T15:34:01.420 に答える
2

動作するはずです:

regsub -all {_(\d+)_} $Line "<\\1>" Line
于 2012-06-24T15:33:16.450 に答える