请求删除此帖，废弃无用了请求删除此帖，废弃无用了请求删除此帖，废弃无用了

cl2039996 · 发表于 2022-3-9 22:36:42

本帖最后由 cl2039996 于 2022-5-8 16:08 编辑

请求删除此帖，废弃无用了请求删除此帖，废弃无用了请求删除此帖，废弃无用了请求删除此帖，废弃无用了请求删除此帖，废弃无用了

zaqmlp · 发表于 2022-3-12 15:59:45

报酬有点少，双倍还差不多

cl2039996 · 发表于 2022-3-12 16:43:28

回复 2# zaqmlp

大佬，按照您的建议，双倍，共120元红包！您受累

cl2039996 · 发表于 2022-3-12 16:47:44

回复 2# zaqmlp

期待您今天给写好！

zaqmlp · 发表于 2022-3-12 19:19:57

本帖最后由 zaqmlp 于 2022-3-26 23:12 编辑

bat存为ANSI/GB2312编码

<# :
cls&echo off&cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText("%~f0",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
pause
exit
#>
$txtfile=".\黑名单单词列表.txt";
$newfolder="E:\单词归类";
if(-not (test-path -literal $txtfile)){write-host ('"'+$txtfile+'" 未找到');exit;}
$enc=[Text.Encoding]::GetEncoding('GB2312');
$dic=New-Object 'System.Collections.Generic.Dictionary[string, string]';
$text=[IO.File]::ReadAllLines($txtfile, $enc);
for($i=0;$i -lt $text.length;$i++){
$key=$text[$i].trimend().ToLower();
if(-not $dic.ContainsKey($key)){
$dic.add($key, '');
}
}
$folders=@(dir -literal "."|?{$_ -is [System.IO.DirectoryInfo]});
for($i=0;$i -lt $folders.length;$i++){
write-host $folders[$i].FullName;
$files=@(dir -literal $folders[$i].FullName|?{('.srt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($j=0;$j -lt $files.length;$j++){
write-host $files[$j].Name;
$oldtext=[IO.File]::ReadAllText($files[$j].FullName, $enc);
$arr=$oldtext.trim() -split '[\r\n]+';
if($arr.length -ge 3){
$oldline=$arr[2] -replace '<[^>]+?>','中';
$mm=[regex]::matches($arr[2], '<[^>]+?>');
$m=[regex]::matches($oldline, "(?i)[a-z'_\-\d]+");
foreach($it in $m){
$isexist=$false;
$word=$it.groups[0].value;
$key=$word.ToLower();
if($dic.ContainsKey($key)){
$isexist=$true;
}
if((-not $isexist) -and ($word -match '[a-z]')){
$newpath=$newfolder.trimend('\')+'\'+$word;
if(-not (test-path -literal $newpath)){[void][IO.Directory]::CreateDirectory($newpath);}
$newbasename="[{0}][{1}][{2}]" -f $word,$folders[$i].Name,(get-date).ToString('yyyy-MM-dd HH点mm分ss秒fff毫秒');
$newsrt=$newpath+'\'+$newbasename+$files[$j].Extension;
$reg="(?i)(?<=^|[^a-z'_\-\d])"+[regex]::Escape($word)+"(?=[^a-z'_\-\d]|$)";
$newline=[regex]::replace($oldline, $reg, {
param($z);
'[b]<font color="#ff0000">'+$z.groups[0].value+'</font>[\b]';
});
if($mm.Count -ge 1){
$global:n=0;
$newline=[regex]::replace($newline, '中', {
param($z);
$mm[$global:n].groups[0].value;
$global:n++;
});
}
$brr=$arr.Clone();
$brr[2]=$newline;
$newtext=($brr -join "`r`n")+"`r`n`r`n"+'2'+"`r`n"+$arr[1]+"`r`n"+'{\an9}[b]<font color="#cccccc">'+$folders[$i].Name+'</font>[\b]';
[IO.File]::WriteAllText($newsrt, $newtext, $enc);
$newmp4=$newpath+'\'+$newbasename+'.mp4';
$oldmp4=$folders[$i].FullName+'\'+$files[$j].BaseName+'..mp4';
if(test-path -liter $oldmp4){
copy-item -literal $oldmp4 $newmp4 -force;
}else{
$oldmp4=$folders[$i].FullName+'\'+$files[$j].BaseName+'.mp4';
if(test-path -liter $oldmp4){
copy-item -literal $oldmp4 $newmp4 -force;
}
}
}
}
}
}
}

复制代码

zaqmlp · 发表于 2022-3-12 19:36:08

需求5有问题吧，假设有句话
I take the ball which is on the table
难道这也算？

cl2039996 · 发表于 2022-3-12 22:37:33

回复 6# zaqmlp

您真是为我想到了我考虑不周的地方，需求5的算法确实我想简单了。我再研究一下英语的各种例句，去琢磨一下怎么能够避免您说的那种问题。
需求5的迭代升级，容我过几天请您给与完善。

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

请求删除此帖，废弃无用了请求删除此帖，废弃无用了请求删除此帖，废弃无用了

评分

浏览过的版块