[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. PowerShell "$arr=(type 1.txt -ReadCount 0) -join '' -split '(“[^“”]*”)|(?<=[。,])'|?{$_ -ne $null}; sc 2.txt ((get-Random $arr -Count $arr.Count) -join '')"
复制代码
1

评分人数

    • smss: 这个有效技术 + 1

TOP

本帖最后由 WHY 于 2019-1-3 09:29 编辑
  1. $str = [IO.File]::ReadAllText('1.txt', [Text.Encoding]::Default);
  2. $arr = $str -replace '(?m)^\s+|\r\n' -split '(?<=[。,])(?!$)';
  3. $str = (get-Random $arr -Count $arr.Count) -join '' -replace ',$', '。';
  4. $str = [regex]::Replace($str, '。(?!$)', { If((get-Random) % 5){'。'}Else{"。`r`n  "} });
  5. [IO.File]::WriteAllText('2.txt', '  ' + $str, [Text.Encoding]::Default)
复制代码
2

评分人数

    • smss: 我为什么运行后无效技术 + 1
    • tz_being: 如果能在每个段落后面空一行就更牛B了技术 + 1

TOP

回复 11# smss


    那是 PowerShell 脚本,我这里没有问题。

TOP

返回列表