haichuan5121

回复 34# yiwuyun


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

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

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

试试。

haichuan5121

回复 31# yiwuyun


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

haichuan5121

回复 31# yiwuyun


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

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

回复 25# 522235677


    大神  有时间给把格式改成正确的吧。数据能刷了 就是格式没有按列排列

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

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

haichuan5121

能不能跟这个FTP下载代码合成一个啊？ 下载完成后，执行大神的提取命令生成个新的表！
纯小白只能看别人的稍作修改，这个下载代码我还想只下载设定文件生成时间内的文件呢，这个时间段可以locle输入设定的！
比如只下载一周内新生成的文件，或者更高级点，提示命令行带起止日期设定的，
@echo off
rem 指定FTP用户名
set ftpUser=sputter
rem 指定FTP密码
set ftpPass=sputter
rem 指定FTP服务器地址
set ftpIP=10.30.1.4
rem 指定待下载的文件位于FTP服务器的哪个目录
set ftpFolder=/11/
set LocalFolder=F:\2  
set ftpFile=%2%/2.csv
>"%ftpFile%" (   
echo,%ftpUser%   
echo,%ftpPass%   
echo cd "%ftpFolder%"  
echo lcd "%LocalFolder%"  
echo bin   
echo mget *0.csv
start ftp -v -i -s:"%ftpFile%" %ftpIP%   
echo 任务完成...&pause>nul
)

haichuan5121

回复 25# 522235677


    99.8        99.8        455        200        200
99.8        99.9        455        200        200
99.8        455        455        200       
输出格式不对哦 ，， 另是 取D37.D38.D39的数据？？   要改其他单元格的怎么改哦

522235677

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

这代码我也是醉了，效率不高，不然得下功夫

haichuan5121

大神们能修改成提取三个数据的代码吗？或者命令行提示单元格位置；获取数据的啊

haichuan5121

回复 20# 522235677


    取两个数的代码里面我也没有看到37字样啊 如果我想改成查询其他行的数据怎么办啊！

haichuan5121

回复 20# 522235677


    csv可以用EXCEL打开啊