标题: [问题求助] 求段将文件名随机插入txt文本里的代码 [打印本页]
作者: 2359123467 时间: 2017-7-30 15:42 标题: 求段将文件名随机插入txt文本里的代码
本帖最后由 pcl_test 于 2017-7-30 16:04 编辑
好比文件包中包含很多txt文件
我爱你.txt
他跟我的故事.txt
我喜欢谁呢.txt
.....
我爱你.txt 在这个文本中 将"我爱你"三个字插入 "我爱你.txt"这个txt文件中 随机插入5次
他跟我的故事.txt 在这个文本中 将"他跟我的故事"五个字插入 "他跟我的故事.txt"这个txt文件中 随机插入5次
我喜欢谁呢.txt 在这个文本中 将"我喜欢谁呢"五个字插入 "我喜欢谁呢.txt"这个txt文件中 随机插入5次
.....
如何写这段代码呢
求高人解答 谢谢
作者: zhanglei1371 时间: 2017-7-30 16:55
- //@echo off & setlocal enabledelayedexpansion
- //&cls & pushd c:\23\123 & dir /b *.txt|cscript -nologo -e:jscript "%~0" & pause & exit/b
- var fso,ws,f,txt,arr=[],a=[],i;
- fso=new ActiveXObject("Scripting.filesystemObject")
- ws=new ActiveXObject("Wscript.shell")
- while (!WSH.StdIn.AtEndOfStream){
- f=WSH.StdIn.Readline();
- txt=fso.OpentextFile(f,1).readall();
- arr=txt.split("");
- for(i=0;i<3;i++){
- a.push(parseInt(Math.random()*txt.length)+i);
- }
- a.sort(function(a,b){return a-b;});
- for(i=0;i<3;i++){
- arr.splice(a[i],0,f.replace(/\..+$/,""))
- }
- fso.OpentextFile(f,2).write(arr.join(""));
- }
作者: 2359123467 时间: 2017-7-31 01:27
回复 2# zhanglei1371
测试了下 不行 插入之后是乱码
作者: zhanglei1371 时间: 2017-7-31 07:03
你连个测试文本也没有，我反正是测试成功才发上来的
作者: qazplm 时间: 2017-7-31 07:43
回复 4# zhanglei1371
呵呵，所以除了感觉自我良好，直接给予伸手党，你得到了什么？有这时间和精力，可以做更多有意义的事了
作者: zhanglei1371 时间: 2017-7-31 08:30
回复 5# qazplm
哈哈,说的也是.所以这样的伸手党就回复一次，剩下的自己思考去吧
作者: Batcher 时间: 2017-7-31 09:00
回复 4# zhanglei1371
把你的测试文本压缩传上来我试试，可能是编码问题。
| 欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |