Board logo

标题: 请求删除此帖,废弃无用了请求删除此帖,废弃无用了 [打印本页]

作者: cl2039996    时间: 2022-4-5 15:05     标题: 请求删除此帖,废弃无用了请求删除此帖,废弃无用了

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

请求删除此帖,废弃无用了请求删除此帖,废弃无用了请求删除此帖,废弃无用了请求删除此帖,废弃无用了
作者: zaqmlp    时间: 2022-4-5 21:33

本帖最后由 zaqmlp 于 2022-4-5 21:36 编辑

报酬太少了,这个起码100元;打包几个srt文件发网盘
作者: cl2039996    时间: 2022-4-5 21:56

回复 2# zaqmlp


    我暂时支付不起您100元。素材包已经提供。8个需求其实差不多。只要写好第一个需求,其他几个需求只是参数不一样。
这样吧,我等等其他大佬看能不能赏光给我写。如果实在没有其他大佬给些的话,我再逐步增加红包。
作者: went    时间: 2022-4-5 23:50

本帖最后由 went 于 2022-4-6 19:43 编辑
  1. #&cls&cd /d "%~dp0"&@powershell -sta -c "Get-Content '%~0' | Out-String | Invoke-Expression" &pause&exit
  2. cls
  3. #挖空函数
  4. function Hide-Src($num1,$num2,[System.IO.FileInfo]$srt){
  5.     $arr = Get-Content $srt.FullName
  6.     if($arr.Count -lt 4){ return $null }
  7.     $txt = $arr | Select-Object -First 3 | Select-Object -Skip 2
  8.     #正则
  9.     $r = [regex]::new('(?<=>[^<]*)[a-zA-Z](?=[^<]*<)')
  10.     #所有字母个数
  11.     $char_len = $txt.Length - $r.Replace($txt,'').Length
  12.     if($char_len -lt $num2){ return $null }
  13.     #随机位置挖空
  14.     $char_del = $char_len/$num2*$num1
  15.     $r.Matches($txt) | Sort-Object { return Get-Random } | Select-Object -First $char_del | foreach {
  16.         $txt = $txt.SubString(0,$_.Index) + '_' + $txt.SubString($_.Index+1,$txt.Length-$_.Index-1)
  17.     }
  18.     return &{
  19.         '{0}\{1}[{2}分之{3}挖空].srt' -f $srt.Directory.FullName,$srt.BaseName,$num1,$num2
  20.         $arr[0..1]
  21.         $txt
  22.         $arr[3..($arr.Count-1)]
  23.     }
  24. }
  25. $msg = @'
  26. 1.全部所有的字母挖空请按1
  27. 2.五分之四的字母挖空请按2
  28. 3.四分之三的字母挖空请按3
  29. 4.三分之二的字母挖空请按4
  30. 5.二分之一的字母挖空请按5
  31. 6.三分之一的字母挖空请按6
  32. 7.四分之一的字母挖空请按7
  33. 8.五分之一的字母挖空请按8
  34. 请输入
  35. '@
  36. #主循环
  37. while($true){
  38. $a = $b = 0
  39. $chs = Read-Host -Prompt $msg
  40. switch($chs){
  41. '1' { $a=1; $b=1 }
  42. '2' { $a=4; $b=5 }
  43. '3' { $a=3; $b=4 }
  44. '4' { $a=2; $b=3 }
  45. '5' { $a=1; $b=2 }
  46. '6' { $a=1; $b=3 }
  47. '7' { $a=1; $b=4 }
  48. '8' { $a=1; $b=5 }
  49. }
  50. if($a -ne 0 -and $b -ne 0){
  51. Get-ChildItem -Recurse '*.srt' | foreach {
  52. if($_.BaseName -notmatch '\[.*?\]'){
  53. Write-Host $_.FullName
  54. $res = Hide-Src -num1 $a -num2 $b -srt $_
  55. if($res -ne $null){
  56. $res[1..($res.Count-1)] | Out-File -LiteralPath $res[0]
  57. Write-Host $res[0]
  58. }
  59. '-------------------'
  60. }
  61. }
  62. } else { Write-Host '输入无效' }
  63. Write-Host "`r`n按任意键回到主菜单"
  64. [void][System.Console]::ReadKey();cls
  65. }
复制代码

作者: cl2039996    时间: 2022-4-5 23:52

回复 4# went


    尊敬的went大佬,您把支付方式给我,我明天测试脚本能用后给您转过去辛苦费,真心非常感激
作者: went    时间: 2022-4-5 23:54

点签名就行了
作者: cl2039996    时间: 2022-4-6 00:22

回复 6# went


    明天给您转45元!35元不足以表达对您的谢意!
作者: cl2039996    时间: 2022-4-6 08:58

回复 4# went


    尊敬的Went大佬,整洁漂亮的代码。方便我自己修改了一个小参数。
先在有个小请求,就是每次选择后,bat运行完毕 就“请按任意键继续”了,我还得再次启动bat。
而我希望能bat反复提示菜单允许我不关闭和重启bat的情况下,多次选择。不要一次只能选择一个就结束了。
您受累改一下。
今后我多多找您写代码。




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2