- TvRockについて語るスレ 36
354 ：名無しさん＠編集中[sage]：2010/10/29(金) 16:10:06 ID:AMwDGt4p - 参考までに、正規表現の検索結果を返すバッチの一部とスクリプト。
for /f "usebackq tokens=1,2,3 delims=[タブ]" %%a in (`cscript //nologo regexpsub.vbs "龍馬伝（43）「船中八策」" "(.+)（(\d+)）「(.+?)」"`) do (
set title=%%a
set num=%%b
set subtitle=%%c
)
'regexpsub.vbs
set args = wscript.arguments
if args.count<1 then
wscript.quit(1)
end if
str=args(0)
pattern=args(1)
set rg=New RegExp
rg.pattern=pattern
rg.ignorecase=true
rg.global=true
set matches = rg.execute(str)
set match = matches(0)
for each v in match.submatches
if ret<>"" then
ret = ret & vbTab
end if
ret = ret & v
next
WScript.Echo ret
|