paotin/plugins/lib/xtintin/diff.tin

#nop 两个字符串参数，其中一个比另一个多包含了一个子串，本函数可返回该子串（即任务信息）;
#func {diff} {
    #local str1 {%1};
    #local str2 {%2};

    #list str1 {tokenize} {$str1};
    #list str2 {tokenize} {$str2};

    #local size1 {&str1[]}; 
    #local size2 {&str2[]}; 

    #if { $size1 < $size2 } {
        #local tmp      {$str1};
        #local str1     {$str2};
        #local str2     {$tmp};
        #local tmp      {$size1};
        #local size1    {$size2};
        #local size2    {$tmp};
    };

    #local idx {};
    #loop {1} {$size2} {idx} {
        #local ch1 {$str1[$idx]};
        #local ch2 {$str2[$idx]};
        #if { "$ch1" != "$ch2" } {
            #break;
        };
    };

    #local begin    {$idx};
    #local end      {};
    #math  end      {$size1 - $size2 + $begin - 1};
    #local diff     {};
    #loop {$begin} {$end} {idx} {
        #local ch {$str1[$idx]};
        #cat diff {$ch};
    };

    #return {$diff};
};

/*
#alias {diff.test} {
    #local str1 {洞中无丝毫光亮，脚华山的练功房下平整，便似走在石板路上一般。};
    #local str2 {洞中无丝毫光亮，脚下平整，便似走在石板路上一般。};
    #echo {STR1: $str1};
    #echo {STR2: $str2};
    #local diff {@diff{{$str1};{$str2}}};
    #nop 会得到「华山的练功房」
    #echo {DIFF: $diff};
};
*/