[文本处理] 批处理文本末尾随机提取txt的处理

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
set /a m+=1
set a!m!=%%i
)
for %%i in (*.html) do (
set /a n+=1
set b!n!=%%i 
)
)
if  not exist  新文件夹 md  新文件夹
if  not exist 新文件夹\*.html  copy *.html 新文件夹\
:sta
set /a num+=1,ran=!random!%%!m!+1
echo !a%ran%!>>新文件夹\!b%num%!
if !num! lss !n! goto sta 
pause 
复制代码

@set @n=0//&cscript.exe -e:jscript "%~f0"&exit /b

folder1 = "html文件夹";
folder2 = "新的文件夹";
info = "a.txt";

fso = new ActiveXObject("Scripting.FileSystemObject");
fc = new Enumerator(fso.GetFolder(folder1).files);
files = [];
for (i=0; !fc.atEnd(); fc.moveNext()) {
    fp = fc.item().Path;
    if (/\.(html?)$/i.test(fp)) files[i++] = fp;
}
texts = fso.OpenTextFile(info).ReadAll().split("\r\n");
if (!fso.FolderExists(folder2)) fso.CreateFolder(folder2);
for (i=0; i<files.length; i++)
{
    s = fso.OpenTextFile(files[i]).ReadAll();
    s = s.replace(/(?=<\/body>)/i, texts[parseInt(Math.random()*texts.length)]);
    fso.OpenTextFile(folder2+'\\'+files[i].replace(/.*\\/,'')).write(s));
}
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
set /a m+=1
set a!m!=%%i
)
for %%i in ("html文件夹/*.html") do (
set /a n+=1
set b!n!=%%i 
)
)
if  not exist  新的文件夹 md  新的文件夹
if  not exist 新的文件夹\*.html  copy *.html 新的文件夹\
:sta
set /a num+=1,ran=!random!%%!m!+1
echo !a%ran%!>>新的文件夹\!b%num%!
if !num! lss !n! goto sta 
pause 
复制代码