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

[问题求助] 求段将文件名随机插入txt文本里的代码

[复制链接]
发表于 2017-7-30 15:42:28 | 显示全部楼层 |阅读模式
本帖最后由 pcl_test 于 2017-7-30 16:04 编辑

好比文件包中包含很多txt文件

我爱你.txt
他跟我的故事.txt
我喜欢谁呢.txt
.....

我爱你.txt 在这个文本中 将"我爱你"三个字插入 "我爱你.txt"这个txt文件中  随机插入5次
他跟我的故事.txt 在这个文本中 将"他跟我的故事"五个字插入 "他跟我的故事.txt"这个txt文件中 随机插入5次
我喜欢谁呢.txt 在这个文本中 将"我喜欢谁呢"五个字插入 "我喜欢谁呢.txt"这个txt文件中 随机插入5次
.....

如何写这段代码呢
求高人解答 谢谢
发表于 2017-7-30 16:55:54 | 显示全部楼层

  1. //@echo off & setlocal enabledelayedexpansion
  2. //&cls & pushd c:\23\123 & dir /b *.txt|cscript -nologo -e:jscript "%~0" & pause & exit/b
  3. var fso,ws,f,txt,arr=[],a=[],i;
  4. fso=new ActiveXObject("Scripting.filesystemObject")
  5. ws=new ActiveXObject("Wscript.shell")
  6. while (!WSH.StdIn.AtEndOfStream){
  7.         f=WSH.StdIn.Readline();
  8.         txt=fso.OpentextFile(f,1).readall();
  9.         arr=txt.split("");
  10.         for(i=0;i<3;i++){
  11.                 a.push(parseInt(Math.random()*txt.length)+i);
  12.         }
  13.         a.sort(function(a,b){return a-b;});
  14.         for(i=0;i<3;i++){
  15.                 arr.splice(a[i],0,f.replace(/\..+$/,""))
  16.         }
  17.         fso.OpentextFile(f,2).write(arr.join(""));
  18. }


复制代码
 楼主| 发表于 2017-7-31 01:27:03 | 显示全部楼层
回复 2# zhanglei1371

测试了下 不行 插入之后是乱码
发表于 2017-7-31 07:03:04 | 显示全部楼层
你连个测试文本也没有,我反正是测试成功才发上来的
发表于 2017-7-31 07:43:19 | 显示全部楼层
回复 4# zhanglei1371

呵呵,所以除了感觉自我良好,直接给予伸手党,你得到了什么?有这时间和精力,可以做更多有意义的事了
发表于 2017-7-31 08:30:31 | 显示全部楼层
回复 5# qazplm
哈哈,说的也是.所以这样的伸手党就回复一次,剩下的自己思考去吧
发表于 2017-7-31 09:00:48 | 显示全部楼层
回复 4# zhanglei1371


    把你的测试文本压缩传上来我试试,可能是编码问题。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 07:47 , Processed in 0.022401 second(s), 11 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表