使用tcl进行字符串解析

Question

我正在尝试解析一个字符串以返回两组之间的文本。例如，我的字符串是：“faultstring＆gt; Item无效：未找到指定的标准SIP1配置文件faultstring＆gt;”

我想编写一个返回字符串的函数：Item无效：找不到指定的标准SIP1配置文件

我是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"
}

对于其他假设，答案可能会有所不同。