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

[文本处理] [已解决]批处理如何批量将“txt文件名”添加到文本第一列/每行行首

[复制链接]
发表于 2015-1-27 14:53:00 | 显示全部楼层 |阅读模式
本帖最后由 pcl_test 于 2016-7-24 11:11 编辑

很多txt文件,每个txt有17列,如何批量将文件名添加到txt文本的第一列。

如:文件“王4.txt”
地区         深度  位置         日期          名称   密度   含量  总含量   垂直半径  水平半径        碳酸盐含量           氯盐含量   编号    系数    误差           备注
江北          23   30    1/2     hu    2.1     2       2          5            2.1              0.2              0.3         1        1      0.1        无

改为:
文件名   地区     深度   位置         日期          名称   密度   含量  总含量   垂直半径  水平半径        碳酸盐含量           氯盐含量   编号    系数    误差           备注
王4       江北         23    30    1/2     hu    2.1     2       2          5            2.1              0.2              0.3         1        1      0.1        无

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2015-1-27 15:07:01 | 显示全部楼层
每个文件只有两行吗?
 楼主| 发表于 2015-1-27 15:13:06 | 显示全部楼层
回复 2# DAIC

不是,行数不全一样,多则上百行,少则2行。
发表于 2015-1-27 16:10:56 | 显示全部楼层
回复 1# nihaoareyou

测试前先备份原文件

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. ::设置txt所在文件夹
  4. cd /d "D:\test"
  5. for /f "delims=" %%a in ('dir /b *.txt') do (
  6. set n=0
  7. for /f "delims=" %%b in ('type "%%a"') do (
  8. if !n! lss 1 (
  9. echo,文件名 %%b>>$
  10. set /a n+=1
  11. ) else (
  12. echo,%%~na %%b>>$
  13. )
  14. )
  15. del "%%a" /s /f >nul && ren $ %%~na.txt
  16. )
  17. pause
复制代码

评分

参与人数 1技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

 楼主| 发表于 2015-1-27 16:46:03 | 显示全部楼层
回复 4# pcl_test


    搞定!拜谢大神!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-21 16:04 , Processed in 0.032141 second(s), 18 queries .

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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