yiwuyun

把n个1列的文件合并为一个n列的文件：output.txt
file1.txt  file2.txt file3.txt file4.txt .........

@echo off
setlocal enabledelayedexpansion
set /a n=2
set str=
type nul>output.txt
for /l %%a in (1,1,!n!) do (
  set /a n1=0
  for /f %%b in ('type file%%a.txt') do (
    set /a n1+=1
    for /l %%c in (!n1!,1,!n1!) do (
       set file%%a.row%%c=%%b
    )
  )
)
for /l %%a in (1,1,!n1!) do (
  for /l %%b in (1,1,!n!) do (
    set "str=!str!!file%%b.row%%a!   "
  )
  echo !str!>>output.txt
  set str=
)
复制代码

yiwuyun

修改了下，不足的用0来补。

@echo off
setlocal enabledelayedexpansion
set /a n=3
set /a m=0
set str=
type nul>output.txt
for /l %%a in (1,1,!n!) do (
  set /a n1=0
  for /f %%b in ('type file%%a.txt') do (
    set /a n1+=1
    for /l %%c in (!n1!,1,!n1!) do (
       set file%%a.row%%c=%%b
    )
  )
  if !n1! gtr !m! (set /a m=!n1!)
)
for /l %%a in (1,1,!m!) do (
  for /l %%b in (1,1,!n!) do (
    if "!file%%b.row%%a!"=="" (set /a file%%b.row%%a=0)
    set "str=!str!!file%%b.row%%a!   "
  )
  echo !str!>>output.txt
  set str=
)
复制代码

yiwuyun

@echo off
echo {>yiwuyun.txt
echo FS=",">>yiwuyun.txt
echo if(FNR==37){a1=$4}>>yiwuyun.txt
echo if(FNR==38){a2=$4}>>yiwuyun.txt
echo if(FNR==39){a3=$4;printf "%%s,%%s,%%s\n",a1,a2,a3}>>yiwuyun.txt
echo }>>yiwuyun.txt
gawk -f yiwuyun.txt *.csv>new.csv
if exist yiwuyun.txt del yiwuyun.txt
复制代码

yiwuyun

@echo off & setlocal enabledelayedexpansion
for /l %%i in (37,1,39) do (
set /a n=%%i-1
set /a n1=%%i-36
for /f "delims=" %%a in ('dir /b *.csv') do (
        for /f "skip=!n! delims=, tokens=4" %%b in ('type "%%a"') do (
                if "!a!"=="" >>file!n1!.txt echo %%b
                set a=1
        )
        set a=
)
)
set /a n=3
set /a m=0
set str=
type nul>new.csv
for /l %%a in (1,1,!n!) do (
  set /a n1=0
  for /f %%b in ('type file%%a.txt') do (
    set /a n1+=1
    for /l %%c in (!n1!,1,!n1!) do (
       set file%%a.row%%c=%%b
    )
  )
  if !n1! gtr !m! (set /a m=!n1!)
)
for /l %%a in (1,1,!m!) do (
  for /l %%b in (1,1,!n!) do (
    if "!file%%b.row%%a!"=="" (set /a file%%b.row%%a=0)
    set "str=!str!!file%%b.row%%a!   "
  )
  echo !str!>>new.csv
  set str=
)
复制代码

试试。

yiwuyun

@echo off 
setlocal EnableDelayedExpansion
set /a start=36
for /l %%a in (37,1,39) do (
  set /a fileNumber=%%a-!start!
  set /a skip=0
  for /f "delims=" %%b in ('dir /b *.csv') do (
     for /f "tokens=4 delims=," %%c in ('type %%b') do (
       set /a skip+=1
       if "!skip!"=="%%a" (
         echo %%c>>file!fileNumber!.txt
       )
     )
     set /a skip=0
  )
)
set /a n=3
set /a m=0
set str=
type nul>new.csv
for /l %%a in (1,1,!n!) do (
  set /a n1=0
  for /f %%b in ('type file%%a.txt') do (
    set /a n1+=1
    for /l %%c in (!n1!,1,!n1!) do (
       set file%%a.row%%c=%%b
    )
  )
  if !n1! gtr !m! (set /a m=!n1!)
)
for /l %%a in (1,1,!m!) do (
  for /l %%b in (1,1,!n!) do (
    if "!file%%b.row%%a!"=="" (set /a file%%b.row%%a=0)
    set "str=!str!!file%%b.row%%a!   "
  )
  echo !str!>>new.csv
  set str=
)
复制代码

yiwuyun

@echo off 
setlocal EnableDelayedExpansion
set /a start=36
for /l %%a in (37,1,39) do (
  set /a fileNumber=%%a-!start!
  set /a skip=0
  for /f "delims=" %%b in ('dir /b *.csv') do (
     for /f "tokens=4 delims=," %%c in ('type %%b') do (
       set /a skip+=1
       if "!skip!"=="%%a" (
         echo %%c>>file!fileNumber!.txt
       )
     )
     set /a skip=0
  )
)
set /a n=3
set /a m=0
set str=
type nul>new.csv
for /l %%a in (1,1,!n!) do (
  set /a n1=0
  for /f %%b in ('type file%%a.txt') do (
    set /a n1+=1
    for /l %%c in (!n1!,1,!n1!) do (
       set file%%a.row%%c=%%b
    )
  )
  if !n1! gtr !m! (set /a m=!n1!)
)
for /l %%a in (1,1,!m!) do (
  for /l %%b in (1,1,!n!) do (
    if "!file%%b.row%%a!"=="" (set /a file%%b.row%%a=0)
    if "%%b"=="!n!" (
      set "str=!str!!file%%b.row%%a!"
    ) else (
      set "str=!str!!file%%b.row%%a!,"
    )
  )
  echo !str!>>new.csv
  set str=
)
复制代码

逗号分隔

yiwuyun

@echo off
setlocal EnableDelayedExpansion
set /a rowStart=37
set /a rowEnd=39
set /a colNumber=4
set "fileSeperator=,"
set "fileType=csv"

if "!fileType!"=="csv" (
  set "allFile=*.csv"
) else (
  set "allFile=*.txt"
)
if "!fileSeperator!"=="," (
  set outputFile=new.csv
) else (
  set outputFile=new.txt
)
set /a fileCount=!rowEnd!-!rowStart!+1
for /l %%a in (!rowStart!,1,!rowEnd!) do (
  set /a fileNumber=%%a-!rowStart!+1
  set /a skip=0
  for /f "delims=" %%b in ('dir /b !allFile!') do (
     for /f "tokens=%colNumber% delims=," %%c in ('type %%b') do (
       set /a skip+=1
       if "!skip!"=="%%a" (
         echo %%c>>file!fileNumber!.txt
       )
     )
     set /a skip=0
  )
)
set /a n=!fileCount!
set /a m=0
set str=
type nul>!outputFile!
for /l %%a in (1,1,!n!) do (
  set /a n1=0
  for /f %%b in ('type file%%a.txt') do (
    set /a n1+=1
    for /l %%c in (!n1!,1,!n1!) do (
       set file%%a.row%%c=%%b
    )
  )
  if !n1! gtr !m! (set /a m=!n1!)
)
for /l %%a in (1,1,!m!) do (
  for /l %%b in (1,1,!n!) do (
    if "!file%%b.row%%a!"=="" (set /a file%%b.row%%a=0)
    if "%%b"=="!n!" (
      set "str=!str!!file%%b.row%%a!"
    ) else (
       if "!fileSeperator!"=="," (
         set "str=!str!!file%%b.row%%a!,"
       ) else (
         set "str=!str!!file%%b.row%%a!    "
       )
    )
  )
  echo !str!>>!outputFile!
  set str=
)
for /l %%a in (1,1,!fileCount!) do (
  if exist ".\file%%a.txt" del ".\file%%a.txt"
)
复制代码

这个稍稍通用一点

yiwuyun

回复 44# haichuan5121
你用40楼的代码，很快的，几百个文件也不会超过10秒吧。
我是写着玩的，哪晓得你要那么多文件。根本就不考虑效率。
你把40楼的代码的文件名改成vbs结尾，不要用bat结尾。主要是你没把用途写清楚，一直都在变。别人当然就不考虑那么多了。