批处理如何提取特定列的内容？

mmmike

如附件所示，我需要将带有DNI特性的行列内容提取出来，应该怎么做尼？我试过用DNI作为关键字去扫描行，但是文件中有的不在一行上，例如C31，就会漏掉。大家有没有什么好办法？谢啦~~

codegay

这种文件格式 太不规范了。处理起来很麻烦。

mmmike

是啊，画图软件自动生成的器件列表，让我头疼了好久。怎么都for不出来

codegay

软件名提供一下看看。
找一下设置能看看能不能CSV格式。CSV格式对程序比较友好。

523066680

BOM单，以前公司自己生产PCB的时候也做过BOM单的资料提取，分类统计。
C是电容 R是电阻，都是贴片料的编号，六七年前的事情，好怀念……

Perl脚本

1. use utf8;
   
2. use Encode;
   
3. use IO::Handle;
   
4. use File::Slurp;
   
5. STDOUT->autoflush(1);
   
6. 
   
7. my $src = encode('gbk', "原始文本.txt");
   
8. my @source = read_file( $src );
   
9. my $idx = 0;
   
10. 
    
11. #去掉抬头
    
12. do { shift @source } until ( $source[0]=~/======/  );
    
13. shift @source;
    
14. 
    
15. my $flag = 0;
    
16. while ( $idx <= $#source )
    
17. {
    
18.     ($DNI, $Material) = (substr($source[$idx], 9, 3), substr($source[$idx], 76, 20));
    
19.     $Material=~s/\s//g;
    
20. 
    
21.     if ( $DNI eq "DNI" )
    
22.     {
    
23.         print $Material,"\n";
    
24.         $flag = 1;
    
25.     }
    
26.     else
    
27.     {
    
28.         if ( $DNI eq "   " and $flag == 1 and $Material ne "" )
    
29.         {
    
30.             print $Material,"\n";
    
31.         }
    
32.         else
    
33.         {
    
34.             $flag = 0;
    
35.         }
    
36.     }
    
37. 
    
38.     $idx++;
    
39. }

复制代码

slore

主要有C31这种行，不然直接 tokens=6, delims=空格就行了。
为了照顾这行的话，就只好按列宽把他们取出来自己拆分，然后判断上一次的DNI是否是[DNI]，
是的话这段也截取出来。

另外，文本处理的话，还是建议不要用批处理了，同样的思路，代码量多，还有很多字符的限制，处理起来浪费时间，解决自己的问题，允许机器上装别的语言工具的话，
建议ruby，pyhon。有要求不能装其他的语言解释器的话，也建议使用VBS或JS，而不是批处理。

批处理的话，如下，如果使用ruby，估计也就20行左右(1/4的代码量，而且可读性还高)。

1. @echo off&setlocal enabledelayedexpansion
   
2. 
   
3. set n=2
   
4. for /f "tokens=1,2,3,4,5,6 delims= " %%a in (src.txt) do (
   
5.    set /a n+=1
   
6.    if not "x%%f"=="x" ( if "x%%b"=="x===" (
   
7.       call :headline "%%a" "%%b" "%%c" "%%d" "%%e" "%%f"
   
8.       goto :end_head
   
9.    ))
   
10. )
    
11. 
    
12. :end_head
    
13. echo COLUMN_LEN:%id_len%, %type_len%, %num_len%, %name_len%, %qty_len%, %des_len%
    
14. echo.
    
15. 
    
16. set is_data_end=0
    
17. for /f "skip=%n% delims=" %%a in (src.txt) do (
    
18.    call :AnalysisLine "%%a"
    
19.    if %is_data_end% NEQ 0 goto :end_data
    
20. )
    
21. 
    
22. :end_data
    
23. pause
    
24. goto :EOF
    
25. 
    
26. :AnalysisLine
    
27. set "AL_line=%~1"
    
28. set AL_id=!AL_line:~0,%id_len%!
    
29. set AL_type=!AL_line:~%type_start%,%type_len%!
    
30. set AL_des=!AL_line:~%des_start%,%des_len%!
    
31. 
    
32. if "x%AL_id%"=="x TOTAL" (
    
33.   set is_data_end=1
    
34.   goto :EOF
    
35. )
    
36. 
    
37. if "x%AL_type%"=="x   " (
    
38.   set "AL_type=%AL_type_LAST%"
    
39. )
    
40. 
    
41. set AL_type_LAST=%AL_type%
    
42. 
    
43. if "x%AL_type%"=="xDNI" (
    
44.   echo [%AL_des%]
    
45. )
    
46. goto :EOF
    
47. 
    
48. :headline
    
49. call :Len %1
    
50. set id_len=%Len_Ret%
    
51. call :Len %2
    
52. set /a type_start=%id_len%+3
    
53. set type_len=%Len_Ret%
    
54. call :Len %3
    
55. set num_len=%Len_Ret%
    
56. call :Len %4
    
57. set name_len=%Len_Ret%
    
58. call :Len %5
    
59. set qty_len=%Len_Ret%
    
60. call :Len %6
    
61. set /a des_start=%id_len%+%type_len%+%num_len%+%name_len%+%qty_len%+5*3
    
62. set des_len=%Len_Ret%
    
63. goto :EOF
    
64. 
    
65. 
    
66. :Len
    
67.   set LenVar_i=0
    
68.   set LenVar_Str=%~1
    
69.   if "x%LenVar_Str%"=="x" (
    
70.     set /a Len_Ret=0
    
71.     goto :EOF
    
72.   )
    
73.   :Len_Loop
    
74.     set LenVar_c=!LenVar_Str:~%LenVar_i%,1!
    
75.     if "x%LenVar_c%"=="x" goto :Len_EndLoop
    
76.     set /a LenVar_i+=1
    
77.     goto :Len_Loop
    
78. 
    
79.   :Len_EndLoop
    
80.   set /a Len_Ret=LenVar_i
    
81.   goto :EOF
    

复制代码

slore

写了个ruby版的，5分钟吧。18行，还有4，5行变量定义。
截取，获取长度直接有属性方法，用起来就是方便。

1. lines = File.readlines('src.txt')
   
2. dataline = false
   
3. last_type = ''
   
4. des_start = des_len = 0
   
5. 
   
6. lines.each do |line|
   
7.   line.chomp! # 去掉结尾Windows上可能多的\r回车符
   
8.   if dataline == false && line[0, 6] == ' S.No.'
   
9.     line =~ /^( S.No.   DNI   .+Qty   )(Ref Des +)   COMPANY/       #正则匹配 标题
   
10.     des_start, des_len = $1.length, $2.length                       #保存Des的标题的开始和长度
    
11.     dataline = true
    
12.   elsif dataline == true
    
13.     type = line[9, 3]    #DNI列固定?
    
14.   end
    
15.   break if line[0, 6] == ' TOTAL'     #遇到TOTAL结束
    
16.   type = last_type if type == '   '   #如果type是3个空格，那么用上次type
    
17.   last_type = type                    #设置当前type为最后type
    
18.   puts "[#{line[des_start, des_len]}]" if type == 'DNI'
    
19. end

复制代码

523066680

因为这个表有些信息位置是固定的，也没有中文之类的字符，批处理截取还算可以

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set "file=原始文本.txt"
   
4. set /a flag = 0
   
5. 
   
6. for /f "tokens=* delims=" %%a in ('type %file% ^| more +7 ') do (
   
7.         set "str=%%a"
   
8.         set DNI=!str:~9,3!
   
9.         set Material=!str:~76,20!
   
10.         set Material=!Material: =!
    
11.         if "!DNI!" == "DNI" (
    
12.                 echo !DNI! !Material!
    
13.                 set /a flag = 1
    
14.         ) else (
    
15.                 if "!DNI!!flag!" == "   1" (
    
16.                         if not "!Material!" == "" (
    
17.                                 echo !DNI! !Material!
    
18.                         )
    
19.                 ) else (
    
20.                         set /a flag=0
    
21.                 )
    
22.         )
    
23. )
    
24. pause

复制代码

mmmike

感谢大家的热心的帮助；字符串截取太巧妙了！！！！！完全不需要考虑无用信息的干扰。