[已解决] 请教将Excel中的内容进行格式变换

ouch1983

我想把in.xls中每个AP后面对应的所有字符串都放在AP下面，每个PN后面对应的所有字符串都放在PN下面，串和串之间用分号隔开，如out.xls所示。请教怎么写批处理程序？谢谢。

gawk

这个，还是VBS比较靠谱吧。

weichenxiehou

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. set "tab=        "
   
4. set num=&set num1=&set num2=
   
5. (for /f "tokens=1,2* delims=%tab%" %%a in (test.txt) do (
   
6.   set "str=%%a"
   
7.   if /i "!str:~1,4!"=="/238" (
   
8.     if defined num1 (
   
9.       if !num1! gtr !num2! (set num=!num1!) else set num=!num2!
   
10.       for /l %%y in (1 1 !num!) do if defined #%%y (echo,!#%%y!%tab%%tab%!$%%y!) else echo,!#%%y!%tab%%tab%%tab%%tab%!$%%y!
    
11.     )
    
12.     echo,&echo,%%a%tab%%tab%%%b&echo,AP%tab%%tab%%tab%%tab%PN
    
13.     for /f "delims==" %%a in ('set # 2^>nul') do set %%a=
    
14.     for /f "delims==" %%a in ('set $ 2^>nul') do set %%a=
    
15.     set flag=
    
16.   )
    
17.   if "%%a"=="AP" (set flag=ap&set/a num1=0)
    
18.   if "%%a"=="PN" (set flag=pn&set/a num2=0)
    
19.   if !flag!==ap (
    
20.     set /a num1+=1
    
21.     if "%%a"=="AP" (set str1=%%c) else set "str1=%%a"
    
22.     set "#!num1!=!str1!"
    
23.   )
    
24.   if !flag!==pn (
    
25.     set /a num2+=1
    
26.     if "%%a"=="PN" (set str1=%%c) else set "str1=%%a"
    
27.     set "$!num2!=!str1!"
    
28.   )
    
29. )
    
30. 
    
31. if !num1! gtr !num2! (set num=!num1!) else set num=!num2!
    
32. for /l %%y in (1 1 !num!) do if defined #%%y (echo,!#%%y!%tab%%tab%!$%%y!) else echo,!#%%y!%tab%%tab%%tab%%tab%!$%%y!
    
33. )>intermediate.txt
    
34. start intermediate.txt
    

复制代码

ouch1983

十分感谢Weichenxiehou 老师，问题已解决，还讲了很多