[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
是不是介样子呢?
  1. $t='WADCBADCBAFEGFLIFABCDEFABCDEFALI';
  2. $f=$t.ToCharArray();
  3. [array]::Reverse($f);
  4. $e=-join($f);
  5. $d=[regex]::Matches($e, "(?s)(.)((?:(?!\1).)+)\1(?=\2\1){1,}").value;
  6. # 这是获取最长一个为 :输出B
  7. if($null -ne $d -and $d.Length -gt 0){
  8. $s=[Linq.Enumerable]::Max($d, [func[object,int]]{param($i); $i.Length;});
  9. $d.Where{$_.Length -eq $s}.Foreach{$_.SubString($_.Length-2,1)}
  10. }
  11. # 这是获取每一个为 ;输出 B;D
  12. if($null -ne $d -and $d.Length -gt 0){
  13. $d.ForEach{$_.SubString($_.Length-2,1)}
  14. }
复制代码
1

评分人数

QQ: 己阵亡
脚本优先 [PowerShell win10]

TOP

返回列表