[文本处理] 【已解决】如何用 递归哈希算法 或 匹配表算法 搜索字符串

$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)}
}
复制代码

@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;
}
复制代码

@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;

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

ST = Timer

Dim srcFile, dstFile
srcFile = "a.txt"
dstFile = "b.txt"

Dim fso, objFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.OpenTextFile(srcFile, 1)

Dim strIn, strLine
strIn = ""
Do Until objFile.AtEndOfStream
   strLine = objFile.ReadLine
   If strLine <> "" Then strIn =  strLine & strIn
Loop

Dim reg
Set reg = New RegExp
reg.Global = True

Dim strOut, i, key, match
strOut = ""
For i = Len(strIn)-1 To 1 Step -1
    key = Left(strIn, i)
    If InStr(2, strIn, key) > 0 Then
        reg.Pattern = ".(?=" & key & ")"
        For Each match In reg.Execute(strIn)
            strOut = strOut & match & vbCrLf
        Next
        Exit For
    End If
Next

fso.OpenTextFile(dstFile, 2, True).Write(strOut)

MsgBox Timer - ST
复制代码