[文本处理] BAT如何批量将文本标题以符号为分割随机插入到txt文本内容中？

yong8723

文件夹有n个txt文本

测试1,文本.txt

测试2,文本.txt

。。。。。。

实现效果样式

测试1,文本.txt内容

西宁号驱逐舰属于我国自主研制的052D型导弹驱逐舰之一，技战术测试1内容指标世界先进。此外，去年4月我国的南海大阅兵中，习近平检阅海军所用的检阅舰为长沙舰，同样也文本是052D型导弹驱逐舰。


、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、

测试1,文本.txt内容

西宁号驱逐舰属于我国自主研制的052D型导弹驱逐舰之一，技战术测试2内容指标世界先进。此外，去年4月我国的南海大阅兵中，习近平检阅海军所用文本的检阅舰为长沙舰，同样也是052D型导弹驱逐舰。



随机插入位置不用考虑，每次个文本随机插入2次（次数可调）

yong8723

回复 2# zaqmlp


    好的，我试试，可以的话发个小红包感谢

yong8723

回复 2# zaqmlp


不行哦，只是生成个结果文件夹，里面没有内容

yong8723

回复 5# zaqmlp

比如：txt文本：111，2222，3333.txt ；文件名：111，2222，3333


随机把111，2222，3333分开插入到txt文本里面，不用删除里面原本的内容，第个数据插入2次（次数可以调）

yong8723

回复 6# Batcher

这个只能插入一次，还有一个问题，这个脚本把第一段落以后的内容全部删除了

yong8723

回复 5# zaqmlp
我已经加你qq了

yong8723

回复 5# zaqmlp

yong8723

回复 11# Batcher


    现在前面的数据又删除的，而且也不能提取标题数据插入文本中，插入次数能不能控制呢，想让他插入多少次都行，这个脚本好像只能插入1次

yong8723

回复 13# Batcher

      文本标题：测试，22222,3333333333.txt
、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
          <p>而今，正在霸州工业新城内，一个个高端优质项目风起云涌、加疾设立的施工厂面，让人琳琅满目、倍感昂扬。抢抓都邑食物工业发生式延长的新时机，霸州工业新城都邑食物工业勉力...</p>
            <div>
              <hr />
            </div>
            <div class="post-image"><p>
        <img src="http://www.xxx.com.cn/2018/0509/1525858579852.png" /></p>
<p>



、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、

下面这个bat脚本，随机调用以，符号分割标题插入到文本内容中，已经实现，但一个有问题，随机插入到文本内容的时候，他会随机插入到html标签内，导致html标签不完整，所以图片，链接，还有其它html标签失效，如：
<img 测试src="http://www.xxxx.com.cn/2018/05测试09/152585852222279852.png"

<a href="http://www.xx测试xnet/thread-10403-1-1.html"

<div3333333333>


能不能以下面这个脚本修改调用标题只随机插入到“中文”之间，这样就不会导致html标签失效,谢谢

@powershell -NoProfile -ExecutionPolicy bypass "& {[ScriptBlock]::Create("'#' + ([io.file]::ReadAllText('%~f0',[text.encoding]:efault))").Invoke()}" & pause & exit
$cishu=3;
$output='结果';
[void](md $output -force);
dir *.txt|?{$_ -is [System.IO.FileInfo]}|%{
    write-host $_.Name;
    $arr=$_.BaseName.split(',',[StringSplitOptions]::RemoveEmptyEntries);
    $text=[IO.File]::ReadAllText($_.FullName, [Text.Encoding]::Default);
    [System.Collections.ArrayList]$char=$text.toCharArray();
    for($i=0;$i -lt $cishu;$i++){
        $n=0;while($n -lt $arr.Count){
            $r=get-random @(0..($text.length-1));
            if(($r -eq 0) -or ((@("`r","`n") -notcontains $char[$r]) -and (@("`r","`n") -notcontains $char[$r-1]))){
                $char[$r]+=$arr[$n];
                $n++;
            };
        };
    };
    out-file -file ($output+'\'+$_.Name) -input ($char -join '') -enc Default;
}