[文件操作] 批处理如何将txt文本的文件名添加/插入到文本中每一行的行首/开头？

mydreamspace

操作系统win10；
手上有多个txt文件，内部数据比较多，需要将txt文件名加到各txt内每行行首，添加进去的文件名与原行的正文用空格或逗号隔开。

GNU

@echo off
for %%i in (*.txt) do (
    sed -i "s/^/%%i /" "%%i"
)
复制代码

mydreamspace

回复 2# GNU


    报错啊。。。
'sed' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'sed' 不是内部或外部命令，也不是可运行的程序
或批处理文件。

mydreamspace

回复 2# GNU


    我的是windows系统

mydreamspace

将txt的文件名（不含后缀）添加到txt内每行行首，并加一个空格或者逗号隔开。
目前用的处理太慢


@echo off
dir .\*.txt /b/a-d>names.def
for /f "delims=" %%a in (names.def) do (
   for /f "usebackq delims=" %%b in ("%%a") do (
      set "var=%%b"
      setlocal enabledelayedexpansion   
      echo %%~na %%b
      endlocal
   )>>#
   move # "%%a"  
)
pause

GNU

回复 3# mydreamspace


下载地址：
http://bbs.bathome.net/s/tool/index.html?key=sed

GNU

echo %%~na %%b %%~na
改成
echo %%~na %%b
这样就不会往行尾也添加了文件名

mydreamspace

回复 5# GNU
这个是要自己扩展吗？有没有windows自身就可以实现的啊？
我现在用的这个处理起来有点慢。。

mydreamspace

回复 2# GNU


    嗯嗯，是的
主要是有点慢，处理的文件多啊

codegay

本质是同一个问题。想同问题不要一贴多发。
以及提问前搜索。

mydreamspace

回复 4# codegay


好的，
搜索过了，
本质是一个问题，这个我注意下。

shootman2

可以把
setlocal enabledelayedexpansion   
endlocal
放在外面，这样避免每次打开又关闭
@echo off&setlocal enabledelayedexpansion   
dir .\*.txt /b/a-d>names.def
for /f "delims=" %%a in (names.def) do (
   for /f "usebackq delims=" %%b in ("%%a") do (
      set "var=%%b"  
      echo %%~na %%b
   )>>#
   move # "%%a"  
)
endlocal
pause

mydreamspace

回复 12# shootman2


    还是有点慢，不过这样还是有效果的，速度提高了一倍，原先差不多3-4秒一个文件，现在1-2秒左右了

jrx401

我这个菜鸟写的。
不过文件名会变成  [原文件名]_1.txt

[bat码]:

echo AddFileNametoCol1
echo ---------------------------------
:: Step1, Catch all txt file and save to namelist.txt
if exist namelist.txt del namelist.txt
if exist namelist.lst del namelist.lst
for %%i in (*.txt) do echo %%i>>namelist.lst
cd.>namelist.txt
for /f "tokens=1,2  delims=." %%J in (namelist.lst) do echo %%J >>namelist.txt
del namelist.lst

:: Step2, add file name to collumn 1
setlocal enabledelayedexpansion
for /f %%C in (namelist.txt) do (
        set n=0
        for /f "delims=" %%a in (%%C.txt) do (
            echo %%C,%%a>>%%C_1.txt 
)
)
del namelist.txt
pause
复制代码

WHY

gawk "{s=substr(FILENAME,1,length(FILENAME)-4); print s,$0>s\".Log\"}" *.txt
复制代码