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

[文本处理] 【已解决】如何批量将文件名插入到文本第1行和第2行之间?

本帖最后由 wzf1024 于 2016-3-28 23:33 编辑

有很多txt文本,文件名不同,如何批处理把文件名插入成为第2行,其他内容后退,
比如有文本名为hello.txt,内容是:
1111111111111
2222222222222
3333333333333
……
操作后实现:
1111111111111
hello
2222222222222
3333333333333
……
哪位大侠帮忙菜鸟,谢谢

  1. """
  2. python文件名插入指定行.py
  3. http://bbs.bathome.net/thread-39833-1-1.html
  4. 2016年4月3日 13:08:57 codegay
  5. """
  6. fn="temp.txt"
  7. with open(fn) as f:
  8.     txt=f.readlines()
  9.     txt.insert(3,fn+"\n")#文件名加上换行符号插入第四行
  10. with open(fn,"w+") as f:
  11.     f.writelines(txt)
复制代码
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "delims=" %%i in ('dir /s/b/l/aa *.txt') do (
  4.     for /f "delims=" %%a in (%%i) do (
  5.         set/a n+=1
  6.         if !n! equ 1 set "a1=%%a"
  7.         if !n! equ 2 set "a2=%%a"
  8.     )
  9.     set n=0
  10.     for /f "skip=2 delims=" %%b in (%%i) do (
  11.         set/a a+=1
  12.         if !a! equ 1 (echo,!a1!
  13.         echo,%%~ni
  14.         echo,!a2!)>%temp%\%%~nxi
  15.         echo,%%b >>%temp%\%%~nxi
  16.     )
  17.     set a=0&set a1=&set a2=
  18.     move /y "%temp%\%%~nxi" "%%i"
  19. )
  20. pause
复制代码

TOP

回复 3# pcl_test
set/p可以保真的获取绝大多数特殊字符行,不过尾部的tab制表符全部被过滤了。文本无损处理还是得靠第三方。

TOP

回复 19# CrLf
我觉得find和more是针对整个文本来的,不存在部分重定向输入,永远也做不到部分行重定向给find、more。它们一次性就独吞了,不留后路。

TOP

回复 18# happy886rr


    做个实验:
  1. @echo off
  2. (
  3. echo 第一行
  4. echo 第二行
  5. echo 第三行
  6. echo 第四行
  7. )>a.txt
  8. (
  9. setlocal enabledelayedexpansion
  10. set /p line_1=
  11. echo;line_1=!line_1!
  12.         rem 取得第一行缓冲区
  13. set /p line_2=
  14. echo;line_2=!line_2!
  15.         rem 取得第二行缓冲区
  16. find /n /v ""
  17.         rem more 和 find 等第三方居然能获取完整的重定向输入
  18. set /p line_null=
  19. echo;line_null=!line_null!
  20.         rem 之后再用 set /p 就无法取得重定向输入了
  21. )<a.txt
  22. pause
复制代码

TOP

本帖最后由 happy886rr 于 2016-3-30 01:06 编辑

回复 17# CrLf
他不是外层加了一组括号吗?当成一行命令了,把文本more +1)<“%%a”,  延迟也在more之前就关了。

TOP

遗留问题:
more 为什么能取得已经被 set /p 取走的内容?

TOP

本帖最后由 happy886rr 于 2016-3-30 00:52 编辑

回复 15# CrLf
不错,看来这招可行。

TOP

回复 12# happy886rr


    可以改用 "delims=" ... set "str=%%a" & setlocal enabledelayedexpansion & echo !str:*:=! & endlocal,一样可以兼容特殊字符

TOP

顶一下帖子上去,貌似以后要用到

TOP

喔,大家讨论激烈,看来我们论坛很有活力啊

TOP

hta 版:
  1. mshta http://bathome.net/s/hta/ "var n=1; dir().files().grep(/\.txt$/i)._each(function(f){var a=type(f).split('\r\n');a.splice(n,0,f.replace(/\.[^.]+$/,''));save(a.join('\r\n'),f)})"
复制代码

TOP

本帖最后由 CrLf 于 2016-3-29 01:16 编辑

回复 8# pcl_test


比如这样:
  1. @echo off
  2. for /f "delims=" %%a in ('dir /a-d /b *.txt') do (
  3.     (
  4.       setlocal enabledelayedexpansion
  5.       set/pa=
  6.       echo;!a!
  7.       endlocal
  8.       echo;%%~na
  9.       find /v ""
  10.     )<"%%a">$
  11.     move $ "%%a"
  12. )
  13. pause
复制代码

---------------------------------------
实测发现 3 楼 more +1 的用法无误
那么问题来了,set /p 已经取走第一行了,为什么 more 还能再得到一个首行?

TOP

  1. /*&cls
  2. @echo off
  3. ::指定在第一行之后插入
  4. set n=1
  5. dir /a-d /b *.txt|cscript -nologo -e:jscript "%~f0" %n%
  6. pause&exit
  7. */
  8. var fso = new ActiveXObject('Scripting.FileSystemObject');
  9. while(!WScript.StdIn.AtEndOfStream){
  10.     var file = WScript.StdIn.ReadLine();
  11.     var i = 0, s = '', f = fso.OpenTextFile(file, 1);
  12.     while(!f.AtEndOfStream){
  13.     if(i == WScript.Arguments(0))s += fso.GetFile(file).Name.replace(/\.[^\.]+$/, '') + '\r\n';
  14.         var str = f.ReadLine();
  15.         s += str + '\r\n';
  16.         i++;
  17.     }
  18.     f.Close();
  19.     var f = fso.OpenTextFile(file, 2);
  20.     f.Write(s);
  21.     f.Close();
  22. }
复制代码
1

评分人数

    • wzf1024: 感谢分享,感谢大大追踪扩展技术 + 1

TOP

返回列表