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

haichuan5121

回复 31# yiwuyun


    感谢大神指导 我这执行完全啊没反应。

haichuan5121

回复 31# yiwuyun


    能不能把19楼的给修改下啊，19楼的完全符合我的设想，就是最后生成表格格式有点错误‘

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

试试。

terse

给你两参考 结果显示符合不 可自己修改下

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

haichuan5121

回复 34# yiwuyun


    感谢提供代码。。可惜实验失败。。没有刷出数据。 拿三楼的附件 复制10份，提取固定位置数据汇成一新的表格；19楼能提取数据也真确就是格式 我要求是三列 他那个是三行。。。求改写

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

逗号分隔

apang

也来一个：

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

apang

再来一下：

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

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

这个稍稍通用一点

haichuan5121

回复 38# yiwuyun


    大神NB啊 成了 ，就是小白用着有点蒙圈；能不能改成 输入 单元格刷数据的啊，比如 提示输入C2 .D8. F20 就可以刷这三位置的数据啊？
或者跟19楼似得刷取过程有个提示的。

haichuan5121

回复 40# apang


    运行没反应啊  我小白 也看不懂

haichuan5121

回复 39# apang


    你这个数据少能刷；我这个文件有200-500个文件 刷一个要50分钟。。。。。

apang

除非单个文件几百兆上G级，否则不可能“刷一个要50分钟”。
如此，你应该在顶楼就交代清楚
顶楼不说清楚，一会想实现这样一会又想那样，什么心态？“我是小白”很了不起吗？
给你代码不会用，活该你慢。