合并tcl中两个字符串的相同部分

Question

我有两个字符串

str1 "Something, part of"

和

str2 "Something"

Out of These我想过滤掉两个字符串中相同的部分，在这种情况下是子字符串＆＃34; Something＆＃34;

是否有可以实现此功能的字符串功能？我真的想避免使用foreach循环遍历整个字符串。

Answer 1

要在某些字符串中查找公共前缀，请使用::textutil::string::longestCommonPrefix：

% package require textutil::string
0.7.1
% ::textutil::string::longestCommonPrefix "Something, part of" Something
Something
% ::textutil::string::longestCommonPrefix "Something, part of" Somethang
Someth

还有一个::textutil::string::longestCommonPrefixList，它将字符串列表作为参数。

请注意，我在评论中使用textutil捆绑包已弃用。遗憾。

文档： textutil::string (package)