[文本处理] 发一个从EEE4.net或者dygod修改电影资料的简易批处理

@echo off
color 0a
setlocal enabledelayedexpansion
if exist 电影资料.txt del 电影资料.txt

::在网页上复制电影资料，利用winclip生成原始文本文档
winclip -p >>tmp_.txt

::对原始电影资料进行简单修改，提取我想要的东西
call :xiugai
for /f "delims=" %%a in ('findstr /v "◎" a.txt') do (
  echo %%a >>电影资料.txt  
                                           )
del a.txt


::获取电影名字，并生成电影名字.txt等操作
set /p b=请输入你需要的电影资料名字字数:
set /a b=b+1
echo.
for /f "tokens=1,2,3,4 delims=/ " %%a in (电影资料.txt) do (
  if /i "%%b" == "文" set lp=%%d
  set lp=!lp:~0,%b%!
                                                           )
pause
ren 电影资料.txt %lp%.txt
md %lp%
move /y %lp%.txt %lp%\
::if exist *%lp%*.rmvb move *%lp%*.rmvb %lp%\%lp%.rmvb 这一句要谨慎使用
del tmp_.txt
goto :eof


:xiugai
for /f "delims=" %%i in ('type tmp_.txt') do (
set "str=%%i"
set str=!str:◎译　　名=【中 文 名】 !
set str=!str:◎片　　名=【原 片 名】!
set str=!str:◎年　　代=【出品年代】!
set str=!str:◎国　　家=【国　　家】!
set str=!str:◎类　　别=【类　　别】!
set str=!str:◎导　　演=【导　　演】!
set str=!str:◎主　　演=【主　　演】!
set str=!str:◎简　　介=【简    介】!
set str=!str:◎中 文 名=【中 文 名】 !
set str=!str:《=!
set str=!str:》=!
call echo %%str%% >>a.txt
                                     )
复制代码

◎译　　名　《死人岛》09年美国最新惊悚僵尸恐怖片BD中英双字1024x576高清版
◎片　　名　Survival Of The Dead
◎年　　代　2009
◎国　　家　美国/加拿大
◎类　　别　恐怖/惊悚
◎语　　言　英语
◎字　　幕　中英双字
◎IMDB评分 6.7/10 (489 votes)
◎IMDB链接 http://www.imdb.com/title/tt1134854
◎文件格式　BD-RMVB
◎视频尺寸　1024 x 576
◎文件大小　1CD 50 x 15MB
◎片　　长　87 Mins
◎导　　演　乔治·A·罗梅罗 George A. Romero
◎主　　演　戴文·博斯蒂克 Devon Bostick
　　　　　　Alan Van Sprang  ....'Nicotine' Crocket
　　　　　　凯丝琳·蒙露 Kathleen Munroe  ....Janet / Jane O'Flynn
　　　　　　肯尼斯·威尔什 Kenneth Welsh
　　　　　　Julian Richings  ....James O'Flynn
　　　　　　Athena Karkanis  ....Tomboy
　　　　　　Joris Jarsky  ....Chuck
　　　　　　George Stroumboulopoulos  ....Talk Show Host
　　　　　　Wayne Robson  ....Tawdry O'Flynn
　　　　　　Matt Birman  ....Lem Muldoon
　　　　　　Stefano Colacitti  ....Francisco (as Stefano Colacitti)
　　　　　　Heather Allin  ....Sally Muldoon
　　　　　　Michael Rhoades  ....Good Old Boy #2
　　　　　　Craig Dawson  ....Police Officer Zombie
　　　　　　Jerry Schaefer  ....Zombie #2
　　　　　　Zeljko Kecojevic  ....Zombie #5
　　　　　　Eric Woolfe  ....Kenny
　　　　　　Wayne Curnew  ....Muldoon Zombie Hunter
　　　　　　Pete Zedlacher  ....Talk Show Stooge
　　　　　　Mitch Risman  ....Drooling Zombie
　　　　　　Salar Madadi  ....Construction Worker Zombie
　　　　　　Philippa Domville  ....Beth Muldoon
　　　　　　Steven Barton  ....Pitbull Plaid Zombie (uncredited)
　　　　　　Ho Chow  ....Fisherman (uncredited)
　　　　　　Michelle Ernst-Mester  ....Zombie (uncredited)
　　　　　　Robert Miles  ....Zombie (uncredited)
　　　　　　Dru Viergever  ....Cheek-Biter Zombie (uncredited)

◎简　　介　

　　在一个无处不在的丧尸已经威胁到了人类的生活的世界，科罗克特带领一帮武装部队从无休止的混乱中撤出，寻找一个丧尸尚未侵入的庇护所。途中他们遇见了遭到放逐的家族长老帕特里克·欧弗林，欧弗林告诉他们，在一个偏远的渔岛上有这样一个新的乐土。

然而，当科罗克特一行踏上海岛后，才发现事实并非如此。很快，他们陷入了欧弗林家族与他们的仇家穆顿斯家族之间持续已久的争斗中。真相渐渐显现，欧弗林当初被逐出岛上，就是因为他坚持要将僵尸赶尽杀绝，而穆顿斯则认为不应对本已经遭受痛苦的亲人们下手，并尝试照顾那些变成丧尸的亲属们，等待他们痊愈的一天。变成丧尸的人被锁在自己的家中，假装过着正常的生活。事实证明这样维护家园稳定的做法是行不通的，它将带来更加血腥的后果，一场绝望的战斗将决定活人与丧尸之间能否和平共存。
复制代码

【原 片 名】 
【中 文 名】 
【出品年代】 
【国　　家】 
【类　　别】 
【导　　演】 
【主　　演】 
------------------------------------------
【影片格式】
【对白语言】 
【字幕语言】
【影片制作】
------------------------------------------
【简介】
复制代码