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

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

文件夹有n个txt文本

测试1,文本.txt

测试2,文本.txt

。。。。。。

实现效果样式

测试1,文本.txt内容

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


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

测试1,文本.txt内容

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



随机插入位置不用考虑,每次个文本随机插入2次(次数可调)

回复 2# zaqmlp


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

TOP

回复 2# zaqmlp


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

TOP

回复 5# zaqmlp

比如:txt文本:111,2222,3333.txt ;文件名:111,2222,3333


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

TOP

回复 6# Batcher

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

TOP

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

TOP

回复 5# zaqmlp

TOP

回复 11# Batcher


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

TOP

本帖最后由 yong8723 于 2019-4-27 15:51 编辑

回复 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;
}

TOP

返回列表