[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 15# apang

哦,原来是这样。行首无标志的按照第一个有标志的为准,比如:
104/781   DWPI
PN        - EP1419624        A1      20040519    DW200433
          AU2002324        A1      20030310    DW200452
          IN228968B          B       20090320    DW201010
   
标红的都是PN

TOP

to: weichenxiehou

TOP

回复 17# ouch1983
  1. @echo off&setlocal enabledelayedexpansion
  2. set "tab= "
  3. for /f "delims==" %%a in ('set # 2^>nul') do set %%a=
  4. for /f "delims==" %%a in ('set $ 2^>nul') do set %%a=
  5. for /f "tokens=1-5" %%a in ('findstr /v /i "dwpi" test.txt') do (
  6.   if /i "%%a"=="ap" (set flag=ap&set/a count=0)
  7.   if /i "%%a"=="pn" (set flag=pn&set/a count=0)
  8.   if "!flag!"=="ap" (
  9.     if !count! equ 0 (set "strb=%%d") else set "strb=%%b"
  10.     set/a "#!strb:~,4!+=1"
  11.     if not defined "$!strb:~,4!" set "$!strb:~,4!=0"
  12.     set/a count+=1
  13.   )
  14.   if "!flag!"=="pn" (
  15.     if !count! equ 0 (set "strb=%%e") else set "strb=%%c"
  16.     set/a "$!strb:~,4!+=1"
  17.     if not defined "#!strb:~,4!" set "#!strb:~,4!=0"
  18.     set/a count+=1
  19.   )
  20. )
  21. echo,%tab%PN%tab%AP>result.txt
  22. for /f "tokens=1,2 delims=#=" %%a in ('set #') do (
  23.   echo,%%a%tab%!$%%a!%tab%%%b
  24. )>>result.txt
  25. start result.txt
复制代码
1

评分人数

看得多说得多,远比不上写得多。

TOP

十分感谢weichenxiehou老师,问题已解决,还给讲了很多

TOP

返回列表