批处理如何获得指定字符前后的字符？

cjiabing

假如有一文本：

1. 科波拉黑帮经典《教父》的首部，派拉蒙公司最成功的影片之一，坐稳IMDB头把交椅应属
   
2. 众望所归。虽然评论界一致对《教父》系列的第2集推崇有佳，但大多数影迷似乎还是对
   
3. 《教父》情有独钟，这可能与马龙·白兰度极具个人魅力的表演有关，直到今天他那种含
   
4. 糊沙哑的声音与神秘莫测的表情都依然叫人着迷。
   

复制代码

1、我想提取指定字符“教父”前后的字符，也就是想知道“教父”前后是什么字，如何提取？
2、换个角度，假如我想提取“《”和“》”之间的字符，又怎么提取？

第二个问题似乎较为简单，第一个有点难度。
代码不投机取巧，要求实用和效率。
批处理支持的任何方法都可以，包括第三方。

Batcher

1：

1. grep -o "..教父.." 1.txt | sed "s/教父//" | more >2.txt

复制代码

2：

1. grep -o "《.*》" 1.txt | sed "s/《\|》//g" | more >2.txt

复制代码

http://bbs.bathome.net/thread-1114-1-1.html

batman

第一问：

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. for /f "delims=" %%a in (a.txt) do set "str=!str!%%a"
   
4. :lp
   
5. set "a="&set "b="
   
6. for /f "tokens=1* delims=教父" %%a in ("!str!") do (
   
7.     set "a=%%a"&set "a=!a:~-1!"
   
8.     if "%%b" neq "" set "b=%%b"&set "b=!b:~,1!"
   
9.     set "var=!var!!a!!b!"
   
10.     if "%%b" neq "" set "str=%%b"&goto lp
    
11. )
    
12. echo !var:~,-1!
    
13. pause>nul
    

复制代码

1. 
   
2. Dim fso, vbstr
   
3. Set fso = CreateObject("scripting.filesystemobject")
   
4. vbstr = fso.OpenTextFile("a.txt", 1).ReadAll()
   
5. Set RegEx = New RegExp
   
6. regex.Global = True
   
7. regex.Pattern = ".*(.)教父(.).*|\s|[^$]"
   
8. vbstr = regex.Replace(vbstr, "$1$2")
   
9. MsgBox vbstr
   
10. Set regex = Nothing
    
11. Set fso = Nothing
    

复制代码

batman

第二问：

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. for /f "delims=" %%a in (a.txt) do set "str=!str!%%a"
   
4. :lp
   
5. set "str=%str:*《=%"&set "a=!str:*》=!"
   
6. set "var=!var!!str:》%a%=!"&set "str=%str:*》=%"
   
7. for /f "delims=《》" %%a in ("%str%") do if "%%a" neq "%str%" goto lp
   
8. echo %var%
   
9. pause>nul
   

复制代码

1. 
   
2. Dim fso, vbstr, rgstr, re
   
3. Set fso = CreateObject("scripting.filesystemobject")
   
4. vbstr = fso.OpenTextFile("a.txt", 1).ReadAll()
   
5. Set RegEx = New RegExp
   
6. regex.Global = True
   
7. regex.Pattern = "《([^《》]+)》"
   
8. For Each rgstr In regex.Execute(vbstr)
   
9.   re = re & rgstr.Submatches(0)
   
10. Next
    
11. MsgBox re
    
12. Set regex = Nothing
    
13. Set fso = Nothing
    

复制代码

ps:以上四个代码均兼容要取的字符分在两行的情况。。。

随风

:如果每行最多只有一个“教父”
:

1. 
   
2. @echo off
   
3. for /f "delims=" %%i in (a.txt) do (
   
4.    set str=%%i
   
5.    setlocal enabledelayedexpansion
   
6.    set var=!str:*教父=!
   
7.    if not "!var!"=="!str!" (
   
8.       for %%j in ("!var!") do set num=!str:%%~j=!
   
9.       if "!num:~2,1!"=="" set num=!var!!num!
   
10.       echo 左!num:~-3,1!    !var:~0,1!右
    
11.     )
    
12.    endlocal
    
13. )
    
14. pause
    

复制代码

CrLf

一个思路：

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. set str=123《abc》456《def》789
   
4. for /l %%a in (1 1 10) do (
   
5.    set str=!str:*《=!
   
6.    for /f "tokens=1* delims=》" %%b in ("!str!《") do (
   
7.       if "%%c" neq "" echo %%b
   
8.       set str=%%c
   
9.    )
   
10. )
    
11. pause
    

复制代码

修改一下

cjiabing

很好，谢谢各位，等我测试了再告诉你们结果！~

abcdshenji

我也来一个，能力有限，没什么技术含量只为完成任务，不能跟各位版主比。。。

每行只有一个“《教父》”：

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. for /f "delims=" %%i in ('type "1.txt"^|findstr "《教父》"') do (
   
4.         set "v=%%i"&set "v=!v:《教父》=@!"
   
5.         if "!v:~,1!"=="@" (echo !v:~1,1! ) else (
   
6.                 if "!v:~-1!"=="@" (echo  !v:~-2,1!) else (
   
7.                         for /f "tokens=1,2 delims=@" %%j in ("!v!") do (
   
8.                                 set "v1=%%j"&set "v2=%%k"
   
9.                                 echo !v1:~-1! !v2:~,1!
   
10.                         )
    
11.                 )
    
12.         )
    
13. )
    
14. pause>nul
    

复制代码