思想之翼

回复 6# terse
您好！是的。

递增：A(有重复)  AB(有重复)  ABC(有重复)  ABCD(有重复) ABCDA(有重复)  ABCDAB(无重复)...  找到ABCDA有重复，且最长字符串。

从总字符串的一半(奇数则+1)开始递减，是否更快？
ABCDAB(无重复)   ABCDA(有重复)... 找到ABCDA有重复，且最长字符串。

实际运用中，没有极端情况，比如：AAAAAAAAAAAAAA 或者 ABABABABABABAB 或者 ABCABCABCABC ...

terse

回复 5# 思想之翼
计算1列2000行 应该不需要22秒  一楼的意思应该是要匹配的字符总是第一位开始 是这样吗

思想之翼

回复 4# WHY
感谢！有一点疑惑：计算1列2000行的数据，该代码耗时22秒，VBS代码却只耗时0.07125秒，老刘一号不是说：“随便换个编译型语言效率就可以薄纱vbs”吗？

WHY

@if(0)==(0) echo off
type a.txt | cscript //nologo //e:jscript "%~f0" > b.txt
pause & exit
@end

var str = WSH.StdIn.ReadAll().replace(/\s/g, '');
var Len = str.length;
var flag = false;

for (var i = Len-1; i > 0; i--) {
    var key = str.substr(Len-i);
    for (var j = 0; j < Len-i; j++) {
        if (str.substr(j, i) === key) {
            flag = true;
            WSH.Echo(str.substr(i+j, 1));
        }
    }
    if (flag) break;
}
复制代码

xczxczxcz

是不是介样子呢？

$t='WADCBADCBAFEGFLIFABCDEFABCDEFALI';
$f=$t.ToCharArray();
[array]::Reverse($f);
$e=-join($f);

$d=[regex]::Matches($e, "(?s)(.)((?:(?!\1).)+)\1(?=\2\1){1,}").value;

# 这是获取最长一个为 :输出B
if($null -ne $d -and $d.Length -gt 0){
	$s=[Linq.Enumerable]::Max($d, [func[object,int]]{param($i); $i.Length;});
	$d.Where{$_.Length -eq $s}.Foreach{$_.SubString($_.Length-2,1)}
}

# 这是获取每一个为 ;输出 B;D
if($null -ne $d -and $d.Length -gt 0){
	$d.ForEach{$_.SubString($_.Length-2,1)}
}
复制代码

czjt1234

http://www.bathome.net/thread-65332-1-1.html

感觉和这个有点相似？