string - 1 つまたは複数の文字が出現するまで文字列を削除する

Question

私はTCLにあまり熟練していないため、以下の出力を達成するために必要なメカニズムを提供するために助けを求めています:

「彼は食べ物（既製のアイスクリーム）を提供しました」という値の文字列があるとします。

このメイン文字列から部分文字列を「既製のアイスクリーム);」として取り出したいと思います。

さらに、メインストリングをさらに剥ぎ取ってサブストリングを「既製のアイスクリーム」として取得することは可能ですか?

ここに私の試みがありますが、うまくいきません：

string trim $str "("

score 0 · Accepted Answer

左からトリミングするには:

 set ix [string first ( $s]
 if {$ix >= 0} {
     incr ix
     set s [string range $s $ix end]
 }
 # else the string does not contain '('

右からトリミングするには:

 set ix [string last ) $s]
 if {$ix >= 0} {
     incr ix -1
     set s [string range $s 0 $ix]
 }
 # else the string does not contain ')'

詳細については、マニュアルページを参照してください。

score 0 · Accepted Answer

これは、正規表現が適切に使用されるケースです。

if {[regexp {\(([^()]*)\)} $str -> substring]} {
    puts "found $substring in parentheses"
} else {
    puts "did not find anything suitable"
}

2 に答える 2