tcl - tcl を使用した文字列解析

Question

文字列を解析して、2 つのセットの間のテキストを返そうとしています。たとえば、私の文字列は次のとおりです。「faultstring>Item not valid: The specified Standard SIP1 Profile was not found faultstring>」

次の文字列を返す関数を書きたい: Item not valid: The specified Standard SIP1 Profile was not found

私は tcl を初めて使用します。あなたの助けに感謝します。

私にお知らせください。

ありがとう。

Answer 1

興味深い文字列の中に何もないと仮定するfaultstring>と、指定されたフラグメントの前後に興味のないガベージがある可能性があります。

set testString "faultstring>Item not valid: The specified Standard SIP1 Profile was not found faultstring>"

if {[regexp {faultstring>(.*)faultstring>} $testString _ extracted]} {
     puts "Got it: $extracted"
}

答えは、他の仮定によって異なる場合があります。