批处理怎样将CSV文件里的某几列/指定列删除并保存到其他目录？

rickyho

问问各位，怎样才能将某目录下（如c:\1)的*.CSV(逗号分隔)类的EXCEL文件删除某几列（如图中的6，7），并保存到其他目录(如c:\2)，谢谢

rickyho

能帮帮忙吗，谢谢

ArdentMan

如果每列数据中没有空格、Tab以及其他默认分隔符：

1. 
   
2. @Echo Off&SetLocal EnableDelayedExpansion
   
3. Set "OldPath=C:\1"&Rem 要读取的目录
   
4. Set "NewPath=C:\2"&Rem 要保存的目录
   
5. Set "Number=6 7"&Rem 要删除的列集合
   
6. For %%i In (%OldPath%\*.csv) Do (
   
7.   (For /F "usebackq delims=" %%j In ("%%i") Do (
   
8.     Set /A Count=0&Set "Str="
   
9.     For %%k In (%%j) Do (
   
10.       Set /A Count+=1&Set "Flag=A"
    
11.       For %%l In (%Number%) Do If %%l EQU !Count! Set "Flag="
    
12.       If Defined Flag Set "Str=!Str!,%%k"
    
13.     )
    
14.     Echo !Str:~1!
    
15.    ))>"%NewPath%\%%~nxi"
    
16. )   
    

复制代码

rickyho

谢谢ArdentMan ，忘了说是有空格的，那如果有空格等分隔符呢，该怎样，因为8，9那两列数据都有空格的，出来的效果变了，如图，再次谢谢！

ArdentMan

1. 
   
2. @Echo Off&SetLocal EnableDelayedExpansion
   
3. Set "OldPath=C:\1"&Rem 要读取的目录
   
4. Set "NewPath=C:\2"&Rem 要保存的目录
   
5. Set "Number=6 7"&Rem 要删除的列集合
   
6. For %%i In (%OldPath%\*.csv) Do (
   
7.   (For /F "usebackq delims=" %%j In ("%%i") Do (
   
8.     Set /A Count=0&Set "Str="
   
9.     Set "Var=%%j"&Set "Var=!Var: =@@@@@@!"
   
10.     For %%k In (!Var!) Do (
    
11.       Set /A Count+=1&Set "Flag=A"
    
12.       For %%l In (%Number%) Do If %%l EQU !Count! Set "Flag="
    
13.       If Defined Flag Set "Str=!Str!,%%k"
    
14.     )
    
15.     Set "Str=!Str:@@@@@@= !"&Echo !Str:~1!
    
16.    ))>"%NewPath%\%%~nxi"
    
17. )
    

复制代码

rickyho

谢谢，想问问“要读取的目录”和“要保存的目录”可各修改成其他的目录吗，我尝试改成其他目录的，一运行批处理文件屏幕就一闪而过了，没处理，而不改维持原来的“c:\1和c:\2",这样就正常，谢谢ArdentMan

rickyho

自己再顶一下，求助

rickyho

谢谢，想问问“要读取的目录”和“要保存的目录”可各修改成其他的目录吗，我尝试改成其他目录的，一运行批 ...
rickyho 发表于 2011-8-24 23:05

    再恳请下各位帮帮忙，谢谢！