[已解决]批处理指定文本内随机提取内容再插入txt的处理

fanfande · 发表于 2011-11-27 12:02:37

本帖最后由 fanfande 于 2011-11-30 00:27 编辑

在 a.txt 内每行文字不一样,如下所示:

这是第1行的文字
这是第2行的文字
这是第3行的文字
这是第4行的文字
......N行文字

复制代码

在与 a.txt 同一级别下有一个文件夹,文件夹内有N个txt

现在要用批处理实现:
读取 a.txt的内容并随机提前一行随机插入到文件夹内的txt里面(任何地方都可以)!
并将新的生成结果导入到新的文件夹内!

小弟不才,学批处理,止步于for ,纠结与random,转在里面转不出来了~

特来求救,谢谢大家

601997526 · 发表于 2011-11-27 16:00:35

批处理不是万能的,而对文本内容处理方面似乎正是它的弱项

awk · 发表于 2011-11-27 16:11:08

回复 2# 601997526

但是BAT解决楼主的问题似乎不难啊

601997526 · 发表于 2011-11-27 17:23:52

回复 3# awk

刚没看清楚,还以为又是那种小说里面加广告的那种

fanfande · 发表于 2011-11-27 22:02:37

回复 4# 601997526

你好,可以帮我看下吗,谢谢

yyykkkyyyy · 发表于 2011-11-27 23:43:55

本帖最后由 yyykkkyyyy 于 2011-11-27 23:50 编辑

@echo off&setlocal enabledelayedexpansion
set sd=源文件夹
set dd=新文件夹
md "%dd%" 2>nul
(for /f "delims=" %%i in (a.txt)do echo !random!-%%i)>a.txt.yky
for /f "tokens=1* delims=-" %%i in ('sort a.txt.yky')do (
set/a n0+=1&set #!n0!=%%j)
del a.txt.yky
for /f "delims=" %%i in ('dir/b/a-d "%sd%\*.txt"')do (
set/a "m+=1,mm=m%%n0+1"
echo !m! %%i
for /f "tokens=2 delims=:" %%a in ('find /c /v "" "%sd%\%%i"')do set/a n=%%a+1
set/a "rn=!random!%%n+1"
(for /f "tokens=1* delims=:" %%b in ('findstr/n .* "%sd%\%%i"')do (
if %%b==!rn! set n=0&call echo.%%#!mm!%%
echo.%%c)
if !n! neq 0 call echo.%%#!mm!%%)>"%dd%\%%i"
)
pause

复制代码

powerbat · 发表于 2011-11-28 00:23:09

@set @n=0//&cscript.exe -e:jscript "%~f0"&exit /b
folder1 = "txt所在文件夹";
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 (/\.txt$/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();
rndpos = parseInt(Math.random() * s.length);
rndtxt = texts[parseInt(Math.random() * texts.length)];
s = s.slice(0,rndpos) + rndtxt + s.slice(rndpos);
fso.OpenTextFile(folder2+'\\'+files[i].replace(/^.*\\/,'')).write(s));
}

复制代码

fanfande · 发表于 2011-11-28 15:47:38

回复 7# powerbat

首先请问power你这个是vbs是吗
我测试了一下
360好像阻止了一个什么东西,运行下来有错误,我特地截图发来!

powerbat · 发表于 2011-11-28 19:42:01

看到第一行，你竟然还能把它看成vbs？

fanfande · 发表于 2011-11-28 23:58:32

回复 9# powerbat

老大你好,我运行没能成功,小弟不才啊
保存为bat,运行下来一闪而过

powerbat · 发表于 2011-11-29 22:09:38

在exit /b前面加个pause
@set @n=0//&cscript.exe -e:jscript "%~f0"&pause&exit /b
把出错信息贴上来。

fanfande · 发表于 2011-11-29 23:37:01

回复 11# powerbat

提示缺少一个分号

powerbat · 发表于 2011-11-29 23:49:14

本帖最后由 powerbat 于 2011-11-29 23:53 编辑

22行改成
fso.OpenTextFile(folder2+'\\'+files.replace(/^.*\\/,''), 2, true).write(s);

powerbat · 发表于 2011-11-29 23:51:31

如何在CMD中使用复制粘贴功能
http://www.bathome.net/thread-9963-1-1.html

powerbat · 发表于 2011-11-29 23:55:56

怎么像是论坛吃字符了？

		自动登录	找回密码
密码			注册

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

[文本处理] [已解决]批处理指定文本内随机提取内容再插入txt的处理

评分

评分

评分

评分