gawk -F, "FNR==37{print $4}" *.csv > new.csv
复制代码

@echo off & setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b *.csv') do (
	for /f "skip=36 delims=, tokens=4" %%b in ('type "%%a"') do (
		if "!a!"=="" >>new.csv echo %%b
		set a=1
	)
	set a=
)
pause
复制代码

if exist new.csv del new.csv
复制代码

@echo off & setlocal enabledelayedexpansion
if exist new.csv del new.csv
for /f "delims=" %%a in ('dir /b *.csv') do (
	for /f "skip=36 delims=" %%b in ('type "%%a"') do (
		set str=%%b
		set str=!str:,=,$!
		for /f "delims=, tokens=4" %%c in ("!str!") do (
			if "!a!"=="" (
				if "!x!"=="" (set x=%%c) else (set y=%%c&>>new.csv echo !x:$=!,!y:$=!&set a=1)
			)
		)
	)
	set x=
	set a=
)
pause
start "" new.csv
复制代码

@echo off & setlocal enabledelayedexpansion
if exist new.csv del new.csv
set data=D37,E39,D38
for %%a in (%data%) do (
	echo Process %%a
	set /a d+=1
	for %%b in (A B C D E F G H I J K L M) do (
		set str=%%a
		set /a n+=1
		if "!str:~,1!"=="%%b" call :take !n! !str:~1,3! !d!
	)
	set n=
)
(for /f "delims=: tokens=2" %%a in ('findstr /n . new.csv^|findstr "1: 4: 7:"') do set /p=%%a,<nul)>$$.csv
echo.>>$$.csv
(for /f "delims=: tokens=2" %%a in ('findstr /n . new.csv^|findstr "2: 5: 8:"') do set /p=%%a,<nul)>>$$.csv
echo.>>$$.csv
(for /f "delims=: tokens=2" %%a in ('findstr /n . new.csv^|findstr "3: 6: 9:"') do set /p=%%a,<nul)>>$$.csv
move /y $$.csv new.csv >nul
start "" new.csv
exit
:take
set /a h=%2-1
for /f "delims=" %%a in ('dir /b *.csv') do (
        for /f "skip=%h% delims=" %%b in ('type "%%a"') do (
                set str=%%b
                set str=!str:,=,$!
                for /f "delims=, tokens=%1" %%c in ("!str!") do (
                        if "!a!"=="" (set str=%%c&>>new.csv echo !str:$=!)
			set a=1
                )
	)
        set a=
)
goto :eof
复制代码

@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=
)
复制代码

@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=
)
复制代码

@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
复制代码

@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=
)
复制代码

@if(0)==(0) ECHO OFF
CScript.exe -NoLogo -E:JScript %0 "%~dp0test.csv" "D37 D38 D39"
pause&exit
@end
var filePath=  WSH.Arguments.Item(0) 
var oXL = new ActiveXObject("Excel.application"); 
var oWB = oXL.Workbooks.open(filePath);
oWB.worksheets(1).select();
var oSheet = oWB.ActiveSheet; 
var ar = WSH.Arguments.Item(1).split(' ');
var t = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
var arr = [],len = ar.length;
for (var i = 0; i < len; i++) { 
  var n = t.indexOf(ar[i].slice(0,1))+1;
  var m = ar[i].slice(1);
  arr.push(oSheet.Cells(m,n));
}
WSH.echo(arr);
oXL.Quit();
复制代码

@if(0)==(0) ECHO OFF
CScript.exe -NoLogo -E:JScript %0 <test.csv "D37 D38 D39"
pause&exit
@end
var arr = WSH.StdIn.Readall().split('\r\n');
var len = arr.length;
for (var i = 0; i < len; i++) {
  arr[i] = arr[i].replace(/,,/gi,',\s,').split(/\,/);
}
var ar = WSH.Arguments.Item(0).split(' ');
var t = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var tarr = [],len = ar.length;
for (var i = 0; i < len; i++) { 
  var n = t.indexOf(ar[i].slice(0,1));
  var m = ar[i].slice(1)-1;
  tarr.push(arr[m][n]);
}
WSH.echo(tarr)
复制代码

@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=
)
复制代码

@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=
)
复制代码

@set @n=0;/* & echo off
set "cell=D37 D38 D39"
for %%a in (*.csv) do (
        cscript -nologo -e:jscript "%~0"<"%%a">>$ "%cell%"
)
move $ new.csv
pause & exit & */

arg = WScript.Arguments(0).split(" ");
txt = WScript.StdIn.ReadAll();
arTxt = txt.replace(/(\s*\n)+$/, "").split("\r\n");
chr = "0ABCDEFGHIJKLMNOPQRSTUVWXYZ";
arCell = [];
for (i=0; i<arg.length; i++) {
        m = arg[i].match(/\d+$/)[0] - 1;
        n = ("0" + arg[i]).match(/(..)\d+$/)[1].toUpperCase();
        n1 = chr.indexOf(n.substr(0, 1));
        n2 = chr.indexOf(n.substr(1));
        n = n1 * 26 + n2 - 1;
        arCell.push(arTxt[m].split(",")[n]);
}
WScript.Echo(arCell.join(","))
复制代码

arrCell = Array("D37", "D38", "D39") ''需要提取的单元格
Set fso = CreateObject("Scripting.FileSystemObject")
For Each file in fso.GetFolder(".").Files
        If LCase(Right(file, 4)) = ".csv" Then
                Set f = fso.OpenTextFile(file, 1)
                txt = f.ReadAll : f.Close
                str = str & getCellsData(txt) & vbCrLf
        End If
Next

fso.OpenTextFile("new.csv", 2, true).Write str
MsgBox "OK"

Function getCellsData(ByVal txt)
        '' csv文本分割成数组
        arrTxt = Split(txt, vbCrLf)
        strChr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        ''建立正则表达式
        Set re = New RegExp
        ''正则表达式模式，最大支持到ZZ列
        re.Pattern = "^([a-z]{1,2})(\d+)$"
        re.IgnoreCase = true
        For i = 0 to UBound(arrCell)
                n = re.Execute(arrCell(i))(0).SubMatches(0)
                n = UCase(Right("0" & n, 2))
                n1 = InStr(strChr, Left(n, 1))
                n2 = InStr(strChr, Mid(n, 2))
                n = n1 * 26 + n2 - 1
                m = re.Execute(arrCell(i))(0).SubMatches(1) - 1
                s = s & "," & Split(arrTxt(m), ",")(n)
        Next
        getCellsData = Mid(s, 2)
End Function
复制代码

@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"
)
复制代码

On Error Resume Next
复制代码