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

Question

我有两个字符串

str1 "Something, part of"

和

str2 "Something"

其中我想过滤掉两个字符串中相同的部分，在本例中为子字符串 "Something"

有没有字符串函数可以做到这一点？我真的想避免使用 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)

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

Merge identical parts of two strings in tcl

string

tcl

string-comparison