[文本处理] 批处理怎样提取多个csv文件名及首行保存到新的csv？

一十八画生

有多个csv文件   用批处理  提取文件名及首行内容  到新的csv
有大神能解答下吗？

Batcher

回复 12# 一十八画生


如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html

一十八画生

回复 11# Batcher


    卡到BatHame.vvv

Batcher

回复 10# 一十八画生


请参考Q-01观察一下哪行代码在报错以及详细的报错信息：
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA

一十八画生

回复 9# Batcher


执行不了  没找到问题

Batcher

回复 8# 一十八画生

@echo off
cd /d "%~dp0"
(for /f "delims=" %%i in ('dir /b /a-d *.csv') do (
    call :GetLine "%%i"
))>"BatHome.vvv"
move /y "BatHome.vvv" "BatHome.csv"
goto :eof

:GetLine
for /f "delims=" %%a in ('type %1') do (
    echo,%%a
    goto :eof
)
复制代码

一十八画生

回复 6# Batcher


    set /p  的方法  只能获取1024个字节，太长的话，获取不全

一十八画生

回复 6# Batcher

谢谢😊

Batcher

回复 5# 一十八画生


    刚开始学习BAT的时候建议养成好习惯，该加空格的地方就老老实实加空格，比如do后面

一十八画生

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
(for /f "delims=" %%i in ('dir /b /a-d *.csv') do(
    set "FileName=%%~ni"
    set /p FirstLine=<"%%i"
    echo !FileName!,!FirstLine!
))>"BatHome.vvv"
move /y "BatHome.vvv" "BatHome.csv"
复制代码

回复 1# 一十八画生

一十八画生

回复 2# Batcher


    执行没有反应

一十八画生

执行没有反应

Batcher

回复 1# 一十八画生


test.bat 请参考Q-04把bat文件保存为ANSI编码：
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
(for /f "delims=" %%i in ('dir /b /a-d *.csv') do (
    set "FileName=%%~ni"
    set /p FirstLine=<"%%i"
    echo !FileName!,!FirstLine!
))>"BatHome.vvv"
move /y "BatHome.vvv" "BatHome.csv"
复制代码