【练习-063】根据原始文本分配数据并生成xsl文件

@echo off&setlocal enabledelayedexpansion
set /a num=0
set /a str=1
set "test=char.txt"
findstr /c:"A区" "%test%" >>A区.txt
findstr /c:"B区" "%test%" >>B区.txt
for /f "delims=" %%i in (A区.txt) do (
set /a num=!num!+1&echo !num!&echo %%i>>!str!.txt
if !num!==150 (set /a num=0&set /a str=!str!+1)
)
ren "1.txt" "候国强.xls"&ren "2.txt" "毛远锋.xls"
ren "3.txt" "易湛慧.xls"&ren "4.txt" "李楠.xls"
ren "5.txt" "池茜.xls"&del "A区.txt" /f /s /q>nul
pause
复制代码

@echo off&setlocal enabledelayedexpansion
::这里跳格键
set "Tab=	"
set /p str=<char.txt>nul
>char.xls echo !str!
set "A区=候国强 毛远锋 易湛慧 李楠 池茜"
set "B区=王冬 刘通 文娟娟 马宇芊"
for %%i in (A区 B区) do for %%j in (!%%i!) do set %%j=%%i&>%%j.txt echo !str!
for /f "skip=1 tokens=1-4" %%a in (char.txt) do (
    if /i "!%%d!" equ "%%a" if !_%%d! lss 150 (
          set /a _%%d+=1
          >>%%d.txt echo;%%a%Tab%%%b%Tab%%%c%Tab%%%d
          set "%%a%Tab%%%b%Tab%%%c%Tab%%%d=a"
          for /f "tokens=1,2 delims=." %%i in ("%%c") do (
              set d=%%j000
              set/a #%%d+=%%i!d:~,3!"
          )
    ) else set %%d=&2>nul move %%d.txt "%%d_!#%%d:~,-3!.!#%%d:~-3!.xls"
)
for %%i in (A区 B区) do for %%j in (!%%i!) do if not defined %%j set %%i=!%%i:%%j=!
for /f "skip=1 tokens=1-4" %%a in (char.txt) do (
    if "!%%a%Tab%%%b%Tab%%%c%Tab%%%d!" equ "" (
       for %%i in (!%%a!) do set name=%%~i
       for %%e in (!name!) do if !_%%e! lss 150 (
           set /a _%%e+=1
           >>%%e.txt echo;%%a%Tab%%%b%Tab%%%c%Tab%%%d
           for /f "tokens=1,2 delims=." %%i in ("%%c") do (
              set d=%%j000
              set/a "#%%e+=%%i!d:~,3!"
           )
       ) else set %%a=!%%a:%%e=!&set name=&2>nul move %%e.txt "%%e_!#%%e:~,-3!.!#%%e:~-3!.xls"
         if not defined name >>char.xls echo;%%a%Tab%%%b%Tab%%%c%Tab%%%d
    ) 
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set "names=b-王冬 b-刘通 b-文娟娟 b-马宇芊 a-候国强 a-毛远锋 a-易湛慧 a-李楠 a-池茜"
rd /s /q char 2>nul&md char&set "tab=	"
for /f "tokens=1-4 delims=%tab%" %%a in (char.txt) do (
    if not defined hard (
       set "hard=a"
       for %%i in (%names%) do (
           for /f "tokens=1-2 delims=-" %%j in ("%%i") do (
               set "%%k=%%j"&echo %%a%tab%%%b%tab%%%c%tab%%%d>char\%%k.xls
               set /a _%%k=0
           )
       )
       ) else (
       if /i "%%a" equ "!%%d!区" if !_%%d! lss 150 set "flag=a"
       if defined flag (
          echo %%a%tab%%%b%tab%%%c%tab%%%d>>char\%%d.xls
          set "flag="&set /a _%%d+=1
          for /f "tokens=1-2 delims=." %%x in ("%%c") do (
              set "a=%%y00"&set /a .%%d+=%%x,..%%d+=1!a:~,2!%%100
              if !..%%d! geq 100 set /a ..%%d-=100,.%%d+=1
          )
          ) else (
          echo %%a %%b %%c %%d>>char\char.xls
       )
   )
)
set "flag="
for %%a in (%names%) do (
    for /f "tokens=1-2 delims=-" %%b in ("%%a") do (
        for /f "tokens=1-4" %%d in (char\char.xls) do (
　　　　　　if !_%%c! lss 150 if /i "%%d" equ "%%b区" set "flag=a"
            if defined flag (
               echo %%d%tab%%%e%tab%%%f%tab%%%g>>char\%%c.xls
　　　　　　　 set /a _%%c+=1&set "flag="
               for /f "tokens=1-2 delims=." %%x in ("%%f") do (
                   set "a=%%y00"&set /a .%%c+=%%x,..%%c+=1!a:~,2!%%100
                   if !..%%c! geq 100 set /a ..%%c-=100,.%%c+=1
               )
               ) else (
               echo %%d%tab%%%e%tab%%%f%tab%%%g>>char\tem
            )  
        )
        if !..%%c! lss 10 set "..%%c=0!..%%c!"
        ren char\%%c.xls %%c-!.%%c!.!..%%c!.xls
        if exist char\tem del /q char\char.xls&ren char\tem char.xls 
    )
)
start char
复制代码

@echo off&setlocal enabledelayedexpansion
::这里跳格键
set "Tab=	"
set /p str=<char.txt>nul
>char.xls echo !str!
set "A区=候国强 毛远锋 易湛慧 李楠 池茜"
set "B区=王冬 刘通 文娟娟 马宇芊"
for %%i in (A区 B区) do for %%j in (!%%i!) do set %%j=%%i&>%%j.txt echo !str!
for /f "skip=1 tokens=1-4" %%a in (char.txt) do (
    if /i "!%%d!" equ "%%a" (
       if !_%%d! lss 150 (
          set /a _%%d+=1
          >>%%d.txt echo;%%a%Tab%%%b%Tab%%%c%Tab%%%d
          for /f "tokens=1,2 delims=." %%i in ("%%c") do (
              set d=%%j000
              set/a #%%d+=%%i!d:~,3!
          )
       ) else (
         2>nul move "%%d.txt" "%%d_!#%%d:~,-3!.!#%%d:~-3!.xls"
         set %%d=&>>char.xls echo;%%a%Tab%%%b%Tab%%%c%Tab%%%d
       )
    ) else >>char.xls echo;%%a%Tab%%%b%Tab%%%c%Tab%%%d
)
for %%i in (A区 B区) do for %%j in (!%%i!) do if not defined %%j set %%i=!%%i:%%j=!
for /f "tokens=1-4" %%a in (char.xls) do (
    for %%i in (!%%a!) do set name=%%~i
    for %%e in (!name!) do if !_%%e! lss 150 (
        set /a _%%e+=1
        >>%%e.txt echo;%%a%Tab%%%b%Tab%%%c%Tab%%%d
        for /f "tokens=1,2 delims=." %%i in ("%%c") do (
            set d=%%j000
            set/a #%%e+=%%i!d:~,3!
        )
    ) else set %%a=!%%a:%%e=!&set name=&2>nul move "%%e.txt" "%%e_!#%%e:~,-3!.!#%%e:~-3!.xls"
      if not defined name >>char.x echo;%%a%Tab%%%b%Tab%%%c%Tab%%%d
)
move char.x char.xls
pause
复制代码